Login script based on ou

[Riannon]

Have a new domain with users from 2 different location and only want 1 script. Have started a login script that should be based on what OU the user is located in. Here is what i have done that is not working.

Const City1 = "ou=City1"
Const City2 = "ou=City2"


Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" &
ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))


If InStr(strGroups, City1) Then

Set wshNetwork = CreateObject("WScript.Network")

wshNetwork.MapNetworkDrive "h:",
"\\SSEP8SW3HATE\Home$\" & wshNetwork.UserName"

wshNetwork.MapNetworkDrive "k:",
"\\FileServer\City1\"

wshNetwork.MapNetworkDrive "n:",
"\\FileServer\City1\"

wshNetwork.MapNetworkDrive "o:",
"\\FileServer\City1\"

wshNetwork.MapNetworkDrive "p:",
"\\FileServer\City1\"

wshNetwork.MapNetworkDrive "t:",
"\\FileServer\City1\"


wshNetwork.AddWindowsPrinterConnection
"\\PrintServer\Printer"

wshNetwork.AddWindowsPrinterConnection
"\\PrintServer\Printer"

wshNetWork.SetDefaultPrinter
"\\PrintServer\Printer"


ElseIf InStr(strGroups, City2_GROUP) Then

Set wshNetwork = CreateObject("WScript.Network")
wshNetwork.MapNetworkDrive "h:",
"\\SSEP8SW3HATE\Home$\" & wshNetwork.UserName"

wshNetwork.MapNetworkDrive "k:",
"\\FileServer\City2\"

wshNetwork.MapNetworkDrive "n:",
"\\FileServer\City2\"

wshNetwork.MapNetworkDrive "o:",
"\\FileServer\City2\"

wshNetwork.MapNetworkDrive "p:",
"\\FileServer\City2\"

wshNetwork.MapNetworkDrive "t:",
"\\FileServer\City2\"

wshNetwork.AddWindowsPrinterConnection
"\\PrintServer\Printer"

wshNetwork.AddWindowsPrinterConnection
"\\PrintServer\Printer"

wshNetWork.SetDefaultPrinter
"\\PrintServer\Printer"


End If

.