【VBScript Shell】使用vbs shell调用命令行exe的示例代码

有时候我们需要用.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