hallo thorgood!
hab ein problem mit deinem script:
benutze w2k-srv sp3 als dc für domain test.com; bin als admin angemeldet.
hab deine 3 scripts mit copy & paste in dateien gespeichert, mit den dateinamen wie in deinem script. wenn ich das script ausführe erhalte ich eine fehlermeldung dieser Art:
skript: c:\create-user.vbs
zeile 20
zeichen 1
Fehler 0x80005000
Code 80005000
Quelle (null)
hier der auszug des create_user.vbs - scripts
Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("user.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")
Benutzer = Feld(0)
Vorname = Feld(1)
Nachname = Feld(2)
Passwort = Feld(2)
Call BenutzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Loop
f.Close
Wscript.Quit(0)
Sub BenutzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Dim ouo, b
set ouo = GetObject("LDAP://OU=users,DC=test,DC=com,") -->>ZEILE 20!!!
set b = ouo.Create("users", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "userPrincipalName", Benutzer & "@test.com"
b.Put "profilePath", "\\srv\profile\" & Benutzer
b.Put "homeDirectory", "\\srv\home\" & Benutzer
b.Put "homeDrive", "h:"
b.SetInfo
b.SetPassword Passwort
b.AccountDisabled = False
b.SetInfo
WScript.Sleep(1000)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)
End Sub