check out py2exe you can use it to convert into an exe file without needing to embed python on any of the systems. I prefer Python but if you like here's a quick AutoIT that should do the same thing: AutoIT comes with a built in compiler that converts the script to exe
#include <SQLite.au3>
#include <SQLite.dll.au3>
#comments-start
Action_Result_for_UI = the action taken by SA
1. Cleaned
2. Deleted
3. Quarantined
4. Access denied
5. Passed
6. Action required
Scan_Type
1. Real-time scan
2. manual scan
3. scheduled scan
4. scan now
#comments-end
Local $hQuery, $aRow, $aNames, $data, $tag
_SQLite_Startup ()
ConsoleWrite("_SQLite_LibVersion=" &_SQLite_LibVersion() & @CRLF)
_SQLite_Open ("C:\Program Files\Trend Micro\UniClient\plugins\EventLog.db") ; open :memory: Database
$iRET = _SQLite_Query(-1, "Select * From LOG_WOFIE_MALWARE_MAIN;", $hQuery)
If $iRET <> $SQLITE_OK Then
$iErrSav = @error
$iExtSav = @extended
RunWait('eventcreate /T Error /ID 100 /L Application /SO TrendMicro /D "' & _
'Database query failed: $iRET = ' & $iRET & '; $@error = ' & $iErrSav & '; @extended = ' & $iExtSav & '"', "", @SW_HIDE)
Exit
EndIf
;_SQlite_Query (-1, "Select * From LOG_WOFIE_spyware_L2;", $hQuery)
;_SQLite_Query (-1, "Select * From Log_WOFIE_WTP_MAIN;", $hQuery)
_SQLite_FetchNames ($hQuery, $aNames) ; Read out Column Names
;ConsoleWrite(StringFormat(" %-10s %-10s %-10s %-10s", $aNames[11], $aNames[13], $aNames[9], $aNames
) & @CRLF)
$label = StringFormat(" %-10s %-10s %-10s %-10s", $aNames[11], $aNames[13], $aNames[9], $aNames)
While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK
;ConsoleWrite(StringFormat(" %-10s %-10s %-10s %-10s", $aRow[11], $aRow[13], $aRow[9], _GetDateFromUnix($aRow)) & @CRLF)
$date = @MON & "/" & @MDAY & "/" & @YEAR
If _GetDateFromUnix($aRow) <= $date Then
_eventlog_Create(StringFormat(" %-10s %-10s %-10s %-10s", $aRow[11], $aRow[13], $aRow[9], _GetDateFromUnix($aRow)))
EndIf
WEnd
_SQLite_Close ()
_SQLite_Shutdown ()
Func _eventlog_Create($data)
$tag = ""
$Eid = 0
$Level = 0
Select
Case StringInStr($data, "1 ", 0, 1)
$tag = "Virus Cleaned"
$Eid = 1
$Level = "Information"
Case StringInStr($data, "2 ", 0, 1)
$tag = "Virus Deleted"
$Eid = 2
$Level = "Information"
Case StringInStr($data, "3 ", 0,1)
$tag = "Virus Quarantined"
$Eid = 3
$Level = "Information"
Case StringInStr($data, "4 ", 0,1)
$tag = "Virus Access Denied, couldn't clean the virus"
$Eid = 4
$Level = "Error"
Case StringInStr($data, "5 ", 0,1)
$tag = "Virus Passed"
$Eid = 5
$Level = "Information"
Case StringInStr($data, "6 ", 0,1)
$tag = "Action Required, Virus left uncleaned"
$Eid = 6
$Level = "Error"
EndSelect
RunWait("eventcreate /T " & $Level & " /ID " & $Eid & " /L Application /SO TrendMicro /D " & '"' & $tag & @CRLF & $label & @CRLF & $data & '"' ,"", @SW_HIDE)
msgbox(0,"","Virus Found " & $Level & " " & $tag & " " & $data)
EndFunc
Func _GetDateFromUnix ($nPosix)
Local $nYear = 1970, $nMon = 1, $nDay = 1, $nHour = 00, $nMin = 00, $nSec = 00, $aNumDays = StringSplit ("31,28,31,30,31,30,31,31,30,31,30,31", ",")
While 1
If (Mod ($nYear + 1, 400) = 0) Or (Mod ($nYear + 1, 4) = 0 And Mod ($nYear + 1, 100) <> 0) Then; is leap year
If $nPosix < 31536000 + 86400 Then ExitLoop
$nPosix -= 31536000 + 86400
$nYear += 1
Else
If $nPosix < 31536000 Then ExitLoop
$nPosix -= 31536000
$nYear += 1
EndIf
WEnd
While $nPosix > 86400
$nPosix -= 86400
$nDay += 1
WEnd
While $nPosix > 3600
$nPosix -= 3600
$nHour += 1
WEnd
While $nPosix > 60
$nPosix -= 60
$nMin += 1
WEnd
$nSec = $nPosix
For $i = 1 to 12
If $nDay < $aNumDays[$i] Then ExitLoop
$nDay -= $aNumDays[$i]
$nMon += 1
Next
Return $nMon & "/" & $nDay & "/" & $nYear & " " & $nHour & ":" & $nMin & ":" & $nSec
EndFunc; ==> _GetDateFromUnix