ADSI scripting template which prompts you to enter (via StdIn) the name of the computer you want to run the script against. This script prompts you to enter a user name and password to be used when connecting to the remote computer. The script requires Windows Script Host 5.6 and must be run under Cscript.exe.

Visual Basic
Edit|Remove
On Error Resume Next

Const ADS_SECURE_AUTHENTICATION = 1
Const ADS_USE_ENCRYPTION = 2

Wscript.StdOut.Write "Please enter the user name, a blank space, and then the password: "
strCredentials = WScript.StdIn.ReadLine

arrCredentials = Split(strCredentials," ")
strUser = arrCredentials(0)
strPassword = arrCredentials(1)

Wscript.StdOut.Write "Please enter the name of the computer you want to connect to: "
strComputer = WScript.StdIn.ReadLine

If strComputer = "" Then
    Wscript.Quit
End If

strComputer = "WinNT://" & strComputer

Set objDSO = GetObject("WinNT:")
Set objComputer = objDSO.OpenDSObject _
    (strComputer, strUser, strPassword, _
        ADS_SECURE_AUTHENTICATION AND ADS_USE_ENCRYPTION)

' =====================================================================
' Insert your code here
' =====================================================================

objComputer.Filter = Array("User")
For Each objUser in objComputer
    Wscript.Echo objUser.Name
Next

' =====================================================================
' End
' =====================================================================