The remote server machine does not exist or is unavailable: 'GetObject

[chauho]

Could anyone help?
I used the VBScript below to check something from IBM-Thinkpad T41 (XP Professional) ( this script is okay with other PC- COMPAQ) then I got the error message:
-----------------------------
Line: 2
Char: 1
"The remote server machine does not exist or is navailable: 'GetObject"
Code: 800A01CE
Source: Microsoft VBScript runtime error
----------------------


strComputer ="xyz"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
SysCPU = "Current Clock Speed: " & objItem.CurrentClockSpeed&"Mhz"
Next

 

[mrmovie]

what happens if you pipe strComputer to the screen? is it what you expect it to be?
other than that,is the wmi service/exe running on this machine? is it corrupt? is wmi actually installed?