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

Question

就知道下面这个语句是用来 取机器 t2kadv 的系统信息的， Set dtmSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//t2kadv/root/cimv2:Win32_ComputerSystem= ""t2kadv""")但，不知道在哪里指定登陆t2kadv的用户名和密码。所以执行时总是报错:
run-time error "-2147217375(80041021)"
automation error

Answer 1

修改上述语句为如下后Set dtmSet = GetObject("winmgmts:\\t2kadv\root\cimv2").ExecQuery("Select * from Win32_ComputerSystem ")终于报权限错误了run-time error "70"
permission denied

Answer 2

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

Answer 3

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