代码如下：

     
  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
' The function used to check whether the given file exists.                     '  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
Function CheckFileExists(strFilePath)   
    set oFSO = createObject("Scripting.FileSystemObject")   
    boolFileExists = oFSO.fileExists(strFilePath)    
    set oFSO = Nothing    
      
    CheckFileExists = boolFileExists   
End Function  
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
' The function used to print log                                                '  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
Function PrintLog(strLog, logFileName)  
	if not CheckFileExists(logFileName) then
		Set fso = CreateObject("Scripting.FileSystemObject") 
		fso.CreateTextFile logFileName, true
		Set fso = nothing
	end if
	
	Set fso = CreateObject("Scripting.FileSystemObject") 
	Const ForAppending = 8
	Set objLogFile = fso.OpenTextFile(logFileName, ForAppending, True)	
	
	strMsg = Date() & " " & Time() & " " & strLog  
    objLogFile.WriteLine strMsg  
	
	objLogFile.Close()
	Set fso = nothing
End Function 
 
  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
' The RunCommandlineTool function execute the specified command-line exe,       '  
' and redirect the command-line print messages to the given log file,           '  
' then analyze the log file to determine whether there are some errors.         '  
'                                                                               '  
' PARAMETERS:                                                                   '  
'   @strCommand: Specify the command string,                                    '  
'   @strRedirectLogFilenamePath: Specify the log file,                          '  
' RETURN:                                                                       '  
'   True : process succeed without any error,                                   '  
'   False: process complete with some errors                                    '                                             
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
Function RunCommandlineTool(strCommand, logFileName)  
    PrintLog """" & strCommand & """" & " Start!", logFileName     
      
    Set WsShell = CreateObject("Wscript.Shell")   
    Dim strShellCommand   
    Dim processNoError  
      
    strShellCommand = "%comspec% /c " & Chr(34) & strCommand & " >> " & logFileName & Chr(34)  
    WsShell.Run strShellCommand, 0, True                                          
    
End Function   
 
 
Dim scriptFileName
Dim logFileName
scriptFileName = WScript.Arguments(0)  
logFileName = WScript.Arguments(1)  
  
Set fso1 = createobject("scripting.filesystemobject")  
Set textStream = fso1.OpenTextFile(scriptFileName, 1)  
  
Do While Not textStream.AtEndOfStream  
	cmdLine = trim(textStream.readline)		
	i=i + 1   	
	  
	RunCommandlineTool cmdLine, logFileName   
Loop   
  
Set textStream = Nothing  
Set fso1 = Nothing

以下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 objProcesses
	strComputer = "."
	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 colProcesses
		objProcess.Terminate()
		
		WScript.Echo Now() & " Automatically terminated the process " & objProcess.CommandLine 
	Next			
 
End Function
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Check if it is the time to terminate the specific process 	'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function IsTime2Terminate
	Dim bRet
	Dim hourOfCurUtcTime
	Dim hourOfCurTimeInGMT8
	
	bRet = False
	
	'Get current UTC time on the machine
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_UTCTime")
	
	For Each objItem in colItems
		hourOfCurUtcTime = objItem.Hour
		hourOfCurTimeInGMT8 = hourOfCurUtcTime + 8
	Next
	
	If hourOfCurTimeInGMT8 >= HOUR_OF_ENDTIME_IN_GMT8 Then
		bRet = True
	End If
 
	IsTime2Terminate = bRet
End Function
 
 
'Main Process
Dim bFlag 
bFlag = True
 
Do While bFlag
	
	If IsTime2Terminate() Then
		TerminatesCmdProcess strProcess
	End If
 
	WScript.Sleep 1000*60
Loop

有时候我们需要用.bat或其他脚本快速灵活的实现对其他exe的调用，实现一些数据转换、搬迁等批处理工作，在windows上vbs shell是一种不错的选择，不仅灵活而且功能强大。

本文给出了一些自己封装的用于调用exe的vbs函数。

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The function used to print log                                                '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function PrintLog(strLog)
    strMsg = Date() & " " & Time() & " " & strLog
    logFile.WriteLine strMsg
End Function    
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The function used to check whether the given file exists.                        '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CheckFileExists(strFilePath) 
    set oFSO = createObject("Scripting.FileSystemObject") 
    boolFileExists = oFSO.fileExists(strFilePath)  
    set oFSO = Nothing  
    
    CheckFileExists = boolFileExists 
End Function
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The function used to delete file.                                                '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function DeleteTempFile(strFilePath) 
    set oFSO = createObject("Scripting.FileSystemObject") 
    
    If oFSO.FileExists(strFilePath) Then        
        oFSO.DeleteFile strFilePath, True 
    End If 
    
    set oFSO = Nothing  
End Function
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' To read the input parameters, return an array                                    '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ReadInputParam(strFilePath) 
    Dim retArray 
    retArray = Array(50, 3)
 
    set oFSO = createObject("Scripting.FileSystemObject") 
    
    If oFSO.FileExists(strFilePath) Then        
        Set textStream = oFSO.OpenTextFile(strFilePath)
        
        Dim i
        i = 0
        Do While Not textStream.AtEndOfStream
            inputLine = ucase(trim(textStream.readline))
            
            tempArray = Split(inputLine, " ", -1, 1)
            If UBound(tempArray) = 2 Then
                retArray(i) = tempArray
                i = i + 1
            End If 
        Loop 
        
        Set textStream = Nothing
    
    End If 
    
    set oFSO = Nothing 
    
    ReadInputParam = retArray
End Function
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The GetSortedFiles function get a filename list of a specified directory      '
' ordered by ascending filename                                                 '                                            
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetSortedFiles(strPath) 
    Dim rs
    Dim folder
    Dim File 
    Const adVarChar = 200 
    Set fso = CreateObject("Scripting.FileSystemObject")  
    Set rs = CreateObject("ADODB.Recordset") 
    Set folder = fso.GetFolder(strPath) 
    Set FSO = nothing
    
    rs.fields.append "FileName", adVarChar, 255
    rs.fields.append "OrderBy", adVarChar, 255 
    rs.Open 
    
    For Each File In folder.Files
        If InStr(1, File.Name, ".edb", 1) <> 0 And InStr(1, UCase(File.Name), "TIC", 1) = 1 Then  
            rs.AddNew 
            rs("FileName") = File.Name 
            strNameWithoutExt = Left(UCase(File.Name), Len(File.Name) - 4)
            strArray = Split(strNameWithoutExt, "_", -1, 1)
            strYMD = strArray(0)
            
            If UBound(strArray) = 0 Then
                strNO = "00"
            Else
                strNO = strArray(1)
                If Len(strNO) = 1 Then
                    strNO = "0" & strNO
                End If    
            End If 
            
            strOrderBy = strYMD & "_" & strNO
            
            rs("OrderBy") = strOrderBy
            
            rs.Update 
        End If 
    Next 
    
    'Sort by acending file name  
    rs.Sort = "OrderBy ASC" 
 
    rs.MoveFirst 
    Set folder = Nothing 
    Set GetSortedFiles = rs 
End Function 
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The RunCommandlineTool function execute the specified command-line exe,       '
' and redirect the command-line print messages to the given log file,              '
' then analyze the log file to determine whether there are some errors.            '
'                                                                                '
' PARAMETERS:                                                                    '
'    @strCommand: Specify the command string,                                    '
'     @strRedirectLogFilenamePath: Specify the log file,                            '
' RETURN:                                                                        '
'    True : process succeed without any error,                                     '
'    False: process complete with some errors                                     '                                            
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function RunCommandlineTool(strCommand, strRedirectLogFilenamePath)
    PrintLog """" & strCommand & """" & " Start!"    
    
    Set WsShell = CreateObject("Wscript.Shell") 
    Dim strShellCommand 
    Dim processNoError
    
    strShellCommand = "%comspec% /c " & Chr(34) & strCommand & " >> " & strRedirectLogFilenamePath & Chr(34)
    WsShell.Run strShellCommand, 0, True                                     
    
    'Parse the log to determine whether there are some errors                
    processNoError = True                         
    WScript.Sleep 200
 
    Set fso1 = createobject("scripting.filesystemobject")
    Set textStream = fso1.OpenTextFile(strRedirectLogFilenamePath, 1)
    
    Do While Not textStream.AtEndOfStream
        logLine = ucase(trim(textStream.readline))
        i=i + 1    
        
        If InStr(logLine, "FAILED") Then
            PrintLog(logLine)
            processNoError = false                        
            Exit Do 
        End If 
    Loop 
    
    Set textStream = Nothing
    Set fso1 = Nothing 
    
    Dim strProcEndMsg
    If processNoError = True Then 
        strProcEndMsg = " Done Successfully"
    Else
        strProcEndMsg = "Complete with Some Errors!"
    End If 
    
    strProcEndMsg = """" + strCommand + """ " + strProcEndMsg
    
    PrintLog strProcEndMsg
    
    RunCommandlineTool = processNoError
End Function