杀死进程，开始进程

Question

我正在寻找一个VBScript，当用户单击它时，它将检查并查看用户是否正在运行winver.exe进程。 如果进程winver.exe在该用户下运行，它将结束进程；如果进程winver.exe没有在运行，它将继续以下脚本。

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell")
const iHideWindow = 0

objShell.Run """C:\Program Files (x86)\Citrix\ICA Client\wfcrun32.exe"" ""C:\APP.ica"""

Set oShell = CreateObject("WScript.Shell")
oShell.Run "winver", 0 

Answer 1

WMI可能是处理此问题的最佳方法：

Set net = CreateObject("WScript.Network")
user   = LCase(net.UserName)
domain = LCase(net.UserDomain)

Set wmi = GetObject("winmgmts://./root/cimv2")
qry = "SELECT * FROM Win32_Process WHERE Name='winver.exe'"
For Each p In wmi.ExecQuery(qry)
  p.GetOwner u, d
  If LCase(u) = user And LCase(d) = domain Then p.Terminate
Next