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("A DSystemInfo")
Set CurrentUser = GetObject("LDAP ://" &
ADSysInfo.UserN ame)
strGroups = LCase(Join(Curr entUser.MemberO f))


If InStr(strGroups , City1) Then

Set wshNetwork = CreateObject("W Script.Network" )

wshNetwork.MapN etworkDrive "h:",
"\\SSEP8SW3HATE \Home$\" & wshNetwork.User Name"

wshNetwork.MapN etworkDrive "k:",
"\\FileServer\C ity1\"

wshNetwork.MapN etworkDrive "n:",
"\\FileServer\C ity1\"

wshNetwork.MapN etworkDrive "o:",
"\\FileServer\C ity1\"

wshNetwork.MapN etworkDrive "p:",
"\\FileServer\C ity1\"

wshNetwork.MapN etworkDrive "t:",
"\\FileServer\C ity1\"


wshNetwork.AddW indowsPrinterCo nnection
"\\PrintServer\ Printer"

wshNetwork.AddW indowsPrinterCo nnection
"\\PrintServer\ Printer"

wshNetWork.SetD efaultPrinter
"\\PrintServer\ Printer"


ElseIf InStr(strGroups , City2_GROUP) Then

Set wshNetwork = CreateObject("W Script.Network" )
wshNetwork.MapN etworkDrive "h:",
"\\SSEP8SW3HATE \Home$\" & wshNetwork.User Name"

wshNetwork.MapN etworkDrive "k:",
"\\FileServer\C ity2\"

wshNetwork.MapN etworkDrive "n:",
"\\FileServer\C ity2\"

wshNetwork.MapN etworkDrive "o:",
"\\FileServer\C ity2\"

wshNetwork.MapN etworkDrive "p:",
"\\FileServer\C ity2\"

wshNetwork.MapN etworkDrive "t:",
"\\FileServer\C ity2\"

wshNetwork.AddW indowsPrinterCo nnection
"\\PrintServer\ Printer"

wshNetwork.AddW indowsPrinterCo nnection
"\\PrintServer\ Printer"

wshNetWork.SetD efaultPrinter
"\\PrintServer\ Printer"


End If

.