1

我尝试连接的远程机器如下：

  • Windows 嵌入式标准 7 (SP1)。
  • 在工作组中配置。
  • 我使用的凭据来自管理员帐户。
  • 我已将所有权限授予 CIMV2 命名空间中的“所有人”组，包括所有子文件夹和条目 (wmimgmt.msc)。
  • 我已将组件服务 (dcomcnfg.exe ）。
  • Windows 防火墙已禁用。

这是我正在使用的代码：

Dim remotets, objComputer, colComputereremote, strComputer
Dim objSWbemLocator, objWMIServiceremote

strComputer = "XTEMB4" 
WScript.Echo strComputer

'Get remote machine WMI service object  
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIServiceremote = objSWbemLocator.ConnectServer(strComputer, "root\CIMV2", "dts", _
"dts", "MS_409", "ntlmdomain:" & "")
Set colComputereremote = objWMIServiceremote.ExecQuery _
("Select * from Win32_OperatingSystem")

For Each objComputer in colComputereremote
    remotets = objComputer.LocalDateTime
    WScript.Echo remotets
Next

WScript.Quit

我在 Windows XP Embedded 机器上尝试了相同的代码（与 Win7 机器相同的配置），它工作正常。

4

1 回答 1

1

在挖掘了一些相关问题后，我发现了一个对我有用的建议：我必须将用于远程访问 WMI 的用户帐户添加到“分布式 COM 用户”组中”和“性能监视器用户”。这需要在目标远程 Windows 7 机器中进行更改。

该信息可在此链接中找到。

此外，可以在此处找到有关如何将用户添加到 Windows 7 标准中的特定组的信息。

于 2016-03-18T17:49:50.080 回答