ADSI scripting template that pops up an input box and prompts you to enter 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.

Visual Basic
Edit|Remove
On Error Resume Next

Const ADS_SECURE_AUTHENTICATION = 1
Const ADS_USE_ENCRYPTION = 2

strCredentials = InputBox _
    ("Please enter the user name, a blank space, and then the password:", _
        "Enter User Credentials")

If strCredentials = "" Then
    Wscript.Quit
End If

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

strComputer = InputBox _
    ("Please enter the name of the computer you want to connect to:", _
        "Enter Computer Name")

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
' =====================================================================