Hallo Zusammen

Ich hab ein kleines Problemchen mit unserem Script welches die User anhand von Variabeln selbst erstellt. Und zwar kommt immer diese Meldung:

Windows Script Host
Error: Tere is no such object on the Server.
Code 800772030
Source: (null)

hab bereits gegoogelt und leider nichts herausgefunden. Hier noch kurz der Teil des Scripts der das Problem verursacht:

Function CreateUser()
Set objUser = GetObject("LDAP://OU=User_Standard ,ou=Firma,dc=Domain,dc=LOCAL")
Set objUser = objUser.Create("User", "cn="&strUserGivenName&" "& strUserSurName)

objUser.Put "samAccountName", strUserName
objUser.Put "GivenName", strUserSurname
objUser.Put "sn", strUserGivenname
objUser.Put "DisplayName", strUserGivenname & " " & strUserSurname & " " & strkws
objUser.Put "UserPrincipalName", strusername & strUserdomain
objUser.Put "ProfilePath", "\\" & strHomeserver & "\" & strProfileDirPath & "\" & strusername
objUser.Put "HomeDrive", strHomeDrive
objUser.Put "HomeDirectory", "\\" & strHomeServer & "\" & strHomeDirPath & "\" & strusername
objUser.Put "ScriptPath", strLoginScript


objUser.AllowLogon = 1
objUser.TerminalServicesHomeDirectory = "\\" & strProfileServer & "\" & strTSEHomeDirPath & "\" & strUserName
objUser.TerminalServicesHomeDrive = strTSEHomeDrive
objUser.TerminalServicesProfilePath = "\\" & strProfileServer & "\" & strTSEProfileDir & "\" & strusername


'Abfrage ob Angaben korrekt
strMsgBox = "Angaben korrekt?:" & vbNewLine & vbNewLine
strMsgBox = strMsgBox & "User Login:" & " " & strusername & vbNewLine
strMsgBox = strMsgBox & "User Nachname:" & " " & strUserGivenname & vbNewLine
strMsgBox = strMsgBox & "User Vorname:" & " " & strUserSurname & vbNewLine & vbNewLine & vbNewLine
strMsgBox = strMsgBox & "YES = User jetzt erstellen " & vbNewLine
strMsgBox = strMsgBox & "NO = Eingabe ändern" & vbNewLine & vbNewLine
strMsgBox = strMsgBox & "CANCEL = Script beenden" & vbNewLine & vbNewLine & vbNewLine
bMsgBoxRet = MsgBox(strMsgBox, vbQuestion + vbYesNoCancel + vbDefaultButton3, "ADS User Accounts Creation KWS")

Select Case bMsgBoxRet
Case 2
WScript.Echo("Abbruch gewählt")
WScript.Quit
objUser.SetInfo
Case 6

Set objUser = GetObject("LDAP://cn="&strUserGivenName&" "& strUserSurName &",OU=User_Standard ,ou=Firma,dc=Domain,dc=LOCAL")


objUser.AccountDisabled = False
objUser.SetPassword strInitPassw
objUser.SetInfo

Das Problem liegt laut Fehlermeldung bei der Zeile:

Set objUser = GetObject("LDAP://cn="&strUserGivenName&" "& strUserSurName &",OU=User_Standard ,ou=Firma,dc=Domain,dc=LOCAL")

Die OU- Struktur ist jedoch so vorhanden wie im Script angegebn. Hat jemand von euch eine Idee was für ein Problem mein Script hat und wie ich es lösen könnte? Viele Dank im Voraus für Antworten und Tipps.

Gruss Thailwip