【VBScript Shell】使用vbs shell在指定时间段内自动结束某个进程

以下vbs代码段实现在特定时间段将指定的进程kill掉：

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Usage:'' cscript AutoTerminateTicCopyBat.vbs >> terminatecopy.log'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Global Constants Initialization''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''COMMAND_TO_TERMINATE = "copy-data.bat"HOUR_OF_ENDTIME_IN_GMT8 = 16'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Terminates the specific process during the given time range''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Function TerminatesCmdProcess(strProcess)Dim objProcessesstrComputer = "."Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name ='cmd.exe' and "_   & " CommandLine like '%" & COMMAND_TO_TERMINATE & "%'")For Each objProcess in colProcessesobjProcess.Terminate()WScript.Echo Now() & " Automatically terminated the process " & objProcess.CommandLine NextEnd Function'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Check if it is the time to terminate the specific process ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Function IsTime2TerminateDim bRetDim hourOfCurUtcTimeDim hourOfCurTimeInGMT8bRet = False'Get current UTC time on the machinestrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_UTCTime")For Each objItem in colItemshourOfCurUtcTime = objItem.HourhourOfCurTimeInGMT8 = hourOfCurUtcTime + 8NextIf hourOfCurTimeInGMT8 >= HOUR_OF_ENDTIME_IN_GMT8 ThenbRet = TrueEnd IfIsTime2Terminate = bRetEnd Function'Main ProcessDim bFlag bFlag = TrueDo While bFlagIf IsTime2Terminate() ThenTerminatesCmdProcess strProcessEnd IfWScript.Sleep 1000*60Loop