First Commit
This commit is contained in:
Bernhard
commit
77988ebc58
2
.gitignore
vendored
Normal file
2
.gitignore
vendored
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
*.back
|
||||||
|
Version*
|
||||||
BIN
Icon256-32.ico
Normal file
BIN
Icon256-32.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 65 KiB |
3
TaskSchedulerMonitoring-ignore.txt
Normal file
3
TaskSchedulerMonitoring-ignore.txt
Normal file
@ -0,0 +1,3 @@
|
|||||||
|
ZabbixAgentAutoUpdater
|
||||||
|
GoogleUpdateTaskMachine
|
||||||
|
ZabbixExchange
|
||||||
626
TaskSchedulerMonitoring_V2.au3
Normal file
626
TaskSchedulerMonitoring_V2.au3
Normal file
@ -0,0 +1,626 @@
|
|||||||
|
#NoTrayIcon
|
||||||
|
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
|
||||||
|
#AutoIt3Wrapper_Icon=Icon256-32.ico
|
||||||
|
#AutoIt3Wrapper_UseUpx=y
|
||||||
|
#AutoIt3Wrapper_Change2CUI=y
|
||||||
|
#AutoIt3Wrapper_Res_Description=Zabbix Monitor scheduled Tasks
|
||||||
|
#AutoIt3Wrapper_Res_Fileversion=1.0.0.49
|
||||||
|
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
|
||||||
|
#AutoIt3Wrapper_Res_LegalCopyright=2015 Bernhard Linz
|
||||||
|
#AutoIt3Wrapper_Res_SaveSource=y
|
||||||
|
#AutoIt3Wrapper_Res_Language=1031
|
||||||
|
#AutoIt3Wrapper_Res_Field=Website|http://znil.net
|
||||||
|
#AutoIt3Wrapper_Res_Field=Manual|http://znil.net/index.php?title=Zabbix:TaskSchedulerMonitoring
|
||||||
|
#AutoIt3Wrapper_Res_Field=See You|znil.net
|
||||||
|
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
|
||||||
|
Opt('MustDeclareVars', 1)
|
||||||
|
#Region ;************ Includes ************
|
||||||
|
#Include <Array.au3>
|
||||||
|
#include <Constants.au3>
|
||||||
|
#include <Date.au3>
|
||||||
|
#EndRegion ;************ Includes ************
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; # TaskSchedulerMonitoring.exe --> Tool for Check BackupJobs in Zabbix #
|
||||||
|
; # 2013 Bernhard Linz / Bernhard@znil.de / http://znil.net #
|
||||||
|
; # #
|
||||||
|
; # Latest Version of this Program and Template in German: #
|
||||||
|
; # http://znil.net/index.php?title=Zabbix:TaskSchedulerMonitoring #
|
||||||
|
; # #
|
||||||
|
; # ________ .__ __. __ __ .__ __. _______ .___________. #
|
||||||
|
; # | / | \ | | | | | | | \ | | | ____|| | #
|
||||||
|
; # `---/ / | \| | | | | | | \| | | |__ `---| |----` #
|
||||||
|
; # / / | . ` | | | | | | . ` | | __| | | #
|
||||||
|
; # / /----.| |\ | | | | `----.__| |\ | | |____ | | #
|
||||||
|
; # /________||__| \__| |__| |_______(__)__| \__| |_______| |__| #
|
||||||
|
; # #
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; ##########################################################################################################################
|
||||||
|
|
||||||
|
Global $s_schtasksexe
|
||||||
|
|
||||||
|
Global $s_temp1, $s_temp2
|
||||||
|
Global $a_temp1, $a_temp2
|
||||||
|
Global $a_DateTemp
|
||||||
|
Global $a_RuntimeTemp
|
||||||
|
|
||||||
|
Global $a_ScheduledTasks[1][8] ; [0][0] = Anzahl der Tasks
|
||||||
|
; [x][1] = Name des Task "original"
|
||||||
|
; [x][2] = Name des Tasks "bereinigt" - ohne Leerzeichen/Sonderzeichen zur Anzeige in Zabbix unr zur Übergabe an dieses Programm hier
|
||||||
|
; [x][3] = Last Result
|
||||||
|
; [x][4] = Last Run Time
|
||||||
|
; [x][5] = Next Run Time
|
||||||
|
; [x][6] = Run As User
|
||||||
|
; [x][7] = Task To Run
|
||||||
|
|
||||||
|
Global $s_Task2IgnoreFile = @ScriptDir & "\TaskSchedulerMonitoring-ignore.txt"
|
||||||
|
Global $h_Task2IgnoreFile
|
||||||
|
Global $a_Task2Ignore[1] = [ 0 ]
|
||||||
|
Global $b_IgnoreTask = False
|
||||||
|
|
||||||
|
Global $s_CleanTaskName
|
||||||
|
Global $s_OriginalTaskName
|
||||||
|
Global $s_QueryTaskName
|
||||||
|
Global $i_ThisTask
|
||||||
|
|
||||||
|
Global $s_JSONOutput
|
||||||
|
Global $s_RunCommand
|
||||||
|
|
||||||
|
Global $iStartTime
|
||||||
|
Global $iRunTime
|
||||||
|
|
||||||
|
Global $b_Verbose
|
||||||
|
|
||||||
|
; 10 20 30 40 50 60 70 80
|
||||||
|
; 12345678901234567890123456789012345678901234567890123456789012345678901234567890
|
||||||
|
Dim $s__Header = _
|
||||||
|
"+------------------------------------------------------------------------------" & @CRLF & _
|
||||||
|
"| TaskSchedulderMonitoring.exe - Version " & FileGetVersion(@ScriptName) & @CRLF & _
|
||||||
|
"+------------------------------------------------------------------------------" & @CRLF & _
|
||||||
|
"| 2015 von Bernhard Linz für http://znil.net - Kontakt: Bernhard@znil.net" & @CRLF & _
|
||||||
|
"+------------------------------------------------------------------------------" & @CRLF & _
|
||||||
|
@CRLF
|
||||||
|
|
||||||
|
; 10 20 30 40 50 60 70 80
|
||||||
|
; 12345678901234567890123456789012345678901234567890123456789012345678901234567890
|
||||||
|
Dim $s__HilfeText = _
|
||||||
|
"Hilfsprogramm für Zabbix als UserParameter um die Aufgabenplanung / Geplante" & @CRLF & _
|
||||||
|
"Tasks zu überwachen" & @CRLF & _
|
||||||
|
"---------------------------------------------------------------------------" & @CRLF & _
|
||||||
|
@CRLF & _
|
||||||
|
"Aufruf: " & @CRLF & _
|
||||||
|
@CRLF & _
|
||||||
|
@ScriptName & " <Option> <Parameter>" & @CRLF & _
|
||||||
|
@CRLF & _
|
||||||
|
"Optionen:" & @CRLF & _
|
||||||
|
"---------" & @CRLF & _
|
||||||
|
" /? oder -? : Diese Hilfe Anzeigen" & @CRLF & _
|
||||||
|
@CRLF & _
|
||||||
|
" discovertasks : Erzeugt eine Liste im JSON Format über alle Aufgaben." & @CRLF & _
|
||||||
|
" Übernommen werden nur alle Tasks die im Stammordner \ stehen," & @CRLF & _
|
||||||
|
" also direkt unterhalb von 'Aufgabenplanungsbibliothek' bzw." & @CRLF & _
|
||||||
|
" 'Task Scheduler Library'" & @CRLF & _
|
||||||
|
@CRLF & _
|
||||||
|
" query : Benötigt als Parameter den Namen des geplanten Task." & @CRLF & _
|
||||||
|
" Sendet das Ergebnis direkt an den Zabbix-Server bzw. Proxy" & @CRLF & _
|
||||||
|
" über die Zabbix_Sender.exe. Es wird die Konfiguration des" & @CRLF & _
|
||||||
|
" installierten Zabbix Agenten ausgelesen und der dort" & @CRLF & _
|
||||||
|
" hinterlegte Server als Ziel genommen. Die Zabbix_Sender.exe" & @CRLF & _
|
||||||
|
" muss im gleichen Pfad liegen wie die zabbix_agentd.exe" & @CRLF & _
|
||||||
|
" Gibt die Laufzeit des Programmes in Sekunden zurück." & @CRLF & _
|
||||||
|
@CRLF & _
|
||||||
|
" /verbose : Muss als 2. (discovertasks) oder 3. (query) Parameter" & @CRLF & _
|
||||||
|
" angegeben werden. Gibt umfangreiche Meldungen über die" & @CRLF & _
|
||||||
|
" Abfrage und das Senden der Daten aus" & @CRLF & _
|
||||||
|
@CRLF & _
|
||||||
|
"+------------------------------------------------------------------------------" & @CRLF & _
|
||||||
|
"| TaskSchedulderMonitoring.exe ist FREEWARE!" & @CRLF & _
|
||||||
|
"| Kopieren, weitergeben ausdrücklich erlaubt!" & @CRLF & _
|
||||||
|
"| Die jeweils aktuelleste Version und Anleitungen findet Ihr unter:" & @CRLF & _
|
||||||
|
"| http://znil.net/index.php?title=Zabbix:TaskSchedulerMonitoring" & @CRLF & _
|
||||||
|
"+------------------------------------------------------------------------------" & @CRLF
|
||||||
|
|
||||||
|
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; ########################################
|
||||||
|
; ######## ## ## ## ## ###### ######## #### ####### ## ## ###### ########################################
|
||||||
|
; ## ## ## ### ## ## ## ## ## ## ## ### ## ## ## ########################################
|
||||||
|
; ## ## ## #### ## ## ## ## ## ## #### ## ## ########################################
|
||||||
|
; ###### ## ## ## ## ## ## ## ## ## ## ## ## ## ###### ########################################
|
||||||
|
; ## ## ## ## #### ## ## ## ## ## ## #### ## ########################################
|
||||||
|
; ## ## ## ## ### ## ## ## ## ## ## ## ### ## ## ########################################
|
||||||
|
; ## ####### ## ## ###### ## #### ####### ## ## ###### ########################################
|
||||||
|
; ########################################
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; ##########################################################################################################################
|
||||||
|
Func _schtasks($s_schtasksparameter)
|
||||||
|
_VerboseConsoleWrite("Funktion _schtasks wird gestartet")
|
||||||
|
Local $s_RunCommand
|
||||||
|
Local $outputschtasks
|
||||||
|
Local $errorsschtasks
|
||||||
|
Local $hschtasks
|
||||||
|
Local $ischtasksmaxWaitTime = 20000
|
||||||
|
Local $ischtasksmaxWaitTimeSTART
|
||||||
|
Local $s_tdoutReadFEHLER
|
||||||
|
; build the Command for run
|
||||||
|
;ConsoleWrite($s_schtasksexe & " " & $s_schtasksparameter & @CRLF)
|
||||||
|
_VerboseConsoleWrite("Führe Abfrage aus: " & $s_schtasksexe & " " & $s_schtasksparameter)
|
||||||
|
$s_RunCommand = $s_schtasksexe & " " & $s_schtasksparameter
|
||||||
|
; Start the timer for max wait time
|
||||||
|
$ischtasksmaxWaitTimeSTART = TimerInit()
|
||||||
|
; run the Command
|
||||||
|
$hschtasks = Run($s_RunCommand, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD)
|
||||||
|
;get the output
|
||||||
|
Do
|
||||||
|
Sleep(5)
|
||||||
|
; get the output
|
||||||
|
$outputschtasks = $outputschtasks & StdoutRead($hschtasks)
|
||||||
|
; get the errors
|
||||||
|
$errorsschtasks = $errorsschtasks & StderrRead($hschtasks)
|
||||||
|
; did we have an error while reading?
|
||||||
|
$s_tdoutReadFEHLER = @error
|
||||||
|
If $s_tdoutReadFEHLER <> "" Then
|
||||||
|
; No error, go on
|
||||||
|
If $outputschtasks = "" Then
|
||||||
|
; but also no output, let us take a 2. try
|
||||||
|
$outputschtasks = $outputschtasks & StdoutRead($hschtasks)
|
||||||
|
If $outputschtasks = "" Then
|
||||||
|
; anymore no output, oh oh
|
||||||
|
If $s_tdoutReadFEHLER <> "" Then
|
||||||
|
; but we have an error message
|
||||||
|
ConsoleWriteError($errorsschtasks & @CRLF)
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
Until $s_tdoutReadFEHLER Or TimerDiff($ischtasksmaxWaitTimeSTART) > $ischtasksmaxWaitTime
|
||||||
|
_VerboseConsoleWrite("Abfrage beendet. Ergebnis:" & $outputschtasks)
|
||||||
|
;MsgBox(0,"",$outputschtasks)
|
||||||
|
_VerboseConsoleWrite("Funktion _schtasks wird beendet")
|
||||||
|
Return $outputschtasks
|
||||||
|
EndFunc ;<== End _schtasks()
|
||||||
|
|
||||||
|
; ###################################################################################
|
||||||
|
; _ANSI2OEM löst das Problem mit dem Umlauten und anderen Sonderzeichen. Es wandelt Text so um das er korrekt in der DOS-Box dargestellt wird
|
||||||
|
; So können hier im Quellcode auch Umlaute verwendet werden (in den Textausgaben) und diese werden dann korrekt dargestellt
|
||||||
|
; Wir zudem für die Prüfung der Gruppenzugehörigkeit benötigt für Gruppen mit Umlauten, z.B. Domänen-Admins
|
||||||
|
; Dank an Xenobiologist von AutoIt.de für diese Lösung: http://www.autoit.de/index.php?page=Thread&threadID=9461&highlight=ANSI2OEM
|
||||||
|
|
||||||
|
Func _ANSI2OEM($text)
|
||||||
|
$text = DllCall('user32.dll', 'Int', 'CharToOem', 'str', $text, 'str', '')
|
||||||
|
Return $text[2]
|
||||||
|
;Return $text
|
||||||
|
EndFunc ;==>_ANSI2OEM
|
||||||
|
|
||||||
|
; ###################################################################################
|
||||||
|
Func _VerboseConsoleWrite($VerboseText)
|
||||||
|
If $b_Verbose = True Then
|
||||||
|
If StringLen($VerboseText) < 16000 Then
|
||||||
|
ConsoleWrite(_ANSI2OEM($VerboseText) & @CRLF)
|
||||||
|
Else
|
||||||
|
ConsoleWrite($VerboseText & @CRLF)
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
EndFunc
|
||||||
|
|
||||||
|
|
||||||
|
; ###################################################################################
|
||||||
|
; Hilfsroutine die den Hilfetext ausgibt
|
||||||
|
Func _HilfeAusgeben()
|
||||||
|
ConsoleWrite(_ANSI2OEM($s__Header))
|
||||||
|
ConsoleWrite(_ANSI2OEM($s__HilfeText))
|
||||||
|
EndFunc ;==>_HilfeAusgeben
|
||||||
|
|
||||||
|
; ##################################################################################################################
|
||||||
|
; ######## ### ######## ######## #### ## ## ###### ####### ## ## ########
|
||||||
|
; ## ## ## ## ## ## ## ## ## ## ## ## ## ## ### ## ##
|
||||||
|
; ## ## ## ## ## ## ## ## ## ## ## ## ## #### ## ##
|
||||||
|
; ## ## ## ######## ######## ## ### ## ## ## ## ## ## ######
|
||||||
|
; ## ######### ## ## ## ## ## ## ## ## ## ## ## #### ##
|
||||||
|
; ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ### ##
|
||||||
|
; ####### ######## ## ## ######## ######## #### ## ## ####### ###### ####### ## ## ##
|
||||||
|
; ##################################################################################################################
|
||||||
|
Global $sZabbix_agentd_exe
|
||||||
|
Global $sZabbix_agentd_conf
|
||||||
|
Global $sZabbix_sender_exe
|
||||||
|
Global $sZabbix_Hostname
|
||||||
|
Global $sZabbix_Server
|
||||||
|
Global $iZabbix_Server_Port
|
||||||
|
Global $sZabbix_String2Send
|
||||||
|
|
||||||
|
Func _Zabbix_conf()
|
||||||
|
_VerboseConsoleWrite("Funktion _Zabbix_conf wird gestartet")
|
||||||
|
Dim $sRegTMP
|
||||||
|
Dim $iRegTMP = 0
|
||||||
|
Dim $iLoop
|
||||||
|
Dim $aRegTMP
|
||||||
|
Dim $aZabbix_config
|
||||||
|
Dim $sZabbix_config_file
|
||||||
|
Dim $a2temp
|
||||||
|
_VerboseConsoleWrite("Durchsuche Registry nach Zabbix Agent Dienst ...")
|
||||||
|
While 1
|
||||||
|
$iRegTMP = $iRegTMP + 1
|
||||||
|
$sRegTMP = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services", $iRegTMP)
|
||||||
|
If @error Then
|
||||||
|
ExitLoop
|
||||||
|
EndIf
|
||||||
|
$sRegTMP = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\" & $sRegTMP, "ImagePath")
|
||||||
|
If @error = 0 Then
|
||||||
|
If StringInStr($sRegTMP, "zabbix_agentd.exe") > 0 Then
|
||||||
|
_VerboseConsoleWrite("Gefunden: " & $sRegTMP)
|
||||||
|
_VerboseConsoleWrite("Extrahiere Daten ...")
|
||||||
|
$aRegTMP = StringSplit($sRegTMP, '"')
|
||||||
|
;_ArrayDisplay($aRegTMP)
|
||||||
|
$sZabbix_agentd_exe = $aRegTMP[2]
|
||||||
|
$sZabbix_sender_exe = StringReplace($sZabbix_agentd_exe, "zabbix_agentd.exe", "zabbix_sender.exe")
|
||||||
|
$sZabbix_config_file = $aRegTMP[4]
|
||||||
|
$sZabbix_agentd_conf = $sZabbix_config_file
|
||||||
|
_VerboseConsoleWrite("Lese Konfigurationsdatei ein: " & $sZabbix_config_file)
|
||||||
|
$aZabbix_config = FileReadToArray($sZabbix_config_file)
|
||||||
|
If @error = 0 Then
|
||||||
|
For $iLoop = 0 To (UBound($aZabbix_config) -1)
|
||||||
|
If StringLeft($aZabbix_config[$iLoop], StringLen("ServerActive=")) = "ServerActive=" Then
|
||||||
|
$sZabbix_Server = StringReplace($aZabbix_config[$iLoop], "ServerActive=", "")
|
||||||
|
$sZabbix_Server = StringReplace($sZabbix_Server, " ", "")
|
||||||
|
$a2temp = StringSplit($sZabbix_Server, ":")
|
||||||
|
If $a2temp[0] = 1 Then
|
||||||
|
$iZabbix_Server_Port = 10051
|
||||||
|
Else
|
||||||
|
$sZabbix_Server = $a2temp[1]
|
||||||
|
$iZabbix_Server_Port = $a2temp[2]
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
If StringLeft($aZabbix_config[$iLoop], StringLen("Hostname=")) = "Hostname=" Then
|
||||||
|
$sZabbix_Hostname = StringReplace($aZabbix_config[$iLoop], "Hostname=", "")
|
||||||
|
$sZabbix_Hostname = StringReplace($sZabbix_Hostname, " ", "")
|
||||||
|
EndIf
|
||||||
|
Next
|
||||||
|
Else
|
||||||
|
_VerboseConsoleWrite("Fehler - Konfigurationsdatei nicht gefunden oder kein Zugriff möglich: " & $sZabbix_config_file)
|
||||||
|
ConsoleWrite("File not found: " & $sZabbix_config_file & @CRLF)
|
||||||
|
|
||||||
|
Exit 1
|
||||||
|
EndIf
|
||||||
|
If FileExists($sZabbix_sender_exe) = 0 Then
|
||||||
|
_VerboseConsoleWrite("Fehler - zabbix_sender.exe nicht gefunden oder kein Zugriff möglich: " & $sZabbix_sender_exe)
|
||||||
|
ConsoleWrite("zabbix_sender.exe not found at: " & $sZabbix_sender_exe & @CRLF)
|
||||||
|
Exit 1
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
WEnd
|
||||||
|
_VerboseConsoleWrite("zabbix_agentd.exe: " & '"' & $sZabbix_agentd_exe & '"')
|
||||||
|
_VerboseConsoleWrite("zabbix_sender.exe: " & '"' & $sZabbix_sender_exe & '"')
|
||||||
|
_VerboseConsoleWrite("Hostname used in Zabbix: " & '"' & $sZabbix_Hostname & '"')
|
||||||
|
_VerboseConsoleWrite("IP(:Port) Zabbix Server: " & '"' & $sZabbix_Server & '"')
|
||||||
|
_VerboseConsoleWrite("Funktion _Zabbix_conf wurde beendet")
|
||||||
|
EndFunc
|
||||||
|
|
||||||
|
; #############################################################################################################################################################################################################################################################################
|
||||||
|
; ###### ######## ## ## ######## ## ## ### ## ## ## ######## ## ## #### ######## ## ## ######## ### ######## ######## #### ## ## ###### ######## ## ## ######## ######## ########
|
||||||
|
; ## ## ## ### ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ### ## ## ## ## ## ##
|
||||||
|
; ## ## #### ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## #### ## ## ## ## ## ##
|
||||||
|
; ###### ###### ## ## ## ## ## ## ## ## ## ## ## ## ###### ## ## ## ## ## ######### ## ## ## ######## ######## ## ### ###### ###### ## ## ## ## ## ###### ########
|
||||||
|
; ## ## ## #### ## ## ## ## ######### ## ## ## ## ## ## ## ## ## ## ## ## ######### ## ## ## ## ## ## ## ## ## ## #### ## ## ## ## ##
|
||||||
|
; ## ## ## ## ### ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ### ## ## ## ## ##
|
||||||
|
; ####### ###### ######## ## ## ######## ### ## ## ######## ####### ######## ####### ### ### #### ## ## ## ####### ######## ## ## ######## ######## #### ## ## ####### ###### ######## ## ## ######## ######## ## ##
|
||||||
|
; #############################################################################################################################################################################################################################################################################
|
||||||
|
|
||||||
|
Func _SendValue_with_Zabbix_Sender($sItemName, $sItemValue)
|
||||||
|
_VerboseConsoleWrite('"' & $sZabbix_sender_exe & '"' & " -c " & '"' & $sZabbix_agentd_conf & '"' & " -k " & '"' & $sItemName & '" -o "' & $sItemValue & '"' & " -vv")
|
||||||
|
If $b_Verbose = False Then
|
||||||
|
RunWait('"' & $sZabbix_sender_exe & '"' & " -c " & '"' & $sZabbix_agentd_conf & '"' & " -k " & '"' & $sItemName & '" -o "' & $sItemValue & '"', "", @SW_HIDE, $RUN_CREATE_NEW_CONSOLE)
|
||||||
|
Else
|
||||||
|
RunWait('"' & $sZabbix_sender_exe & '"' & " -c " & '"' & $sZabbix_agentd_conf & '"' & " -k " & '"' & $sItemName & '" -o "' & $sItemValue & '"' & " -vv", "")
|
||||||
|
EndIf
|
||||||
|
EndFunc
|
||||||
|
|
||||||
|
|
||||||
|
; ####################################################################################################################
|
||||||
|
; ###### ######## ######## ### ## ## ######## ### ###### ## ## ######
|
||||||
|
; ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
|
||||||
|
; ## ## ## ## ## ## ## ## ## ## ## ## ## ##
|
||||||
|
; ## #### ###### ## ## ## ## ## ## ## ## ###### ##### ######
|
||||||
|
; ## ## ## ## ######### ## ## ## ######### ## ## ## ##
|
||||||
|
; ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
|
||||||
|
; ####### ###### ######## ## ## ## ######## ######## ## ## ## ###### ## ## ######
|
||||||
|
; ####################################################################################################################
|
||||||
|
Func _GetAllScheduledTasks()
|
||||||
|
_VerboseConsoleWrite("Funktion GetAllScheduledTasks wird gestartet")
|
||||||
|
Dim $s_lastTaskName = ""
|
||||||
|
; Get all scheduled Jobs
|
||||||
|
_VerboseConsoleWrite("Starte Abfrage der Tasks")
|
||||||
|
$s_temp1 = _schtasks("/query /FO CSV")
|
||||||
|
;ConsoleWrite($s_temp1 & @CRLF)
|
||||||
|
_VerboseConsoleWrite("Extrahiere Daten aus der Rückgabe")
|
||||||
|
$s_temp1 = StringReplace($s_temp1, @CRLF, "@CRLF")
|
||||||
|
$a_temp1 = StringSplit($s_temp1, "@CRLF", 1)
|
||||||
|
; _ArrayDisplay($a_temp1)
|
||||||
|
For $i = 2 To $a_temp1[0] ; Skip the first line with headlines
|
||||||
|
;_ArrayDisplay($a_temp1)
|
||||||
|
$b_IgnoreTask = False
|
||||||
|
;~ If StringLeft($a_temp1[$i], StringLen('"\Microsoft')) = '"\Microsoft' Then
|
||||||
|
;~ ExitLoop
|
||||||
|
;~ EndIf
|
||||||
|
If StringLeft($a_temp1[$i], 2) = '"\' Then
|
||||||
|
$a_temp2 = StringSplit($a_temp1[$i],",")
|
||||||
|
If $a_temp2[0] > 1 Then
|
||||||
|
$s_OriginalTaskName = StringTrimLeft(StringReplace($a_temp2[1], '"', "") ,1)
|
||||||
|
$s_CleanTaskName = StringTrimLeft(StringReplace($a_temp2[1], " ", "_") ,1)
|
||||||
|
$s_CleanTaskName = StringRegExpReplace($s_CleanTaskName, "[^\w\.@-]", "")
|
||||||
|
_VerboseConsoleWrite("Task gefunden : " & $s_OriginalTaskName)
|
||||||
|
_VerboseConsoleWrite("Bereinige Task Namen zu : " & $s_CleanTaskName)
|
||||||
|
If $a_Task2Ignore[0] > 0 Then
|
||||||
|
_VerboseConsoleWrite("Prüfe ob dieser Task ignoriert werden soll")
|
||||||
|
For $j = 1 To $a_Task2Ignore[0]
|
||||||
|
;MsgBox(0,"","$s_OriginalTaskName" & @CRLF & $a_Task2Ignore[$j] & @CRLF & @CRLF & $s_CleanTaskName & @CRLF & $a_Task2Ignore[$j])
|
||||||
|
If StringInStr($s_OriginalTaskName, $a_Task2Ignore[$j]) > 0 Then
|
||||||
|
$b_IgnoreTask = True
|
||||||
|
_VerboseConsoleWrite("Soll ignoriert werden: " & $s_OriginalTaskName & " <-> " & $a_Task2Ignore[$j])
|
||||||
|
EndIf
|
||||||
|
If StringInStr($s_CleanTaskName, $a_Task2Ignore[$j]) > 0 Then
|
||||||
|
$b_IgnoreTask = True
|
||||||
|
_VerboseConsoleWrite("Soll ignoriert werden: " & $s_CleanTaskName & " <-> " & $a_Task2Ignore[$j])
|
||||||
|
EndIf
|
||||||
|
Next
|
||||||
|
EndIf
|
||||||
|
If $s_lastTaskName = $s_OriginalTaskName Then
|
||||||
|
$b_IgnoreTask = True
|
||||||
|
_VerboseConsoleWrite("Ignoriere Task da gleicher Name wie beim Durchlauf wie zuvor")
|
||||||
|
EndIf
|
||||||
|
If $b_IgnoreTask = False Then
|
||||||
|
_VerboseConsoleWrite("Task soll nicht igoriert werden, füge diesen der Liste hinzu")
|
||||||
|
$a_ScheduledTasks[0][0] = $a_ScheduledTasks[0][0] + 1
|
||||||
|
ReDim $a_ScheduledTasks[ $a_ScheduledTasks[0][0] + 1 ][8]
|
||||||
|
; [x][1] = Name des Task "original"
|
||||||
|
$a_ScheduledTasks[ $a_ScheduledTasks[0][0] ][1] = $s_OriginalTaskName
|
||||||
|
$s_lastTaskName = $s_OriginalTaskName
|
||||||
|
; [x][2] = Name des Tasks "bereinigt" - ohne Leerzeichen/Sonderzeichen zur Anzeige in Zabbix und zur Übergabe an dieses Programm hier
|
||||||
|
$a_ScheduledTasks[ $a_ScheduledTasks[0][0] ][2] = $s_CleanTaskName
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
; Er beginnt in Zeile 2 nach geplanten Aufgaben zu suchen. Diese Fangen mit "\ an.
|
||||||
|
; Gibt es keine Aufgaben wird da wieder eine Kopfzeile mit den Feldbezeichnungen kommen für den nächsten Abschnitt
|
||||||
|
; Und damit sind wir schon hier und verlassen die Schleife
|
||||||
|
ExitLoop
|
||||||
|
EndIf
|
||||||
|
Next
|
||||||
|
_VerboseConsoleWrite("Funktion GetAllScheduledTasks wird beendet")
|
||||||
|
EndFunc
|
||||||
|
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; ####################################################################################
|
||||||
|
; ## ## ### #### ## ## ####################################################################################
|
||||||
|
; ### ### ## ## ## ### ## ####################################################################################
|
||||||
|
; #### #### ## ## ## #### ## ####################################################################################
|
||||||
|
; ## ### ## ## ## ## ## ## ## ####################################################################################
|
||||||
|
; ## ## ######### ## ## #### ####################################################################################
|
||||||
|
; ## ## ## ## ## ## ### ####################################################################################
|
||||||
|
; ## ## ## ## #### ## ## ####################################################################################
|
||||||
|
; ####################################################################################
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; ##########################################################################################################################
|
||||||
|
$iStartTime = _DateDiff("s", "1970/01/01 00:00:00", _NowCalc())
|
||||||
|
|
||||||
|
If StringInStr($CmdLineRaw, "/verbose") > 0 Then
|
||||||
|
$b_Verbose = True
|
||||||
|
Else
|
||||||
|
$b_Verbose = False
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If $CmdLine[0] > 0 Then
|
||||||
|
If $CmdLine[1] = "/?" Or $CmdLine[1] = "-?" Then
|
||||||
|
_HilfeAusgeben()
|
||||||
|
Exit 0
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If $CmdLine[0] = 0 Then
|
||||||
|
_HilfeAusgeben()
|
||||||
|
Exit 0
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
;~ If $CmdLine[0] = 0 Then
|
||||||
|
;~ _HilfeAusgeben()
|
||||||
|
;~ Exit 0
|
||||||
|
;~ EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; Ok, we need the schtasks.exe,
|
||||||
|
$s_schtasksexe = @ComSpec & " /C " & @WindowsDir & "\system32\schtasks.exe"
|
||||||
|
$a_ScheduledTasks[0][0] = 0
|
||||||
|
$a_ScheduledTasks[0][1] = "Original Name"
|
||||||
|
$a_ScheduledTasks[0][2] = "Clean Name"
|
||||||
|
$a_ScheduledTasks[0][3] = "Last Result"
|
||||||
|
$a_ScheduledTasks[0][4] = "Last Run Time"
|
||||||
|
$a_ScheduledTasks[0][5] = "Next Run Time"
|
||||||
|
$a_ScheduledTasks[0][6] = "Run As User"
|
||||||
|
$a_ScheduledTasks[0][7] = "Task To Run"
|
||||||
|
|
||||||
|
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; ##########################################################################################################################
|
||||||
|
; Some of the services are irritating, just ignore them - read items from a file
|
||||||
|
_VerboseConsoleWrite("Prüfe ob es eine Datei " & $s_Task2IgnoreFile & " gibt ...")
|
||||||
|
If FileExists($s_Task2IgnoreFile) = 1 Then
|
||||||
|
_VerboseConsoleWrite("Gefunden! Lese Datei ein")
|
||||||
|
$h_Task2IgnoreFile = FileOpen($s_Task2IgnoreFile, 0)
|
||||||
|
While 1
|
||||||
|
$s_temp1 = FileReadLine($h_Task2IgnoreFile)
|
||||||
|
If @error = -1 Then
|
||||||
|
ExitLoop
|
||||||
|
Else
|
||||||
|
If StringLen($s_temp1) > 2 Then ; at least 3 or more chars
|
||||||
|
_VerboseConsoleWrite("Eintrag gefunden: " & $s_temp1)
|
||||||
|
$a_Task2Ignore[0] = $a_Task2Ignore[0] + 1
|
||||||
|
ReDim $a_Task2Ignore[$a_Task2Ignore[0] + 1] ;That's AutoIt - Redim an Array without data-loss
|
||||||
|
$a_Task2Ignore[$a_Task2Ignore[0]] = $s_temp1
|
||||||
|
Else
|
||||||
|
_VerboseConsoleWrite("Ignoriere Eintrag mit weniger als 3 Zeichen: " & $s_temp1)
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
WEnd
|
||||||
|
_VerboseConsoleWrite("Einlesen der Ignorieren Einträge beendet")
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
;_ArrayDisplay($a_Task2Ignore)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If $CmdLine[1] = "discovertasks" Then
|
||||||
|
_VerboseConsoleWrite("Parameter discovertasks gefunden - ermittle Aufgaben und erstelle JSON")
|
||||||
|
_GetAllScheduledTasks()
|
||||||
|
_VerboseConsoleWrite("Baue JSON-String zusammen")
|
||||||
|
$s_JSONOutput = '{"data":[' & @CRLF
|
||||||
|
For $i = 1 To $a_ScheduledTasks[0][0]
|
||||||
|
$s_JSONOutput = $s_JSONOutput & " " & '{' & '@CRLF' & _
|
||||||
|
" " & '"{#TSMTASKNAME}":"' & $a_ScheduledTasks[$i][2] & '"' & '@CRLF' & _
|
||||||
|
" " & '},' & '@CRLF'
|
||||||
|
Next
|
||||||
|
$s_JSONOutput = StringTrimRight($s_JSONOutput, StringLen("," & "@CRLF")) & @CRLF & " " & ']' & @CRLF & '}'
|
||||||
|
$s_JSONOutput = StringReplace($s_JSONOutput, "@CRLF", @CRLF)
|
||||||
|
If StringLen($s_JSONOutput) < 11 Then
|
||||||
|
ConsoleWrite('{"data":[]}' & @CRLF)
|
||||||
|
Else
|
||||||
|
ConsoleWrite(_ANSI2OEM($s_JSONOutput))
|
||||||
|
EndIf
|
||||||
|
_VerboseConsoleWrite("Programm abgeschlossen")
|
||||||
|
Exit 0
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If $CmdLine[1] = "query" And $CmdLine[0] > 1 Then
|
||||||
|
_VerboseConsoleWrite("Parameter query gefunden - Frage bestimmten Task ab und sende Daten direkt an Zabbix Server")
|
||||||
|
_GetAllScheduledTasks()
|
||||||
|
$s_QueryTaskName = ""
|
||||||
|
$i_ThisTask = 0
|
||||||
|
_VerboseConsoleWrite("Suche den Originalnamen des gewünschten Task")
|
||||||
|
If $a_ScheduledTasks[0][0] > 0 Then
|
||||||
|
For $i = 1 To $a_ScheduledTasks[0][0]
|
||||||
|
If $CmdLine[2] = $a_ScheduledTasks[$i][2] Then
|
||||||
|
$s_QueryTaskName = $a_ScheduledTasks[$i][1]
|
||||||
|
$i_ThisTask = $i
|
||||||
|
EndIf
|
||||||
|
Next
|
||||||
|
EndIf
|
||||||
|
If $s_QueryTaskName = "" Then
|
||||||
|
ConsoleWrite("ZBX_NOTSUPPORTED" & @CRLF)
|
||||||
|
Exit 0
|
||||||
|
EndIf
|
||||||
|
_VerboseConsoleWrite("Gefunden: " & $s_QueryTaskName)
|
||||||
|
_VerboseConsoleWrite("Frage Status dieses Task ab: ")
|
||||||
|
$s_temp1 = _schtasks("/QUERY /FO CSV /V /TN " & '"' & $s_QueryTaskName & '"')
|
||||||
|
;ConsoleWrite($s_temp1 & @CRLF)
|
||||||
|
$s_temp1 = StringReplace($s_temp1, @CRLF, "@CRLF")
|
||||||
|
$a_temp1 = StringSplit($s_temp1, "@CRLF", 1)
|
||||||
|
If $a_temp1[0] < 2 Then
|
||||||
|
_VerboseConsoleWrite("Rückgabe der Abfrage war zu kurz / nicht erfolgreich")
|
||||||
|
ConsoleWrite("ZBX_SUPPORTED" & @CRLF)
|
||||||
|
Exit 0
|
||||||
|
EndIf
|
||||||
|
_VerboseConsoleWrite("Zerlege die Rückgabe")
|
||||||
|
$a_temp2 = StringSplit($a_temp1[2],",")
|
||||||
|
;_ArrayDisplay($a_temp2)
|
||||||
|
|
||||||
|
If $a_temp2[0] > 1 Then
|
||||||
|
;_ArrayDisplay($a_temp2)
|
||||||
|
;Last Result
|
||||||
|
$a_ScheduledTasks[$i_ThisTask][3] = StringReplace($a_temp2[7], '"', "")
|
||||||
|
|
||||||
|
;Last Run Time
|
||||||
|
; Mögliche Werte zum Beispiel: "18.04.2015 01:00:00" oder "04/14/2015 01:00:00" oder "n/a"' oder "Nicht zutreffend"
|
||||||
|
If StringRegExp($a_temp2[6], '\d+') = 1 Then ; String enthält mindestens eine Zahl
|
||||||
|
If StringInStr($a_temp2[6], "/") > 0 Then
|
||||||
|
_VerboseConsoleWrite("Last Runtime gefunden in englischer Schreibweise: " & $a_temp2[6])
|
||||||
|
$a_temp1 = StringSplit(StringReplace($a_temp2[6], '"', ""), "/ ", 0)
|
||||||
|
; $a_temp1[1] = MM
|
||||||
|
; $a_temp1[2] = DD
|
||||||
|
; $a_temp1[3] = YYYY
|
||||||
|
; $a_temp1[4] = HH:MM:SS
|
||||||
|
;Input Start date in the format "YYYY/MM/DD[ HH:MM:SS]"
|
||||||
|
$a_ScheduledTasks[$i_ThisTask][4] = _DateDiff("s", "1970/01/01 00:00:00", $a_temp1[3] & "/" & $a_temp1[1] & "/" & $a_temp1[2] & " " & $a_temp1[4])
|
||||||
|
Else
|
||||||
|
_VerboseConsoleWrite("Last Runtime gefunden in deutscher Schreibweise: " & $a_temp2[6])
|
||||||
|
$a_temp1 = StringSplit(StringReplace($a_temp2[6], '"', ""), ". ", 0)
|
||||||
|
; $a_temp1[1] = DD
|
||||||
|
; $a_temp1[2] = MM
|
||||||
|
; $a_temp1[3] = YYYY
|
||||||
|
; $a_temp1[4] = HH:MM:SS
|
||||||
|
;Input Start date in the format "YYYY/MM/DD[ HH:MM:SS]"
|
||||||
|
$a_ScheduledTasks[$i_ThisTask][4] = _DateDiff("s", "1970/01/01 00:00:00", $a_temp1[3] & "/" & $a_temp1[2] & "/" & $a_temp1[1] & " " & $a_temp1[4])
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
_VerboseConsoleWrite("Last Runtime nicht gefunden: " & $a_temp2[6])
|
||||||
|
$a_ScheduledTasks[$i_ThisTask][4] = "ZBX_NOTSUPPORTED"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
; Next Run Time
|
||||||
|
; Mögliche Werte zum Beispiel: "18.04.2015 01:00:00" oder "04/14/2015 01:00:00" oder "n/a"' oder "Nicht zutreffend"
|
||||||
|
If StringRegExp($a_temp2[3], '\d+') = 1 Then ; String enthält mindestens eine Zahl
|
||||||
|
If StringInStr($a_temp2[3], "/") > 0 Then
|
||||||
|
_VerboseConsoleWrite("Next Runtime gefunden in englischer Schreibweise: " & $a_temp2[6])
|
||||||
|
$a_temp1 = StringSplit(StringReplace($a_temp2[3], '"', ""), "/ ", 0)
|
||||||
|
; $a_temp1[1] = MM
|
||||||
|
; $a_temp1[2] = DD
|
||||||
|
; $a_temp1[3] = YYYY
|
||||||
|
; $a_temp1[4] = HH:MM:SS
|
||||||
|
;Input Start date in the format "YYYY/MM/DD[ HH:MM:SS]"
|
||||||
|
$a_ScheduledTasks[$i_ThisTask][5] = _DateDiff("s", "1970/01/01 00:00:00", $a_temp1[3] & "/" & $a_temp1[1] & "/" & $a_temp1[2] & " " & $a_temp1[4])
|
||||||
|
Else
|
||||||
|
_VerboseConsoleWrite("Next Runtime gefunden in deutscher Schreibweise: " & $a_temp2[6])
|
||||||
|
$a_temp1 = StringSplit(StringReplace($a_temp2[3], '"', ""), ". ", 0)
|
||||||
|
; $a_temp1[1] = DD
|
||||||
|
; $a_temp1[2] = MM
|
||||||
|
; $a_temp1[3] = YYYY
|
||||||
|
; $a_temp1[4] = HH:MM:SS
|
||||||
|
;Input Start date in the format "YYYY/MM/DD[ HH:MM:SS]"
|
||||||
|
$a_ScheduledTasks[$i_ThisTask][5] = _DateDiff("s", "1970/01/01 00:00:00", $a_temp1[3] & "/" & $a_temp1[2] & "/" & $a_temp1[1] & " " & $a_temp1[4])
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
_VerboseConsoleWrite("Next Runtime nicht gefunden: " & $a_temp2[6])
|
||||||
|
$a_ScheduledTasks[$i_ThisTask][5] = "ZBX_NOTSUPPORTED"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
; Run As User
|
||||||
|
$a_ScheduledTasks[$i_ThisTask][6] = StringReplace($a_temp2[8], '"', "")
|
||||||
|
_VerboseConsoleWrite("Task wird ausgeführt als: " & $a_ScheduledTasks[$i_ThisTask][6])
|
||||||
|
|
||||||
|
; Task To Run
|
||||||
|
$a_ScheduledTasks[$i_ThisTask][7] = StringReplace($a_temp2[9], '"', "")
|
||||||
|
_VerboseConsoleWrite("Ausgeführt wird: " & $a_ScheduledTasks[$i_ThisTask][7])
|
||||||
|
Else
|
||||||
|
ConsoleWrite("ZBX_SUPPORTED" & @CRLF)
|
||||||
|
Exit 0
|
||||||
|
EndIf
|
||||||
|
_Zabbix_conf()
|
||||||
|
;_ArrayDisplay($a_ScheduledTasks)
|
||||||
|
;$a_ScheduledTasks[0][8] ; [0][0] = Anzahl der Tasks
|
||||||
|
; [x][1] = Name des Task "original"
|
||||||
|
; [x][2] = Name des Tasks "bereinigt" - ohne Leerzeichen/Sonderzeichen zur Anzeige in Zabbix und zur Übergabe an dieses Programm hier
|
||||||
|
; [x][3] = Last Result
|
||||||
|
; [x][4] = Last Run Time
|
||||||
|
; [x][5] = Next Run Time
|
||||||
|
; [x][6] = Run As User
|
||||||
|
; [x][7] = Task To Run
|
||||||
|
_VerboseConsoleWrite("Sende Daten mit zabbix_sender.exe")
|
||||||
|
_SendValue_with_Zabbix_Sender("znil.TaskSchedulerMonitoring[LastResult," & $a_ScheduledTasks[$i_ThisTask][2] & "]", $a_ScheduledTasks[$i_ThisTask][3])
|
||||||
|
_SendValue_with_Zabbix_Sender("znil.TaskSchedulerMonitoring[LastRunTime," & $a_ScheduledTasks[$i_ThisTask][2] & "]", $a_ScheduledTasks[$i_ThisTask][4])
|
||||||
|
_SendValue_with_Zabbix_Sender("znil.TaskSchedulerMonitoring[NextRunTime," & $a_ScheduledTasks[$i_ThisTask][2] & "]", $a_ScheduledTasks[$i_ThisTask][5])
|
||||||
|
_SendValue_with_Zabbix_Sender("znil.TaskSchedulerMonitoring[RunAsUser," & $a_ScheduledTasks[$i_ThisTask][2] & "]", $a_ScheduledTasks[$i_ThisTask][6])
|
||||||
|
$iRunTime = _DateDiff("s", "1970/01/01 00:00:00", _NowCalc()) - $iStartTime
|
||||||
|
ConsoleWrite($iRunTime & @CRLF)
|
||||||
|
Exit 0
|
||||||
|
Else
|
||||||
|
ConsoleWrite("ERROR - Option 'query' without Parameter - see /? vor Help")
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
Exit 0
|
||||||
Loading…
Reference in New Issue
Block a user