VB Script GetObject method error...Help please WMI

Question

Hi below is the code, at this point i get error message:

Set objWMI = GetObject("winmgmts:" _
          & "{impersonationLevel=impersonate}!\\" _
          & strComputer & "\root\cimv2")

---

Error: Invalid procedure call or Argument: "GetObject"
Code: 800A005
Source: Microsoft VBScript Runtime error

Answer 1

Complete rewrite.

Here is the code generated by WMI Code Creator, with very minor editing.

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystem",,48) 
For Each objItem in colItems 
    MsgBox "CurrentTimeZone: " & objItem.CurrentTimeZone
Next

Answer 2

Do you know this tool WMI Code Creator, good for learn WMI, has many examples.