#39715 - 2003-04-29 07:29 PM
Re: Problems with multiple groups, pop-up screen
|
BB Miami
Fresh Scripter
Registered: 2003-04-29
Posts: 12
Loc: Miami, Florida, USA
|
Here are the scripts again, this time using the proper method to maintain the format intact.
Script 1: code:
;**************************************************************************** ;**** Script: Banco do Brasil Miami Agency ;**** Created: March 20, 2001 ;**** Last Change: April 25, 2003 ;**** Author: Hilton Palma Lima ;**** Purpose: Log in Network clients ;****************************************************************************
;**************************************************************************** ;**** Common defines ;**** DIM $FileServer DIM $TimeServer
$FileServer = "bbmiamisrv2" $TimeServer = "bbmiamisrv1"
;**************************************************************************** ;**** Script Start ;**** color b/+y ;blue + bright yellow, the Bank's colors cls break off
;**************************************************************************** ;**** Synchronizes the system clock of the local computer ;**** settime "\\$timeServer"
;**************************************************************************** ;**** Greet User ;**** ? ? "You are connecting to a monitored proprietary system of" ? "Banco do Brasil Miami Agency. Access by unauthorized" ? "individuals is prohibited. Only users authorized by" ? "Banco do Brasil Miami Agency may access this system." ? "Usage is restricted to business use." ? ? ? "Login Server: " + @lserver ? ? "Hello, " ? ? " " + @fullname ? ? ? "Press any key to continue..."
sleep 10
;**************************************************************************** ;**** Anti-Virus Share Folder (H:) ;****
if exist("h:") use h: /del
if @error ? Error disconnecting H: drive sleep 30 endif endif use h: "\\$FileServer\AV"
if @error ? Error connecting H: drive sleep 30 endif
;**************************************************************************** ;**** Applications Share Folder (M:) ;****
if exist("m:") use m: /del
if @error ? Error disconnecting M: drive sleep 30 endif endif use m: "\\$FileServer\Apps"
if @error ? Error connecting M: drive sleep 30 endif
;**************************************************************************** ;**** User Home Share Folder (N:) ;****
if exist("n:") use n: /del
if @error ? Error disconnecting N: drive sleep 30 endif endif ;use n: "\\$FileServer\@homedir$$" ; userid works for both Win95 and win98.
use n: "\\$FileServer\@userid$$"
if @error ? Error connecting N: drive sleep 30 endif
;**************************************************************************** ;**** Department Share Folder (O:) ;****
if exist("o:") use o: /del
if @error ? Error disconnecting O: drive sleep 30 endif endif Select Case InGroup ("Act") = 1 Use o: "\\$FileServer\act$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Adm") = 1 Use o: "\\$FileServer\adm$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Aud") = 1 Use o: "\\$FileServer\aud$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Col") = 1 Use o: "\\$FileServer\col$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("CSr") = 1 Use o: "\\$FileServer\csr$"
if @error ? Error connecting O: drive sleep 30 endif Case InGroup ("INv") = 1 Use o: "\\$FileServer\inv$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("IPB") = 1 Use o: "\\$FileServer\ipb$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Prm") = 1 Use o: "\\$FileServer\prm$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("LCr") = 1 Use o: "\\$FileServer\lcr$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Lns") = 1 Use o: "\\$FileServer\lns$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Mgt") = 1 Use o: "\\$FileServer\mgt$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("MIS") = 1 Use o: "\\$FileServer\mis$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Opr") = 1 Use o: "\\$FileServer\opr$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("SER") = 1 Use o: "\\$FileServer\ser$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("WTr") = 1 Use o: "\\$FileServer\wtr$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("COM") = 1 Use o: "\\$FileServer\com$"
if @error ? Error connecting O: drive sleep 30 endif EndSelect ;**************************************************************************** ;**** Corporate Data Share Folder (P:) ;****
if exist("p:") use p: /del
if @error ? Error disconnecting P: drive sleep 30 endif endif use p: "\\$FileServer\CorpData"
if @error ? Error connecting P: drive sleep 30 endif
;**************************************************************************** ;**** Departments Data Share Folder (R:) ;****
if InGroup ("Mgr") = 1
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
;**************************************************************************** ;**** Script End ;****
color w/n ;reset colors exit
Here is script # 2:
code:
;**************************************************************************** ;**** Script: Banco do Brasil Miami Agency ;**** Created: March 20, 2001 ;**** Last Change: April 25, 2003 ;**** Author: Hilton Palma Lima ;**** Purpose: Log in Network clients ;****************************************************************************
;**************************************************************************** ;**** Common defines ;**** DIM $FileServer DIM $TimeServer
$FileServer = "bbmiamisrv2" $TimeServer = "bbmiamisrv1"
;**************************************************************************** ;**** Script Start ;**** color b/+y ;blue + bright yellow, the Bank's colors cls break off
;**************************************************************************** ;**** Synchronizes the system clock of the local computer ;**** settime "\\$timeServer"
;**************************************************************************** ;**** Greet User ;**** ? ? "You are connecting to a monitored proprietary system of" ? "Banco do Brasil Miami Agency. Access by unauthorized" ? "individuals is prohibited. Only users authorized by" ? "Banco do Brasil Miami Agency may access this system." ? "Usage is restricted to business use." ? ? ? "Login Server: " + @lserver ? ? "Hello, " ? ? " " + @fullname ? ? ? "Press any key to continue..."
sleep 10
;**************************************************************************** ;**** Anti-Virus Share Folder (H:) ;****
if exist("h:") use h: /del
if @error ? Error disconnecting H: drive sleep 30 endif endif use h: "\\$FileServer\AV"
if @error ? Error connecting H: drive sleep 30 endif
;**************************************************************************** ;**** Applications Share Folder (M:) ;****
if exist("m:") use m: /del
if @error ? Error disconnecting M: drive sleep 30 endif endif use m: "\\$FileServer\Apps"
if @error ? Error connecting M: drive sleep 30 endif
;**************************************************************************** ;**** User Home Share Folder (N:) ;****
if exist("n:") use n: /del
if @error ? Error disconnecting N: drive sleep 30 endif endif ;use n: "\\$FileServer\@homedir$$" ; userid works for both Win95 and win98.
use n: "\\$FileServer\@userid$$"
if @error ? Error connecting N: drive sleep 30 endif
;**************************************************************************** ;**** Corporate Data Share Folder (P:) ;****
if exist("p:") use p: /del
if @error ? Error disconnecting P: drive sleep 30 endif endif use p: "\\$FileServer\CorpData"
if @error ? Error connecting P: drive sleep 30 endif
;**************************************************************************** ;**** Department Share Folder (O:) ;****
if exist("o:") use o: /del
if @error ? Error disconnecting O: drive sleep 30 endif endif Select Case InGroup ("Act") = 1 Use o: "\\$FileServer\act$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Adm") = 1 Use o: "\\$FileServer\adm$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Aud") = 1 Use o: "\\$FileServer\aud$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Col") = 1 Use o: "\\$FileServer\col$"
if @error ? Error connecting O: drive sleep 30 endif
;**************************************************************************** ;**** Test if in CSr and Blotter groups ;**** Case InGroup ("CSr", "Blotter", 1) = 1 Use o: "\\$FileServer\csr$"
if @error ? Error connecting O: drive sleep 30 endif
;**************************************************************************** ;**** BB Fund Share Folder (I:) ;**** if exist("i:") use i: /del
if @error ? Error disconnecting I: drive sleep 30 endif endif use i: "\\$FileServer\BB Fund$"
if @error ? Error connecting I: drive sleep 30 endif
;**************************************************************************** ;**** Securities Share Folder (J:) ;**** if exist("j:") use j: /del
if @error ? Error disconnecting J: drive sleep 30 endif endif use j: "\\$FileServer\Securities$"
if @error ? Error connecting J: drive sleep 30 endif
Case InGroup ("CSr") = 1 Use o: "\\$FileServer\csr$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("INv") = 1 Use o: "\\$FileServer\inv$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("IPB") = 1 Use o: "\\$FileServer\ipb$"
if @error ? Error connecting O: drive sleep 30 endif
;**************************************************************************** ;**** Test if in Prm and Blotter groups ;**** Case InGroup ("Prm", "Blotter", 1) = 1 Use o: "\\$FileServer\prm$"
if @error ? Error connecting O: drive sleep 30 endif
;**************************************************************************** ;**** BB Fund Share Folder (I:) ;**** if exist("i:") use i: /del
if @error ? Error disconnecting I: drive sleep 30 endif endif use i: "\\$FileServer\BB Fund$"
if @error ? Error connecting I: drive sleep 30 endif
;**************************************************************************** ;**** Securities Share Folder (J:) ;**** if exist("j:") use j: /del
if @error ? Error disconnecting J: drive sleep 30 endif endif use j: "\\$FileServer\Securities$"
if @error ? Error connecting J: drive sleep 30 endif
Case InGroup ("Prm") = 1 Use o: "\\$FileServer\prm$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("LCr") = 1 Use o: "\\$FileServer\lcr$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Lns") = 1 Use o: "\\$FileServer\lns$"
if @error ? Error connecting O: drive sleep 30 endif
;**************************************************************************** ;**** Test if in Mgt and Mgr groups ;**** 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
Case InGroup ("MIS") = 1 Use o: "\\$FileServer\mis$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("Opr") = 1 Use o: "\\$FileServer\opr$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("SER") = 1 Use o: "\\$FileServer\ser$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("WTr") = 1 Use o: "\\$FileServer\wtr$"
if @error ? Error connecting O: drive sleep 30 endif
Case InGroup ("COM") = 1 Use o: "\\$FileServer\com$"
if @error ? Error connecting O: drive sleep 30 endif EndSelect
;**************************************************************************** ;**** QuickView Program and Files Share Folder (Q:) ;****
;if exist("q:") ; use q: /del ; ; if @error ; ? Error disconnecting Q: drive ; sleep 30 ; endif ;endif ;use q: "\\$FileServer\QView5" ;use q: "\\$FileServer\QView"
;if @error ; ? Error connecting Q: drive ; sleep 30 ;endif
;**************************************************************************** ;**** Departments Data Share Folder (R:) ;****
;if InGroup ("Mgr") = 1 ; ; 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
;**************************************************************************** ;**** BB Funds Share Folder (I:) ;****
;if InGroup ("Blotter") = 1 ; ; if exist("i:") ; use i: /del ; ; if @error ; ? Error disconnecting I: drive ; sleep 30 ; endif ; endif ; ; use i: "\\$FileServer\BB Fund$" ; ; if @error ; ? Error connecting I: drive ; sleep 30 ; endif ;endif
;**************************************************************************** ;**** BB Funds Share Folder (J:) ;****
;if InGroup ("Blotter") = 1 ; ; if exist("j:") ; use j: /del ; ; if @error ; ? Error disconnecting J: drive ; sleep 30 ; endif ; endif ; ; use j: "\\$FileServer\Securities$" ; ; if @error ; ? Error connecting J: drive ; sleep 30 ; endif ;endif
;**************************************************************************** ;**** Script End ;****
color w/n ;reset colors exit
|
|
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
|
0 registered
and 476 anonymous users online.
|
|
|