#39723 - 2003-04-30 12:23 AM
Re: Problems with multiple groups, pop-up screen
|
kholm
Korg Regular
   
Registered: 2000-06-19
Posts: 714
Loc: Randers, Denmark
|
The minor problem (Disclaimer):
Have you tried to maximize the console
code:
$RC = SetConsole('Maximize')
Minor problem second solution: I don't understand the need for a discalimer. If you are logged on, You must have a valid username with a corresponding correct password.
But if you want the user to confirm that he/she is logging on for only buissness usage you could use a messagebox with a Yes/no button, and force a shutdown, if the user presses no:code:
$Msg = "You are connecting to a monitored proprietary system of" + @CRLF + "Banco do Brasil Miami Agency. Access by unauthorized" + @CRLF + "individuals is prohibited. Only users authorized by" + @CRLF + "Banco do Brasil Miami Agency may access this system." + @CRLF + "Usage is restricted to business use." + @CRLF @CRLF + "Pres yes to continue if you agree" + @CRLF + "Pres no to logoff if you disagree" + @CRLF $RC = Messagebox($Msg,'Disclaimer',4 + 256 + 4096) If $RC = 7 ; User pressed no, force a shutdown of the system $RC = ShutDown('','Shutting down',0,1,2) Quit EndIf
Major problem:
Could you try changing this code:
code:
Case InGroup ("Mgt", "Mgr", 1) = 1 Use o: "\\$FileServer\mgt$"
if @error ? Error connecting O: drive sleep 30 endif
;**************************************************************************** ;**** Departments Data Share Folder (R:) if exist("r:") use r: /del if @error ? Error disconnecting R: drive sleep 30 endif endif
use r: "\\$FileServer\Work" if @error ? Error connecting R: drive sleep 30 endif
Case InGroup ("Mgt") = 1 Use o: "\\$FileServer\mgt$"
if @error ? Error connecting O: drive sleep 30 endif
To this code:
code:
Case InGroup ("Mgt") Use o: "\\$FileServer\mgt$"
if @error ? Error connecting O: drive sleep 30 endif
;**************************************************************************** ;**** Departments Data Share Folder (R:) If InGroup("Mgr") if exist("r:") use r: /del if @error ? Error disconnecting R: drive sleep 30 endif endif use r: "\\$FileServer\Work" if @error ? Error connecting R: drive sleep 30 endif EndIf
-Erik
|
|
Top
|
|
|
|
Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-29 04:33 PM
|
Re: Problems with multiple groups, pop-up screen
|
Howard Bullock
|
2003-04-29 04:38 PM
|
Re: Problems with multiple groups, pop-up screen
|
Les
|
2003-04-29 04:43 PM
|
Re: Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-29 05:41 PM
|
Re: Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-29 05:42 PM
|
Re: Problems with multiple groups, pop-up screen
|
Sealeopard
|
2003-04-29 05:43 PM
|
Re: Problems with multiple groups, pop-up screen
|
Les
|
2003-04-29 05:44 PM
|
Re: Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-29 07:16 PM
|
Re: Problems with multiple groups, pop-up screen
|
Les
|
2003-04-29 07:25 PM
|
Re: Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-29 07:29 PM
|
Re: Problems with multiple groups, pop-up screen
|
Howard Bullock
|
2003-04-29 07:43 PM
|
Re: Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-29 08:03 PM
|
Re: Problems with multiple groups, pop-up screen
|
Howard Bullock
|
2003-04-29 08:09 PM
|
Re: Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-29 08:40 PM
|
Re: Problems with multiple groups, pop-up screen
|
Lonkero
|
2003-04-29 08:54 PM
|
Re: Problems with multiple groups, pop-up screen
|
Kdyer
|
2003-04-29 08:58 PM
|
Re: Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-29 09:18 PM
|
Re: Problems with multiple groups, pop-up screen
|
kholm
|
2003-04-30 12:23 AM
|
Re: Problems with multiple groups, pop-up screen
|
Sealeopard
|
2003-04-30 01:02 AM
|
Re: Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-30 09:14 PM
|
Re: Problems with multiple groups, pop-up screen
|
Sealeopard
|
2003-04-30 09:19 PM
|
Re: Problems with multiple groups, pop-up screen
|
BB Miami
|
2003-04-30 10:06 PM
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
1 registered
(Allen)
and 675 anonymous users online.
|
|
|