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。