VB Login Script (Member Of Groups)

Hi All,

I would be grateful if someone could look over the following code - I keep getting errors, the 1st one being on line 5.

I'm trying to create a login script to map drives based on AD membership of 2 groups, US and UK.

I'm getting my information from:
http://technet2.microsoft.com/windowsserver/en/library/8a268d3a-2aa0-4469-8cd2-8f28d6a630801033.mspx?mfr=true

But I don't need the home drive or printers mapped.

Many Thanks - Pete

Const UK     = "cn=UK"
Const US     = "cn=US "
 
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" &
ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))
 
If InStr(strGroups, UK) Then
 
    wshNetwork.MapNetworkDrive "s:",
    "\\Server\Shared\"
 
    wshNetwork.MapNetworkDrive "p:",
    "\\Server\US Folders Directory"
 
'    UK Scanning Drive
'    wshNetwork.MapNetworkDrive "x:",
'    "\\x\"
 
ElseIf InStr(strGroups, US) Then
 
    wshNetwork.MapNetworkDrive "p:",
    "\\Server\US Folders Directory"
 
    wshNetwork.MapNetworkDrive "s:",
    "\\Server\Shared\"
 
    wshNetwork.MapNetworkDrive "R:",
    "\\Server\folder"
 
End If

Select allOpen in new window