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?