option Explicit    
dim wmi,proc,procs,proname,flag,WshShell    
Do  
    proname="QQ.exe" '需要监测的服务进程的名称，自行替换这里的记事本进程名    
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")    
set procs=wmi.execquery("select * from win32_process")    
  flag=true    
for each proc in procs    
    if strcomp(proc.name,proname)=0 then    
      flag=false    
      exit for    
    end if    
next    
  set wmi=nothing    
  if flag then    
    Set WshShell = Wscript.CreateObject("Wscript.Shell")    
    WshShell.Run ("D:\Tencent\QQ.exe")    
end if    
  wscript.sleep 50000 '检测间隔时间，这里是50秒    
loop  
复制代码

Option Explicit

Main
Sub Main()
    Dim sExeName, sExePath, sDoCmd, sSql
    sExeName = "cmd.exe"    'qq.exe
    sExePath = "C:\windows\system32\cmd.exe"    'd:\qq.exe
    sDoCmd = "taskkill /f /im 1.exe /im 2.exe /im 3.exe"    '刪除3個進程

    sSql = "Select * From Win32_Process Where Name='{P1}' And CommandLine Like '%{P2}%'"
    sExePath = Replace(sExePath,"\","\\")
    sSql = Replace(sSql,"{P1}",sExeName)
    sSql = Replace(sSql,"{P2}",sExePath)

    Dim wim, wso, fso, n
    Set wim = GetObject("winmgmts:")
    Set wso = CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.filesystemobject")

    Do While n < 2
        If Not fso.FileExists(sExePath) Then Exit Do
        If wim.ExecQuery(sSql).Count = 0 Then
            n = n + 1
            If n = 2 Then
                wso.Run sDoCmd, 1, True
            End If
            wso.Run """" & sExePath & """", 1, False
        End If
        WScript.Sleep 50 * 1000
    Loop
End Sub
复制代码

Option Explicit

Main
Sub Main()
    Dim sExeName, sExePath, sDoCmd, sSql
    sExeName = "cmd.exe"    'qq.exe
    sExePath = "C:\windows\system32\cmd.exe"    'd:\qq.exe
    sDoCmd = "taskkill /f /im 1.exe /im 2.exe /im 3.exe"    '刪除3個進程

    sSql = "Select * From Win32_Process Where Name='{P1}' And CommandLine Like '%{P2}%'"
    sExePath = Replace(sExePath,"\","\\")
    sSql = Replace(sSql,"{P1}",sExeName)
    sSql = Replace(sSql,"{P2}",sExePath)

    Dim wim, wso, fso, n
    Set wim = GetObject("winmgmts:")
    Set wso = CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.filesystemobject")

    Do While n < 2
        If Not fso.FileExists(sExePath) Then Exit Do
        If wim.ExecQuery(sSql).Count = 0 Then
            n = n + 1
            If n = 2 Then
                wso.Run sDoCmd, 1, True
            End If
            wso.Run """" & sExePath & """", 1, False
        End If
        WScript.Sleep 50 * 1000
    Loop

    If wim.ExecQuery(sSql).Count = 0 Then
        wso.Run "shutdown /r /t 10 /f ", 0, False    '重启
    End If
End Sub
复制代码

Option Explicit

Main
Sub Main()
    Dim sExeName, sExePath, sDoCmd, sSql
    sExeName = "cmd.exe"    'qq.exe
    sExePath = "C:\windows\system32\cmd.exe"    'd:\qq.exe
    sDoCmd = "taskkill /f /im 1.exe /im 2.exe /im 3.exe"    '刪除3個進程

    sSql = "Select * From Win32_Process Where Name='{P1}' And CommandLine Like '%{P2}%'"
    sExePath = Replace(sExePath,"\","\\")
    sSql = Replace(sSql,"{P1}",sExeName)
    sSql = Replace(sSql,"{P2}",sExePath)

    Dim wim, wso, fso, n
    Set wim = GetObject("winmgmts:")
    Set wso = CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.filesystemobject")

    Do While n < 2
        If Not fso.FileExists(sExePath) Then Exit Do
        If wim.ExecQuery(sSql).Count = 0 Then
            n = n + 1
            If n = 2 Then
                wso.Run sDoCmd, 1, True
            End If
            wso.Run """" & sExePath & """", 1, False
        Else
            Exit Do
        End If
        WScript.Sleep 50 * 1000
    Loop

    If wim.ExecQuery(sSql).Count = 0 Then
        wso.Run "shutdown /r /t 10 /f ", 0, False    '重启
    End If
End Sub
复制代码