59769
Jul 02, 2008, updated at Jul 03, 2008 (UTC)
5129
2
0
VBS Fehlermeldung beim User erstellen im AD
Hallo zusammen
Hoffe mir kann jemand helfen...
Ich habe einen Script geschrieben um User in AD zu erfassen, die es mir aus einem Excel Sheet liest.
Hier mein Script:
Set XL = WScript.CreateObject("Excel.Application")
XL.Workbooks.Open "c:\test.xls"
i = 1 'Zeilennummer der ersten Datenzeile
Do While XL.Worksheets(1).Cells(i,1).Value <> ""
strVorname = XL.Worksheets(1).Cells(i,3).Value
strNachname = XL.Worksheets(1).Cells(i,2).Value
Set RootDSE = GetObject("LDAP:RootDSE")
path = "LDAP:OU=Schüler," & RootDSE.Get("defaultNamingContext")
Set objContainer = GetObject(path)
Set objKonto = objContainer.Create("user", "CN=strVorname.strNachname")
objKonto.SamAccountName = "strVorname.strNachname"
objKonto.Description = "Ein neues Konto"
objKonto.SetInfo
With objKonto
.Profile = "\\DC\Users\%username%\Profile"
.LoginScript = "login1.vbs"
.HomeDirDrive = "H":
.HomeDirectory = "\\DC\Users\%username%\Home"
objKonto.SetPassword "Geheim99"
objKonto.AccountDisabled = False
objKonto.SetInfo
i = i + 1
Loop
WScript.Echo "User erfolgreich erstellt!"
WScript.Quit
Nun kommt aber immer die Meldung, loop ohne do gehe nicht...das do steht doch da? Was mache ich falsch? und würde der Script so überhaupt funktionieren?
Hoffe mir kann jemand helfen...
Ich habe einen Script geschrieben um User in AD zu erfassen, die es mir aus einem Excel Sheet liest.
Hier mein Script:
Set XL = WScript.CreateObject("Excel.Application")
XL.Workbooks.Open "c:\test.xls"
i = 1 'Zeilennummer der ersten Datenzeile
Do While XL.Worksheets(1).Cells(i,1).Value <> ""
strVorname = XL.Worksheets(1).Cells(i,3).Value
strNachname = XL.Worksheets(1).Cells(i,2).Value
Set RootDSE = GetObject("LDAP:RootDSE")
path = "LDAP:OU=Schüler," & RootDSE.Get("defaultNamingContext")
Set objContainer = GetObject(path)
Set objKonto = objContainer.Create("user", "CN=strVorname.strNachname")
objKonto.SamAccountName = "strVorname.strNachname"
objKonto.Description = "Ein neues Konto"
objKonto.SetInfo
With objKonto
.Profile = "\\DC\Users\%username%\Profile"
.LoginScript = "login1.vbs"
.HomeDirDrive = "H":
.HomeDirectory = "\\DC\Users\%username%\Home"
objKonto.SetPassword "Geheim99"
objKonto.AccountDisabled = False
objKonto.SetInfo
i = i + 1
Loop
WScript.Echo "User erfolgreich erstellt!"
WScript.Quit
Nun kommt aber immer die Meldung, loop ohne do gehe nicht...das do steht doch da? Was mache ich falsch? und würde der Script so überhaupt funktionieren?
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: 91157
Url: https://administrator.de/contentid/91157
Printed on: April 19, 2024 at 20:04 o'clock
2 Comments
Latest comment
Hallo Muecke!
Es ist ein steter Quell der Freude, die Interpretationsversuche des Interpreters hinsichtlich nicht abgeschlossener Blöcke interpretieren zu dürfen ...
Tatsächlich fehlt das "End With", aber den Letzten ("Loop") beißen die Hunde.
Grüße
bastla
Es ist ein steter Quell der Freude, die Interpretationsversuche des Interpreters hinsichtlich nicht abgeschlossener Blöcke interpretieren zu dürfen ...
Tatsächlich fehlt das "End With", aber den Letzten ("Loop") beißen die Hunde.
Grüße
bastla
Hallo Bastla
Danke für die Hilfe, aber es funktioniert leider auch mit dem End With nicht...es kommt immer die Meldung, ein Gerät sei nicht angeschlossen. Kriegs irgendwie nicht hin
Gruss Muecke
Danke für die Hilfe, aber es funktioniert leider auch mit dem End With nicht...es kommt immer die Meldung, ein Gerät sei nicht angeschlossen. Kriegs irgendwie nicht hin
Gruss Muecke
