0

尝试从机器远程执行简单的 dns 刷新，但出于某种原因 - 我需要以管理员身份运行 cmd。cmd 亲自在帐户下运行良好，但您需要执行整个右键单击 -> 以管理员身份运行。

现在，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)
4

1 回答 1

1

用于PsExec此目的。不要打扰VBScript。

于 2013-06-12T17:30:52.573 回答