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 ¤tDate& ".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 &","¤tTime & "," & 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目錄,或者其他目錄,呼叫時指定完整路徑.