Mappe netværksdrev baseret på OU eller gruppe navn.

Du kan gøre det vsb script som kan laves som login script.
I starten dette for at får alle data.
Bemærk at jeg henter information om både bruger og computer.
*********************login.vsb**************
Set wshNetwork = CreateObject("WScript.Network")
Set oShell=CreateObject("wscript.shell")
Set oExistingPrinters=WshNetwork.EnumPrinterConnections
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentComputerName = GetObject("LDAP://" & ADSysInfo.ComputerName)
'strGroups = LCase(Join(CurrentComputerName.MemberOf))

'Hent computer navn og sti
strcomputerName = Lcase(ADSysInfo.ComputerName)

'Hent alle grupper som brugeren er medlem af.
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
Select Case VarType(CurrentUser.MemberOf)
    Case 8
          strUserGroups = LCase(CurrentUser.MemberOf)
    Case 8204
        strUserGroups = LCase(Join(CurrentUser.MemberOf))
End Select

'Hent username og sti
strUsername = Lcase(wshNetwork.UserName)

On Error Resume Next
***************
Herefter i samme fil kan du køre forskellige if sætninger og handlinger f.eks.
Til OU.
If InStr(strcomputerName, "ou=XXXX,") Then

Til gruppe.
If Instr(strUserGroups, "Gruppenavn") <> 0 Then
Bemærk at jeg har haft problem med at få true til at virke så jeg benytter forskellig fra false.

Set wshNetwork = CreateObject("WScript.Network")
Set oShell=CreateObject("wscript.shell")
Set oExistingPrinters=WshNetwork.EnumPrinterConnections
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentComputerName = GetObject("LDAP://" & ADSysInfo.ComputerName)
strGroups = LCase(Join(CurrentComputerName.MemberOf))

'Hent computer navn og sti
strcomputerName = Lcase(ADSysInfo.ComputerName)

'Hent alle grupper som brugeren er medlem af.
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
Select Case VarType(CurrentUser.MemberOf)
    Case 8
          strUserGroups = LCase(CurrentUser.MemberOf)
    Case 8204
        strUserGroups = LCase(Join(CurrentUser.MemberOf))
End Select

'Hent username og sti
strUsername = Lcase(wshNetwork.UserName)

If Instr(strUserGroups, "A1") <> 0 Then
objNetwork.MapNetworkDrive "M:", "\\minserver\gruppe a1"
End if

Jeg får følgende fejl

Linje 6 Typer stemmer ikke overens "join"

Hvad gør jeg forkert?