60 lines
1.4 KiB
HTML
60 lines
1.4 KiB
HTML
<HTML>
|
|
|
|
|
|
|
|
<SCRIPT language="vbscript">
|
|
|
|
'
|
|
|
|
' Copyright (c) 1997-2001 Microsoft Corporation
|
|
'
|
|
'
|
|
' This Script list the users in this domain
|
|
'
|
|
|
|
'
|
|
' This is a general routine to enumerate the children of a given instance"
|
|
'
|
|
Sub EnumerateChildren ( objService, objPath )
|
|
|
|
On Error Resume Next
|
|
|
|
Dim objInstance
|
|
Dim objEnumerator
|
|
Set objEnumerator = objService.ExecQuery ( "select ChildInstance from DS_LDAP_Instance_Containment where ParentInstance=" + objPath)
|
|
If Err = 0 Then
|
|
|
|
For Each objInstance In objEnumerator
|
|
|
|
Dim propertyEnumerator
|
|
Set propertyEnumerator = objInstance.Properties_
|
|
WScript.Echo propertyEnumerator.Item("ChildInstance")
|
|
|
|
Next
|
|
Else
|
|
WScript.Echo "Err = " + Err.Number
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub button1_onClick()
|
|
' Start of script
|
|
' Create a locator and connect to the namespace where the DS Provider operates
|
|
Dim objLocator
|
|
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
|
|
Dim objService
|
|
Set objService = objLocator.ConnectServer(".", "root\directory\LDAP")
|
|
|
|
' Set the impersonation level
|
|
objService.Security_.ImpersonationLevel = 3
|
|
|
|
' Enumerate the children of a specific instance. In this case, the users in the user container
|
|
EnumerateChildren objService , "ds_container.ADSIPath=""LDAP://CN=Users,DC=dsprovider,DC=nttest,DC=microsoft,DC=com"""
|
|
End Sub
|
|
|
|
|
|
</SCRIPT>
|
|
|
|
<BUTTON id="button1"> CLick Me </BUTTON>
|
|
|
|
</HTML> |