ADSI scripting template which prompts you to enter (via StdIn) the names of all the computers you want to run the script against. Computer names should be separated by blanks spaces. For example: atl-ws-01 atl-ws-02 atl-ws-03. This script prompts you to enter a user name and password to be used when connecting to the remote computers. 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 names of the computers you want to connect to: "

strComputers = WScript.StdIn.ReadLine

If strComputers = "" Then
    Wscript.Quit
End If

arrComputers = Split(strComputers, " ")

For Each strComputer in arrComputers

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

Next