WIN2K Advanced Server PDC

Twenty · 08.04.2003, 19:11

Den PDC kannst Du nur umbenennen, indem das Du den PDC wieder über DCPROMO entfernst.

Mehrer User kannst Du mit folgendem Beispiel erstellen.

Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
objRootDSE.Get("defaultNamingContext"))
For i = 1 To 1000
Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)
objLeaf.Put "sAMAccountName", "UserNo" & i
objLeaf.SetInfo
Next
WScript.Echo "1000 Users created."

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Zur Linear-Darstellung wechseln Zur Hybrid-Darstellung wechseln Baum-Darstellung

08.04.2003, 19:11	#3
Twenty Jr. Member Registriert seit: 22.04.2002 Beiträge: 46	Den PDC kannst Du nur umbenennen, indem das Du den PDC wieder über DCPROMO entfernst. Mehrer User kannst Du mit folgendem Beispiel erstellen. Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://cn=Users," & _ objRootDSE.Get("defaultNamingContext")) For i = 1 To 1000 Set objLeaf = objContainer.Create("User", "cn=UserNo" & i) objLeaf.Put "sAMAccountName", "UserNo" & i objLeaf.SetInfo Next WScript.Echo "1000 Users created."

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)