定时关闭进程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