WMI怎么连接上远程机器，登陆名和密码怎么设置？

[tomjun]

就知道下面这个语句是用来 取机器 t2kadv 的系统信息的，

Set dtmSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//t2kadv/root/cimv2:Win32_ComputerSystem= ""t2kadv""")

但，不知道在哪里指定登陆t2kadv的用户名和密码。所以执行时总是报错:
run-time error "-2147217375(80041021)"
automation error

[tomjun]

修改上述语句为如下后

Set dtmSet = GetObject("winmgmts:\\t2kadv\root\cimv2").ExecQuery("Select * from Win32_ComputerSystem ")

终于报权限错误了

run-time error "70"
permission denied

[tomjun]

大虾们，怎么传递管理员用户名和密码给WMI啊？

[gpyrbn]

我实在的 我刚到这里来 连发表自己的问题都不知道在哪儿发？？？？有可以帮忙的吗？？？

[tomjun]

strComputer = "atl-dc-01"
strDomain = "Fabrikam"
strUser = "kenmyer"
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer _
(strComputer, _ ' Computer name
"root\cimv2", _ ' Namespace
strDomain\strUser, _ ' Domain\User
"password1") ' Password
Set colSwbemObjectSet = objSWbemServices.ExecQuery _
("Select * From Win32_Process")
For Each objProcess in colSWbemObjectSet
Wscript.Echo "Process Name: " & objProcess.Name
Next

[tomjun]

做个备份在这里，明天结贴，跟贴有分。