Lunetikk's IT Wiki

This script will switch between Icinga in IE and SCOM Console. Pause and Start isnt working yet.

HotKeySet("{F9}", "start")
HotKeySet("{F10}", "pause")
HotKeySet("{F11}", "scom")
HotKeySet("{F12}", "icinga")
Hotkeyset("{END}", "close")
 
$Title = "x"
$Title = WinGetTitle("")
$Title_icinga = "Icinga2 Classic: icinga.lunetikk.de - Internet Explorer"
$Title_scom = "Aktive Warnungen - SCOMSRV - Operations Manager"
$Firststart = "1"
 
If $Firststart = "1" Then
start()
$Firststart = "0"
Else
EndIf
 
 
Func start()
Sleep(50)
While 1
WinActivate ( $title_scom )
Sleep(30000)
WinActivate ( $title_icinga )
Sleep(30000)
WEnd
EndFunc
 
Func pause ()
While 1
Sleep(50)
WEnd
EndFunc
 
Func scom()
While 1
$Title = WinGetTitle("")
If  $Title = $Title_scom Then
Sleep (50)
Else
AutoItSetOption ( "WinTitleMatchMode", 3 )
Sleep(50)
WinActivate ( $title_scom )
EndIf
WEnd
EndFunc
 
Func icinga()
While 1
$Title = WinGetTitle("")
If  $Title = $Title_icinga Then
Sleep (50)
Else
AutoItSetOption ( "WinTitleMatchMode", 3 )
Sleep(50)
WinActivate ( $title_icinga )
EndIf
WEnd
EndFunc
 
Func close ()
	Exit 0
EndFunc
 
Sleep(1)
 
While 1
WEnd