VBScript管理CMD命令远程执行

Question

试图从机器远程执行一个简单的dns刷新，但出于某种原因或其他 - 我需要运行cmd作为管理员。该cmd可以在账户下亲自运行，但您需要执行整个右键单击 - >以admin身份运行。

现在，remotePC被设置为本地或'。'

Set shl = WScript.CreateObject("WScript.Shell") 

'Input remote PC 
remotePC = "." 

'Command which will be executed 
strCommand = "cmd.exe /C cd C:\WINDOWS\system32 & ipconfig.exe /flushdns & pause" 

'Connect to the remote PC 
'Impersonate with the default level? 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & remotePC & "\root\cimv2") 

Set objProcess = objWMIService.Get("Win32_Process") 

errReturn = objProcess.Create(strCommand, null, null, intProcessID) 

Answer 1

为此目的使用PsExec。不要打扰VBScript。