24 lines
698 B
Plaintext
24 lines
698 B
Plaintext
'
|
|
' This Script lists children of a given instance
|
|
'
|
|
|
|
|
|
' Enumerate the children of a specific instance. In this case, the users in the user container
|
|
objPath = "ds_container.ADSIPath=\""LDAP://CN=Users,DC=dsprovider,DC=nttest,DC=microsoft,DC=com\"""
|
|
queryString = "select * from DS_LDAP_Instance_Containment where ParentInstance=""" + objPath + """"
|
|
|
|
|
|
' Execute a query to get its child instances
|
|
Set objEnumerator = GetObject("winmgmts:root\directory\LDAP").ExecQuery(queryString)
|
|
|
|
' Go thru each child instance returned
|
|
For Each objInstance In objEnumerator
|
|
Set propertyEnumerator = objInstance.Properties_
|
|
WScript.Echo propertyEnumerator.Item("ChildInstance")
|
|
Next
|
|
|
|
|
|
|
|
|
|
|