vbs 检测进程 如有则关闭进程 如无 则继续循环

set abc=getobject("winmgmts:\\")

do

set pr=abcinstancesof("win32_process")

for each p in pr

if pname="aexe" or pname="bexe" or pname="cexe" then

pterminate()

p2=p2 & pname & ";"

else

end if

wscriptecho "关闭进程: " & p2

wscriptsleep 5000

loop

A程序的路径在哪？自己输入吧，A程序的名称自己改一下。

Dim WMI,colProc,ProcName

Set wShell=CreateObject("WscriptShell")

Set WMI=GetObject("winmgmts:\\\root\cimv2")

ProcName=InputBox("输入进程路径")

Do

Set colProc=WMIExecQuery("Select From Win32_Process Where Name='Aexe'")

If colProcCount=0 Then

wShellRun ProcName

End If

WScriptSleep 1000

Loop

set r = createobject("wscriptshell")

for each ps in getobject("winmgmts:\\\root\cimv2:win32_process")instances_

if psexecutablepath="c:\1exe" then

rrun "c:\2exe"

wscriptquit

end if

next

rrun "c:\1exe"

rrun "c:\2exe"

set r = nothing

$Msg = Add-Type -memberDefinition @"

[DllImport("User32")]

public static extern int MessageBox(long hWnd,string lpText,string lpCaption,int uType);

"@ -passthru -name msg

$p=$MyInvocationMyCommandpath

function MsgBox($text){

$Msg::MessageBox(0,$text,$p,64)

}

$f=dir -r 'hkcu:\firefox'|Select-Object -First 1 -Property Name

if($f){

    '已安装'

    Exit #退出程序

}else{

    '未安装'

    MsgBox '正在为您安装firefox中'

    #这里写安装程序路径，去掉#即可，比如d:\firefoxexe

}

保存为ps1类型文件

以上就是关于vbs 检测进程 如有则关闭进程 如无 则继续循环全部的内容，包括:vbs 检测进程 如有则关闭进程 如无 则继续循环、我想用VBS检测A程序是否在运行 如果在就不执行A程序． 不在运行就执行A程序 然后这样一直自动循环、怎样用vbs判断一个程序是否正在运行等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！