定时关闭进程VBS脚本

定时关闭进程VBS脚本  转载 死性不改

strProList = "QQ农场小帮手1.56.exe;QQ牧场全能助手 v2.1.exe"   '以分号分隔进程名
dtmTime = "2010-3-4 23:01:59"   '关闭进程的时间(年-月-日 时:分:秒)

arrPro = Split(strProList,";")
Do
  If Datediff("s",Date& " "& Time,dtmTime)< = 0 Then
   for a = 0 to LBound(arrPro)
    Killprcgram(arrPro(a))
   next
   WScript.Quit
  End If
  WScript.Sleep 10000
Loop


Function Killprcgram(Pro)
  Set objWMIService = Getobject("winmgmts:.rootcimv2")
  set objs =objwmiservice.execQuery("select * from Win32_Process where name='"& Pro& "'")
  For Each obj in objs
   obj.Terminate
  Next
  Set objs = Nothing
  Set objWMIService = Nothing
End Function