WMI 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 machine. The script requires Windows Script Host 5.6 and must be run under Cscript.exe.

Visual Basic
Edit|Remove
On Error Resume Next

Const WbemAuthenticationLevelPktPrivacy = 6

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)
strNamespace = "root\cimv2"

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 objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
    (strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy


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

Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_OperatingSystem")
For Each objItem in ColItems
    Wscript.Echo strComputer & ": " & objItem.Caption
Next

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