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. It also pings that computer before trying to make a connection.

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

Set objShell = CreateObject("WScript.Shell")
strCommand = "%comspec% /c ping -n 3 -w 1000 " & strComputer & ""
Set objExecObject = objShell.Exec(strCommand)

Do While Not objExecObject.StdOut.AtEndOfStream
    strText = objExecObject.StdOut.ReadAll()
    If Instr(strText, "Reply") > 0 Then

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

    Else
        Wscript.Echo strComputer & " could not be reached."
    End If
Loop