想让VBS程序 判断是否存在1.exe进程 没该进程就运行1.exe文件 有进程则不做操作退出脚本 要怎么写求代码

Set prow = GetObject("winmgmts:\\" & strComputer).InstancesOf("Win32_Process")
set shell=createobject("wscript.shell")
Public Function Prpath(ByVal Val)
For Each i In prow
If LCase(i.Name) = LCase(Val) Then
Prpath = Prpath + 1
End If
Next
End Function
if prpath("1.exe")<1 then shell.run "1.exe路径" else wscript.quit

Set wsh=createobject("wscript.shell")
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
name = "1.exe"
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where name='"&name&"'")
If wmiObjects.count=0 then
wsh.Run "D:\1.exe" '这里写1.exe的路径
End If追问

运行错误

追答

Dim wsh,name '开始少了这句
Set wsh=createobject("wscript.shell")
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
name = "1.exe"
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where name='"&name&"'")
If wmiObjects.count=0 then
wsh.Run "D:\1.exe" '这里写1.exe的路径
End If

本回答被提问者采纳