[英]Access is denied (80070005) when trying to retrieve WMI using SWbemLocator from remote machine
我嘗試連接的遠程計算機如下:
這是我正在使用的代碼:
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計算機相同的配置)上嘗試了相同的代碼,並且工作正常。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.