VB logon script

Nu håber jeg der sidder en seriøs skarp programmør til VB, som kan hjælpe mig med et logon script.

Jeg har en domain controller, en masse brugere, nogle grupper og nogle shares.

Lige nu har jeg et logon script som giver brugeren et privat drev. Der er så nogle brugere som skal have et, to eller tre drev mere, afhængig om de er medlem af en gruppe eller flere grupper.

Jeg har så fundet det her script på nettet til og hvilke grupper en bruger medlem af. Det kommer her.

' UsermemberOf .vbs
' To list the groups to which the user is a memberOf
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.3 VBScript MemberOf - May 2010
' ------------------------------------------------'
Option Explicit
Dim objRootLDAP, objGroup, objUser, objOU, objmemberOf
Dim strOU, strUser, strDNSDomain, strLDAP, strList

' Commands to bind to AD and extract domain name
Set objRootLDAP = GetObject("LDAP://RootDSE")
strDNSDomain = objRootLDAP.Get("DefaultNamingContext")

' Build the LDAP DN from strUser, strOU and strDNSDomain
strUser ="cn=Administrator,"
strOU ="CN=Users,"
strLDAP ="LDAP://" & strUser & strOU & strDNSDomain

Set objUser = GetObject(strLDAP)

' Heart of the script, extract a list of Groups from memberOf
objmemberOf  = objUser.GetEx("memberOf")
For Each objGroup in objmemberOf
  strList = strList & objGroup & vbcr
Next

WScript.Echo "Groups for " & strUser & vbCr & strList

WScript.Quit

' End of Sample User memberOf  VBScript

Det virker også findt, men når jeg så prøver med en af mine brugere fx. Niels og ændre containernavnet til navnet på den OU jeg har oprettet til mine brugere så går det galt. Mit script ser sådan her ud.

' UsermemberOf .vbs
' To list the groups to which the user is a memberOf
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.3 VBScript MemberOf - May 2010
' ------------------------------------------------'
Option Explicit
Dim objRootLDAP, objGroup, objUser, objOU, objmemberOf
Dim strOU, strUser, strDNSDomain, strLDAP, strList

' Commands to bind to AD and extract domain name
Set objRootLDAP = GetObject("LDAP://RootDSE")
strDNSDomain = objRootLDAP.Get("DefaultNamingContext")

' Build the LDAP DN from strUser, strOU and strDNSDomain
' strUser ="cn=Administrator,"
strUser ="cn=Niels,"
' strOU ="CN=Users,"
strOU ="CN=Test Users,"
strLDAP ="LDAP://" & strUser & strOU & strDNSDomain

Set objUser = GetObject(strLDAP)

' Heart of the script, extract a list of Groups from memberOf
objmemberOf  = objUser.GetEx("memberOf")
For Each objGroup in objmemberOf
  strList = strList & objGroup & vbcr
Next

WScript.Echo "Groups for " & strUser & vbCr & strList

WScript.Quit

' End of Sample User memberOf  VBScript

og det fejler med denne her fejl.

Script: C:\...\memberof.vbs
Linje: 21
Tegn: 1
Fejl: Objektet findes ikke på serveren.
Kode: 80072030
Kilde: (null)

Jeg har prøvet en masse, men jeg har nu opgivet og må have hjælp fra en der bedre end mig og det ved jeg der er.