方法1:

在vbs指令碼庫裡面新增

Sub LogTxt(message)
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fileSystemObj, fileSpec    ,logFile
    Dim currentDate,currentTime    ,dirName
    dirName =  "d:\log\"      
    currentDate = Year(Date)&"-"& Right("0"&Month(Date),2) &"-" &Right("0"&Day(Date),2)
    currentTime = Time    
    Set fileSystemObj =CreateObject("Scripting.FileSystemObject")    
    If Not fileSystemObj.folderExists(dirName) Then         
        fileSystemObj.CreateFolder(dirName)    
    End If        
    fileSpec = dirName &currentDate& ".txt"
    If Not (fileSystemObj.FileExists(filespec)) Then     
        Set logFile = fileSystemObj.CreateTextFile(fileSpec,ForWriting,True)
        logFile.WriteLine ("#######################################################################")         
        logFile.WriteLine (currentDate &" "& currentTime & " 日誌開始記錄: "  )         
        logFile.WriteLine ("#######################################################################")         
        logFile.Close       
        Set logFile = Nothing        
    End If      
    Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForAppending, False, True)    
    logFile.WriteLine (currentDate &","&currentTime & "," & message)    
    logFile.Close    
    Set logFile = Nothing    
    Set fileSystemObj = Nothing    
End Sub

使用時,用下面的程式碼:
Call LogTxt("失敗是成功之母")

方法2:

建立如下vbs指令碼,

Sub logtxt(message)
    Dim objShell
    Set objShell = CreateObject("Wscript.Shell")    
    objShell.Run  "logtxt.exe " &message,0    
    '0代表後臺執行程式.不會出現視窗.
    'logtxt.exe 建議複製到windows目錄.任意呼叫不會找不到.
    '預設日誌目錄:D:\執行資訊\LogTxt,在logtxt.exe.config檔案內可以更改
End Sub

使用時: Call logtxt("失敗是成功之母")

下面是命令列日誌程式,下載後,放到windows目錄,或者其他目錄,呼叫時指定完整路徑.

logtxt