2
VBS - User inkl. PW im AD automatisch aus einer CSV erstellen
Hallo,
ich brauche wiedereinmal eure Hilfe.
Es soll ein Skript erstellt werden, welches automatisch Benutzerobjekte aus einer Tabelle (CSV Datei) in einem AD unterhalb einer OU (hier "testou") erstellt.
Er zeigt mir in folgenden zeile einen Fehler an (rot markiert). Scheinbar kann er das Passwort nicht zuordnen.
Verbesserungsvorschläge begrüße ich, da ich noch ein Anfänger beim programmieren bin
Danke im vorraus
option explicit
dim objrootLDAP, objcontainer, objuser, objshell
dim fso, line, data, file, strou, strpw, strsam, strcn
set fso = createobject("scripting.filesystemobject")
set file = fso.opentextfile("user.csv", 1, false)
strou = "ou = testou ,"
Set objrootLDAP = getobject("LDAP:rootDSE")
Set objcontainer = getobject("LDAP:" & strou & objrootLDAP.Get("defaultnamingcontext"))
while not file.atendofstream
line = file.readline()
data = split(line,";")
strsam = data(0)
strcn = data(0)
strpw = data(1)
Set objUser = objContainer.Create("User", "cn=" & strcn)
objuser.sAMAccountName = strsam
objuser.SetPassword strpw
wend
file.close
dim objrootLDAP, objcontainer, objuser, objshell
dim fso, line, data, file, strou, strpw, strsam, strcn
set fso = createobject("scripting.filesystemobject")
set file = fso.opentextfile("user.csv", 1, false)
strou = "ou = testou ,"
Set objrootLDAP = getobject("LDAP:rootDSE")
Set objcontainer = getobject("LDAP:" & strou & objrootLDAP.Get("defaultnamingcontext"))
while not file.atendofstream
line = file.readline()
data = split(line,";")
strsam = data(0)
strcn = data(0)
strpw = data(1)
Set objUser = objContainer.Create("User", "cn=" & strcn)
objuser.sAMAccountName = strsam
objuser.SetPassword strpw
wend
file.close
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 116916
Url: https://administrator.de/contentid/116916
Printed on: April 25, 2024 at 19:04 o'clock
2 Comments
Latest comment
Skript wurde geändert:
Ich habe die Passwortoption nun raus gelassen (erstmal). das Skript läuft auch soweit durch, zeigt keine Fehler an, nur wird leider kein User angelegt
Was ist daran falsch?
option explicit
dim objrootLDAP, objcontainer, objuser, objshell
dim fso, line, data, file, strcontainer, strpw, struser
set fso = createobject("scripting.filesystemobject")
set file = fso.opentextfile("user.csv", 1, false)
strcontainer = "ou=test ,"
Set objrootLDAP = getobject("LDAP:rootDSE")
Set objcontainer = GetObject("LDAP:" & strcontainer & _
objrootLDAP.Get("defaultNamingContext"))
while not file.atendofstream
line = file.readline()
data = split(line,";")
struser = data(0)
strpw = data(1)
Set objuser = objcontainer.create("User", "cn=" & struser)
objuser.put "sAMAccountName", struser
objuser.put "givenName", struser
'objuser.SetInfo
'objuser.SetPassword strpw
Wend
Set objShell=CreateObject("WScript.Shell")
objShell.Run "%systemroot%\system32\dsa.msc"
file.close
Ich habe die Passwortoption nun raus gelassen (erstmal). das Skript läuft auch soweit durch, zeigt keine Fehler an, nur wird leider kein User angelegt
Was ist daran falsch?
option explicit
dim objrootLDAP, objcontainer, objuser, objshell
dim fso, line, data, file, strcontainer, strpw, struser
set fso = createobject("scripting.filesystemobject")
set file = fso.opentextfile("user.csv", 1, false)
strcontainer = "ou=test ,"
Set objrootLDAP = getobject("LDAP:rootDSE")
Set objcontainer = GetObject("LDAP:" & strcontainer & _
objrootLDAP.Get("defaultNamingContext"))
while not file.atendofstream
line = file.readline()
data = split(line,";")
struser = data(0)
strpw = data(1)
Set objuser = objcontainer.create("User", "cn=" & struser)
objuser.put "sAMAccountName", struser
objuser.put "givenName", struser
'objuser.SetInfo
'objuser.SetPassword strpw
Wend
Set objShell=CreateObject("WScript.Shell")
objShell.Run "%systemroot%\system32\dsa.msc"
file.close
k,
ich konnt mir 20 mal in den hintern beißen, das Skript geht.
in der CSV Datei stand ein Username mit einem Komma drin, naja und bei Windows Usern darf kein Komma drin sein -.-
man man man ......
ich konnt mir 20 mal in den hintern beißen, das Skript geht.
in der CSV Datei stand ein Username mit einem Komma drin, naja und bei Windows Usern darf kein Komma drin sein -.-
man man man ......
