I am experiencing the following problems with the two scripts (*) below, but first a description of the environment: Win2K Server, Win2K Pro clients, TCP/IP only, users in at least two global groups each.

The problems: Minor: Pop-up greeting screen does not open in Win2K, it shows as a minimized bar on the "taskbar".

Major: Mapping only occurs to first group an user is a member of. Example: User is member of Mgt and Mgr groups, and script call for mapping of two different drives for each group, in this order: Mgt first, Mgr later. It only maps the drive for the Mgt, and ignores the Mgr membership.

I ran the "Kixstrip" application and it did not find any errors. Please advise. Thanks in advance for all your help.

(*) The first one is the one working now. Still has problems but I can somewhat manage to live with it for now. The second was an updated to accomodate another groups, but it failed so I am still using the first one.

Script1:
;****************************************************************************
;**** 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

Script2: (Which I tried to use, but failed so miserably that I decided to use Script1 again)

;****************************************************************************
;**** 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