output file vbscript ksc parse.vbs

vbscript_ksc_parse.vbs

' Definição das variáveis
Dim strSeverity, strComputer, strDomain, strEvent, strDescr, strRiseTime
Dim strKLCSAKEventTaskDisplayName, strKLProduct, strKLVersion, strHostIP, strHostConnIP
Dim strMessage, strTelegramBotToken, strTelegramChatID, objShell, strURL, strJSONMessage, strJSONMessage1
Dim fso, logFile, strLogFile

' Recebendo os valores das variáveis de ambiente
strSeverity = WScript.Arguments(0)
strComputer = WScript.Arguments(1)
strDomain = WScript.Arguments(2)
strEvent = WScript.Arguments(3)
strDescr = WScript.Arguments(4)
strRiseTime = WScript.Arguments(5)
strKLCSAKEventTaskDisplayName = WScript.Arguments(6)
strKLProduct = WScript.Arguments(7)
strKLVersion = WScript.Arguments(8)
strHostIP = WScript.Arguments(9)
strHostConnIP = WScript.Arguments(10)

' Caminho do arquivo de log
strLogFile = "debug_vbs_log.txt"

' Criando/abrindo o arquivo de log
Set fso = CreateObject("Scripting.FileSystemObject")
Set logFile = fso.OpenTextFile(strLogFile, 8, True)

' Escrevendo as entradas no arquivo de log
logFile.WriteLine vbCrLf & "Data/Hora: " & Now
logFile.WriteLine "Output: " & strSeverity & " " & strComputer & " " &  strDomain & " " &  strEvent & " " &  strDescr & " " &  strRiseTime & " " &  strKLCSAKEventTaskDisplayName & " " &  strKLProduct & " " &  strKLVersion & " " &  strHostIP & " " &  strHostConnIP & " " & vbCrLf

' Fechando o arquivo de log
logFile.Close