Connecting to a remote computer using VBScript

[umass]

Hey all,

 

I am trying to create a script that connects to a remote computer to get the OS that is running on it. It is a fairly simple code that I have written, and though it works for the local computer, as soon as I change the strComputer to a remote computer name it does nothing. I am querying this info out of Windows Server 2008 database. Think you can help?

 

Here is my code:

 

Option Explicit

Dim objWMIService, objItem, colItems, counter

Dim strComputer, strList, objOS, stringArray

 

On Error Resume Next

strComputer = "."

strOS = "XP"

str7 = "7"

 

 

' WMI Connection to the object in the CIM namespace

Set objWMIService = GetObject("winmgmts:\\" _

& strComputer & "\root\cimv2")

 

' WMI Query to the Win32_OperatingSystem

Set colItems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

 

' For Each... In Loop (Next at the very end)

For Each objItem in colItems

objOS=objItem.Caption & VbCr

Next

 

stringArray = Split(objOS)

for counter=0 to UBound(stringArray)

if (stringArray(counter)=strOS) then

Wscript.Echo "Windows XP"

Exit for

End if

if (stringArray(counter)=str7) then

Wscript.Echo "Windows 7"

Exit for

End if

next

WSCript.Quit

 

' End of WMI Win32_OperatingSystem VBScript

[iMash]

The two things I can think of are....

 

Is there a firewall running on the remote server? and if so is it set to allow WMI queries through?

 

And also try setting the impersonation level for authentication on the remote server.

 

I have a script that gets the current user of the remote machine that works using WMI. Dont know if it will help so I will paste the appropriate piece of code below.

 

Function GetLocallyLoggedOnUser(strComputer)
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  

Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
 
For Each objComputer in colComputer
	'WScript.Echo " " & objComputer.UserName
    GetLocallyLoggedOnUser = objComputer.UserName
Next
End Function