benutzer anlegen mit script

[mikey20333]

hi, ich weiß das ist ein altes thema habe die alten forenbeiträge gelesen und verschiedene scripte ausprobiert leider alles ohne erfolg vielleicht könnt ihr mir da weiterhelfen.


Hi, leider funktioniert bei mir das script nicht richtig.
habe nur als versuch eine testdomäne augesetzt. mit kurs.local
windows server 2008r2 jetzt möchte ich mit dem script eine Organisationseinheit anlegen und darunter die benutzer jedoch ohne die laufwerke home und profil ordner. mein servername: server1

könnt ihr mir da bitte weiterhelfen

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=User,DC=kurs,DC=local")
Set b = ouo.Create("User", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "userPrincipalName", Benutzer & "@domaene.local"
b.Put "profilePath", "\\server\daten\profile\" & Benutzer
b.Put "homeDirectory", "\\server\daten\home\" & Benutzer
b.Put "homeDrive", "U:"
b.SetInfo
b.SetPassword Passwort
b.AccountDisabled = False
b.SetInfo
WScript.Sleep(1000)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)
End Sub

[mikey20333]

hallo habe mich in der zwischenzeit etwas damit beschäftig und komme jetzt schon etwas weiter früher war immer Fehler in zeile 19
jetzt

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=Abteilungen,DC=kurs,DC=local")
Set b = ouo.Create("Test", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "userPrincipalName", Benutzer & "@domaene.local"
b.Put "profilePath", "\\server\rofile$\" & Benutzer
b.Put "homeDirectory", "\\server\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

jetzt kommt der fehler in zeile 32, zeichen 1 code: 8007200A
das angegebene verzeichnisdienstattribut bzw. der angegebene verzeichnichdienstwert ist nicht vorhanden

lg
mikey

[mikey20333]

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://CN=Users,DC=kurs,DC=local")
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 & "@kurs.local"
b.Put "profilePath", "\\Server1\profile$\" & Benutzer
b.Put "homeDirectory", "\\Server1\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


bin jetz etwas weitergekommen aber noch blicke ich nicht bei der sache durch
jetzt kommt der fehler zeile 32, 80071392 das objet ist bereits vorhanden.
wenn ich im active directory users nachsehe wird der erste user bereits angelegt mit home und profil laufwerk.

aber es kommt immer wieder ein error

[Sunny61]

Hilft dir bei deinem Script vermutlich nicht weiter, aber insgesamt kommst Du bestimmt weiter: faq-o-matic.net Excel: Admins unbekannter Liebling

[NilsK]

Moin,

vielleicht erzählst du erst mal, was du überhaupt erreichen willst. Deinen Postings nach scheinst du mit ADSI-Scripting, wahrscheinlich sogar mit Scripting allgemein, keine Erfahrung zu haben.

Also, wo willst du hin?

Gruß, Nils