AD Scripting - 10 Benutzer werden angelegt - ERROR

Hallo zusammen,

ich habe ein kleines Problem mit einem Script.

Hier erst mal das Script:

Set objRootDSE = GetObject("LDAP://rootDSE")  

Set objContainer = GetObject("LDAP://cn=Users," & _  
    objRootDSE.Get("defaultNamingContext"))  
 
For i = 1 To 10
    Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)  
    
	objLeaf.Put "sAMAccountName", "UserNo" & i  
    objLeaf.Put "pwdLastSet", 0  
	objLeaf.Put "displayName", "lastn, firstn - %USERDNSDOMAIN%"  
    objLeaf.Put "givenName", "firstn"  
    objLeaf.Put "initials", "in"  
    objLeaf.Put "sn", "lastn"  
    objLeaf.Put "physicalDeliveryOfficeName", "room"   
	

    objLeaf.SetInfo
Next
 
WScript.Echo "10 Users created. "  

Jedoch kann ich leider folgende Funktionen nicht einfügen:

    objLeaf.AccountDisabled = FALSE
	objLeaf.SetPassword "123456"  
	objLeaf.AccountExpirationDate = "12/30/2010"  

hier bekomme ich folgende Fehlermeldung:

c:\usercreate.vbs(33, 2) Active Directory: The directory property cannot be found in the cache.

Der Fehler hier könnte sein, dass das Objekt nocht nicht angelegt ist. Aber ehrlichgesagt komme ich hier nicht weiter.

Ich freue mich über vorschläge.

edit:
mach das mit einem nachgesteuerten Script