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

Please also mark the comments that contributed to the solution of the article

Content-Key: 92954

Url: https://administrator.de/contentid/92954

Printed on: April 26, 2024 at 07:04 o'clock

German solved Question VB for Applications Development