59769
Jul 02, 2008, updated at Jul 03, 2008 (UTC)
5132
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?
Please also mark the comments that contributed to the solution of the article
Content-Key: 91157
Url: https://administrator.de/contentid/91157
Printed on: May 4, 2024 at 07:05 o'clock
2 Comments
Latest comment