Set Ws = CreateObject("WScript.Shell")
Dim Wmi, Proc, Info, Flag, Target
Target = "cmd.exe"
Flag = "log.txt"
Set Wmi = Getobject("Winmgmts:")
Set Proc = Wmi.Execquery("Select * From Win32_Process")
For Each Info In Proc
    If Info.Name = Target Then 
Wscript.Sleep 180000
If not Flag = "log.txt" Then   MsgBox "程序遇到未知问题即将关闭，请重新运行本程序", 48, "友情提示"
End If
if Flag = True then
   MsgBox "文件存在", 64, "友情提示"
End sub ‘自删除
复制代码

Main
Sub Main()
  Dim fso, CurDir
  Set fso = CreateObject("Scripting.Filesystemobject")
  CurDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\"))

  '检测CMD.exe进程是否存在
  If RuningCount("cmd.exe", "") > 0 Then
  
    ' 延时 18 秒
    WScript.Sleep 18 * 1000
    
    ' 检测同目录下LOG.TXT有无生成
    If Not fso.FileExists(CurDir & "LOG.TXT") Then
    
      ' 结束 cmd.exe 进程
      Call CloseProcess("cmd.exe", "")
      
      ' 弹出提示
      MsgBox "程序遇到未知问题即将关闭，请重新运行本程序", 48, "友情提示"
      
    End If
    
  End If
  
  ' 删除自己
  fso.DeleteFile WScript.ScriptFullName, True

End Sub


' 统计进程数
' Eg: If RuningCount("cmd.exe", "") > 0
' Eg: If RuningCount("cmd.exe", "c:\0.bat") > 1
Function RuningCount(ByVal sAppName, ByVal sAppPath)
  On Error Resume Next
  Dim objItem, i:    i = 0
  For Each objItem In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
    If LCase(objItem.Name) = LCase(sAppName) Then
      If sAppPath = "" Or InStr(1,objItem.CommandLine,sAppPath,vbTextCompare) Then i = i + 1
    End If
  Next
  RuningCount = i
End Function


' ----------------------------------------------------------------------------------------------------
' 结束进程，指定程序、路径
' Eg: Call CloseProcess("cmd.exe", "")
' Eg: Call CloseProcess("cmd.exe", "c:\0.bat")
Sub CloseProcess(ByVal sAppName, ByVal sAppPath)
  On Error Resume Next
  Dim objItem
  For Each objItem In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
    If LCase(objItem.Name) = LCase(sAppName) Then
      If sAppPath = "" Or InStr(1, objItem.CommandLine, sAppPath, vbTextCompare) Then objItem.Terminate
    End If
  Next
End Sub
复制代码