Vbscript VB脚本GetObject方法错误…请帮助WMI

此时，我收到错误消息：

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

---

完全重写

下面是由生成的代码，只需进行很小的编辑

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

---

您好，谢谢您的回复，但您能指出我在哪里忘记放反斜杠了吗？因为我刚刚将代码与您的代码进行了比较，它们完全相同。帖子已编辑，原始问题不再可见。我在回复中引用了原文。您可以通过单击“编辑n分钟”查看原始帖子。您好，Remou，谢谢您的更新，但我正在粘贴我的全部代码，您能在我挣扎时进行更改吗，我已经按照您所说的做了，但仍然会给我错误：************************************SCOComputer=“.”Set-oWMIService=GetObject（“winmgmts:{impersonationLevel=impersonate}！\\“&scocomputer&“\root\cimv2”）Set colComputer=oWMIService.ExecQuery（“从Win32\U计算机系统中选择*”）如果删除，原始帖子确实有impersonate}！\\，但我认为SO格式化程序在代码外使用\作为转义字符，所以\\变成\（请参阅它在编辑中是如何做到这一点的）。最近的编辑消除了一个重要问题，这使得很难提供合理的更正：（@Spida；你能发布所有的代码吗；这段代码对我很有用。另外，你在什么操作系统上运行这段代码？Spida发布的内容缺少\他需要确认这是否在代码中，或者只是一个输入错误。好的，根据下面的注释，我把\放回了，但保留了格式。

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