#RequireAdmin #include #include #include #include #include #Region ### START Koda GUI section ### Form= $GUI = GUICreate("GUI", 403, 137, 1106, 671) $AplikacjaDoInstalacjiProgramow = GUICtrlCreateLabel("Instalator zestawu aplikacji firmowych", 112, 16, 183, 17) $Zainstaluj = GUICtrlCreateButton("Zainstaluj", 40, 56, 75, 25) $Wyjdz = GUICtrlCreateButton("Wyjdź", 296, 56, 75, 25) $Zinstalujzeps = GUICtrlCreateButton("EPS (laptop)", 168, 56, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Local $SciezkaESET = 'instalki\ESMC_Installer_x64_pl_PL.exe' Local $SciezkaCheckPoint = 'instalki\Check_Point_Identity_Agent_drutex.msi' Local $SciezkaForeScout = 'instalki\SC-rBEBZCcTNIBY_jlmHbfTdBbFQQN0tcYFs19Mqef3F69_tjm1CIUEAAE-.exe' Local $SciezkaAVAMAR = 'instalki\AvamarClient-windows-x86_64-19.2.100-155.msi' Local $SciezkaLOG = 'instalki\log-agent.msi' While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Zainstaluj Instalacja() Case $Zinstalujzeps ZainstalujEPS() Case $Wyjdz Exit EndSwitch WEnd HotKeySet('{ESC}', 'ZakonczProgram') Func ZakonczProgram($process_name = "AutoIt3.exe") $PID = ProcessExists($process_name) If $PID Then ProcessClose($PID) ProcessWaitClose($process_name) EndIf EndFunc Func Instalacja() If ProcessExists("ERAAgent.exe")Then ;Sprawdza, czy proces istnieje MsgBox($MB_SYSTEMMODAL, "", "Eset jest zainstalowany", 1) ;Jezeli tak to o tym powiadamia w MassageBoxie Else ShellExecute($SciezkaESET) ;Jezeli nie ma takiego procesu to instaluje program AutoItSetOption('MouseCoorMode', 0) WinWait('ESET Package Installer') WinActivate('ESET Package Installer') MouseClick('primary', 839, 749, 1, 0) Sleep(50000) WinActivate('ESET Package Installer') MouseClick('primary', 832, 750, 1, 0) Sleep(10000) WinActivate('ESET Package Installer') MouseClick('primary', 828, 745, 1, 0) Sleep(100000) WinActivate('ESET Package Installer') MouseClick('primary', 850, 746, 1, 0) Sleep(120000) ;Przerwa między programami (Uspij na 1m) EndIf If ProcessExists("IdentityAgent.exe")Then ;Sprawdza, czy proces istnieje MsgBox($MB_SYSTEMMODAL, "", "CheckPoint jest zainstalowany", 1) ;Jezeli tak to o tym powiadamia w MassageBoxie MouseClick("primary",987, 593, 1, 0) Else ShellExecute($SciezkaCheckPoint) ;Jezeli nie ma takiego procesu to instaluje program AutoItSetOption('MouseCoorMode', 0) Sleep(60000) ;Przerwa między programami (Uspij na 3s) EndIf If ProcessExists("SecureConnector.exe")Then ;Sprawdza, czy proces istnieje MsgBox($MB_SYSTEMMODAL, "", "ForeScout jest zainstalowany", 1) ;Jezeli tak to o tym powiadamia w MassageBoxie MouseClick("primary",987, 593, 1, 0) Else Local $bFileInstall = True; If $bFileInstall Then FileInstall("C:\Users\TEST\Desktop\instalki\SC-rBEBZCcTNIBY_jlmHbfTdBbFQQN0tcYFs19Mqef3F69_tjm1CIUEAAE-.exe", @ScriptDir & "\SC-rBEBZCcTNIBY_jlmHbfTdBbFQQN0tcYFs19Mqef3F69_tjm1CIUEAAE-.exe") ;Kopiuje plik, poniważ po instalacji sie usuwa Sleep(3000) ShellExecute($SciezkaForeScout) ;Jezeli nie ma takiego procesu to instaluje program AutoItSetOption('MouseCoorMode', 0) Sleep(60000) ;Przerwa między programami (Uspij na 1m) EndIf If ProcessExists("avscc.exe")Then ;Sprawdza, czy proces istnieje MsgBox($MB_SYSTEMMODAL, "", "AVAMAR jest zainstalowany", 1) ;Jezeli tak to o tym powiadamia w MassageBoxie MouseClick("primary",987, 593, 1, 0) Else ShellExecute($SciezkaAVAMAR) ;Jezeli nie ma takiego procesu to instaluje program AutoItSetOption('MouseCoorMode', 0) Sleep(22000) WinWait("EMC Avamar for Windows Setup") WinActivate("EMC Avamar for Windows Setup") MouseClick("primary",1057, 690, 1, 0) WinActivate("EMC Avamar for Windows Setup") MouseClick("primary",747, 638, 1, 0) WinActivate("EMC Avamar for Windows Setup") MouseClick("primary",1060, 683, 1, 0) WinActivate("EMC Avamar for Windows Setup") MouseClick("primary",1081, 687, 1, 0) WinActivate("EMC Avamar for Windows Setup") MouseClick("primary",1063, 688, 1, 0) Sleep(2000) WinActivate("Warning") MouseClick("primary",1115, 600, 1, 0) WinActivate("EMC Avamar for Windows Setup") MouseClick("primary",1048, 684, 1, 0) Sleep(40000) WinActivate("EMC Avamar for Windows Setup") MouseClick("primary",1053, 686, 1, 0) Sleep(60000);(Uspij na 1m) EndIf If ProcessExists("LOGSystem.Agent.Service.exe")Then ;Sprawdza, czy proces istnieje MsgBox($MB_SYSTEMMODAL, "", "LOG jest zainstalowany", 1) ;Jezeli tak to o tym powiadamia w MassageBoxie MouseClick("primary",987, 593, 1, 0) Else ShellExecute($SciezkaLOG) ;Jezeli nie ma takiego procesu to instaluje program AutoItSetOption('MouseCoorMode', 0) WinWait("Instalator programu LOG System Agent") WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1053, 686, 1, 0) Sleep(2000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",746, 637, 1, 0) Sleep(1000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1054, 688, 1, 0) Sleep(1000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",791, 450, 1, 0) Sleep(1000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1065, 685, 1, 0) Sleep(1000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1059, 682, 1, 0) Sleep(1000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1081, 686, 1, 0) Sleep(1000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1054, 685, 1, 0) Sleep(1000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1064, 684, 1, 0) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1049, 686, 1, 0) Sleep(1000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1055, 686, 1, 0) Sleep(1000) WinActivate("Instalator programu LOG System Agent") MouseClick("primary",1049, 687, 1, 0) EndIf MsgBox($MB_SYSTEMMODAL, "", "Wszystkie Programy Sa Zainstalowane") ;Powiadomienie, że wszystkie programy zostały zainstalowane EndFunc Func ZainstalujEPS() If ProcessExists("cptrayUI.exe")Then ;Sprawdza, czy proces istnieje MsgBox($MB_SYSTEMMODAL, "", "EPS, jest zainstalowany", 1) ;Jezeli tak to o tym powiadamia w MassageBoxie MouseClick("primary",987, 593, 1, 0) Else ShellExecute('instalki\EPS.msi' ) ;Jezeli nie ma takiego procesu to instaluje program AutoItSetOption('MouseCoorMode', 0)) ControlClick('Check Point Endpoint Security', '', 'Button1') MsgBox($MB_SYSTEMMODAL, "", "EPS został zainstalowany") ;Powiadomienie, że EPS został zainstalowany EndIf EndFunc