;/*For MyWork Office */
IF InGroup ("Wor MyWorkOffice Staff")
;/For General Users
SETTIME "\\server-fs"
USE P: "\\server-fs\@userid$"
USE Q: "\\server-fs\common"
USE X: "\\192.168.X.XX\database"
USE Y: "\\192.168.X.XX\export"
USE H: "\\192.168.X.X\fax-scan"
;/Mappings Based on Group Memberships
MyUse("Wor-MyWorkOffice-Loans","I:","\\server-fs\common\01-Loans")
MyUse("Wor-MyWorkOffice-Tellers","J:","\\server-fs\common\02-Tellers")
MyUse("Wor-MyWorkOffice-NewAcct","K:","\\server-fs\common\03-New Accounts")
MyUse("Wor-MyWorkOffice-Collect","L:","\\server-fs\common\04-Collections")
MyUse("Wor-MyWorkOffice-Book","M:","\\server-fs\common\05-Bookkeeping")
MyUse("Wor-MyWorkOffice-ExecMgmt","N:","\\server-fs\common\06-Exec Mgmt")
MyUse("Wor-MyWorkOffice-Operations","O:","\\server-fs\common\07-Operations")
ENDIf
Function MyUse($sGroup,$sLetter,$sPath)
If InGroup($sGroup)
"I am in group '"+$sGroup+"' so will try to map '"+$sPath+" as drive "+$sDrive+@CRLF
Use $sLetter $sPath
If @ERROR "ERROR mapping drive: ["+@ERROR+"] "+@SERROR+@CRLF
Else
"I am not in group '"+$sGroup+@CRLF
EndIf
EndFunction