wincc 用腳本記錄日志

方法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