Hallo zusammen,
Ich würde gerne das Script einsetzen, habe mir alle Seiten zum Thema durchgelesen aber leider komme ich über die Zeile 20 nicht hinaus.
Fehler: Zeile20 der übermittelte Verzeichnispfad ist ungültig Code800500 Active Directory.
Ich habe einen Win2003 Server und 320 User die will ich nunwirklich nicht alle eintippen. Vielleicht kann mir einer einen Tipp geben. Ich hab mir einen Wolf gelesen aber komm nicht weiter.
Hier der Auszug aus meinem Script:
Ab zeile 14
Sub BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Dim ouo, b
Set ouo = GetObject("LDAP://CN=Users,DC=SEG,DC=newage-avkseg,DC=com")
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 & "@SEG.newage-avkseg.com"
b.Put "profilePath", "\\SEG-DC\daten\profile\" & Benutzer
b.Put "homeDirectory", "\\SEG-DC\daten\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
Über Hilfe würde ich mich wirklich freuen
Gruß pablo4000