ADSI scripting template which prompts you to enter (via StdIn) the name of the computer you want to run the script against. This script pings the remote computer before tyring to make the connection. The script requires Windows Script Host 5.6 and must be run under Cscript.exe.

Visual Basic
Edit|Remove
On Error Resume Next

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

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

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

        Set objComputer = GetObject("WinNT://" & strComputer & "")
        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