hallo
mein Skript sieht so aus:
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(3)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Loop
f.Close
Wscript.Quit(0)
Sub BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Dim ouo, b
Set ouo = GetObject("LDAP://OU=Schueler,DC=meine-schule,DC=lcl")
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "displayName", Vorname & " " & Nachname
b.Put "givenName", Vorname
b.Put "sn", Nachname
b.Put "userAccountControl", 66082
b.Put "userPrincipalName", Benutzer & "@meine-schule.lcl"
b.Put "profilePath", "\\srv\daten\profile\" & Benutzer
b.Put "homeDirectory", "\\srv\daten\home\" & Benutzer
b.Put "homeDrive", "Z:"
b.Put "description" , "2007"
b.SetInfo ' // Zeile 33
b.SetPassword Passwort
b.AccountDisabled = False
b.SetInfo
WScript.Sleep(1000)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)
End Sub
Wenn ich jetzt ca. 3-6 Benutzer in der user.txt datei habe funktioniert das wunderbar, nur wenn so um die 20-30 Schüler (eine Klasse) in der user.txt stehen kommt immer nach 6-7 angelegten Benutzern folgende Fehlermeldung:
Skript C:\....\...\benutzerskript.vbs
Zeile: 33
Zeichen: 1
Fehler: Ein an das System angeschlossenes Gerät funktioniert nicht.
Code: 8007001F
Quelle (null)
Die Meldung kommt sowohl bei Server 2000 ( Wirkliches System in Schule) als auch bei Server 2003 (Testsystem in VMware).
Hat diese Fehlermeldung von euch auch jemand und weiß wer was das Problem ist??
Hab auch schon gegoogelt nur leider finde ich nichts brauchbares zu dieser Meldung.
mfg
Bernhard