; Script de  préparation
; Edite par ABD pour Solware
; V1.0
; 29/08/2019

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>
#include <Array.au3>
#include <String.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>

Opt("TrayAutoPause", 0)

$Form1 = GUICreate("PREPA Office", 600, 400, -1100, 200)
GUISetFont(18, 400, 0, "MS Sans Serif")
GUISetBkColor(0xC0C0C0)
$Button1 = GUICtrlCreateButton("Quitter", 480, 344, 115, 49)
GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Label1 = GUICtrlCreateLabel("Voulez-vous installer Microsoft Office 2019 ?", 56, 40, 474, 33)
$Button2 = GUICtrlCreateButton("Oui", 104, 160, 99, 57)
$Button3 = GUICtrlCreateButton("Non", 384, 160, 99, 57)
GUISetState(@SW_SHOW)

$Form2 = GUICreate("PREPA RNFI", 600, 400, -1100, 200)
GUISetFont(18, 400, 0, "MS Sans Serif")
GUISetBkColor(0xA6CAF0)
$Button4 = GUICtrlCreateButton("Quitter", 480, 344, 115, 49)
GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Label2 = GUICtrlCreateLabel("Voulez-vous installer le Package RNFI ?", 88, 32, 431, 33)
$Button5 = GUICtrlCreateButton("Oui", 104, 160, 99, 57)
$Button6 = GUICtrlCreateButton("Non", 384, 160, 99, 57)

$Form3 = GUICreate("PREPA Winmotor", 600, 400, -1100, 200)
GUISetFont(18, 400, 0, "MS Sans Serif")
$Button7 = GUICtrlCreateButton("Quitter", 480, 344, 115, 49)
GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Label3 = GUICtrlCreateLabel("Voulez-vous installer Winmotor  ?", 152, 24, 358, 33)
$Button8 = GUICtrlCreateButton("ASP", 48, 160, 99, 57)
$Button9 = GUICtrlCreateButton("Non", 472, 160, 99, 57)
$Button10 = GUICtrlCreateButton("Serveur Local", 184, 160, 99, 57)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
$Button11 = GUICtrlCreateButton("Station Local", 328, 160, 99, 57)
GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")


$Form4 = GUICreate("PREPA Kaspersky", 600, 400, -1100, 200)
GUISetFont(18, 400, 0, "MS Sans Serif")
GUISetBkColor(0xC0DCC0)
$Button12 = GUICtrlCreateButton("Quitter", 480, 344, 115, 49)
GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Label4 = GUICtrlCreateLabel("Voulez-vous installer Kaspersky ?", 112, 40, 361, 33)
$Button13 = GUICtrlCreateButton("Oui", 104, 160, 99, 57)
$Button14 = GUICtrlCreateButton("Non", 384, 160, 99, 57)


$Form5 = GUICreate("PREPA Audit Prépa", 600, 400, -1100, 200)
GUISetFont(18, 400, 0, "MS Sans Serif")
$Button15 = GUICtrlCreateButton("Quitter", 480, 344, 115, 49)
GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Label5 = GUICtrlCreateLabel("Voulez-vous lancer l'Audit de prépa ?", 112, 40, 400, 33)
$Button16 = GUICtrlCreateButton("Oui", 104, 160, 99, 57)
$Button17 = GUICtrlCreateButton("Non", 384, 160, 99, 57)

$Form6 = GUICreate("PREPA DELSCRIPT", 600, 400, -1100, 200)
GUISetFont(18, 400, 0, "MS Sans Serif")
$Button18 = GUICtrlCreateButton("Quitter", 480, 344, 115, 49)
GUICtrlSetResizing(-1, $GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Label6 = GUICtrlCreateLabel("Voulez-vous lancer le delscript ?", 112, 40, 361, 33)
$Button19 = GUICtrlCreateButton("Oui", 104, 160, 99, 57)
$Button20 = GUICtrlCreateButton("Non", 384, 160, 99, 57)


if FileExists ("C:\Winmotor\SOC1") Then GUISetState(@SW_HIDE, $Form1)
if FileExists ("C:\Winmotor\SOC1") Then GUISetState(@SW_HIDE, $Form2)
if FileExists ("C:\Winmotor\SOC1") Then GUISetState(@SW_HIDE, $Form3)
if FileExists ("C:\Winmotor\SOC1") Then GUISetState(@SW_SHOW, $Form4)




While 1
		;After every loop check if the user clicked something in the GUI window
		$iMsg = GUIGetMsg()

		Select

			;--------- Fenêtre Office

				;Check if user clicked on the close button
			Case $iMsg = $GUI_EVENT_CLOSE
				;Destroy the GUI including the controls
				GUIDelete()
				;Exit the script
				Exit

				;si oui office lancement d'office pour activation
			Case $iMsg = $Button2
				Run ("C:\Program Files (x86)\Microsoft Office\root\Office16\WINWORD.exe")
				GUISetState(@SW_HIDE, $Form1)
				GUISetState(@SW_SHOW, $Form2)

				; si non office lancement du désinstalleur
			Case $iMsg = $Button3
				RunWait ("C:\Drivers\Sources\Office2019Uninstall\O15CTRRemove.diagcab")
				GUISetState(@SW_HIDE, $Form1)
				GUISetState(@SW_SHOW, $Form2)

				; si quitter office
			Case $iMsg = $Button1
				GUIDelete()
				Exit




			;--------- Fenêtre RNFI

			; si quitter rnfi
			Case $iMsg = $Button4
				GUIDelete()
				Exit

			; Si oui rnfi lancement de l'installation du package rnfi en admin
			Case $iMsg = $Button5
				RunAsWait("administrateur", @ComputerName, "Solware0", 0, "C:\Drivers\Sources\Srcprepa\Sources Prepa\RenaultNET_Install.exe")
				GUISetState(@SW_HIDE, $Form2)
				GUISetState(@SW_SHOW, $Form3)


			; Si non rnfi passage à la gui suivante
			Case $iMsg = $Button6
				GUISetState(@SW_HIDE, $Form2)
				GUISetState(@SW_SHOW, $Form3)


			;--------- Fenêtre Winmotor

			; Si quitter Winmotor
			Case $iMsg = $Button7
				GUIDelete()
				Exit



			; si wimotor ASP copie cle de registre, lancement du script install ASP et passage à la gui suivante
			Case $iMsg = $Button8
			RunAsWait("administrateur", @ComputerName, "Solware0", 0, "C:\Drivers\Sources\Srcprepa\Sources Prepa\WM_ASP\MAJREG.exe")
			RunAsWait("administrateur", @ComputerName, "Solware0", 0, "C:\Drivers\Sources\Srcprepa\Sources Prepa\WM_ASP\ASP 2.9.exe")
			GUISetState(@SW_HIDE, $Form3)
			GUISetState(@SW_SHOW, $Form4)

			; si winmotor serveur local
			Case $iMsg = $Button10
			Filecopy ("C:\Drivers\sources\srcprepa\sources prepa\prepa.exe", "C:\Users\" & @UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\")
			RunWait ("C:\Drivers\Sources\Srcprepa\Sources Prepa\HASPUserSetup_win2012.exe.EXE")
			MsgBox (0, "Token USB", "Veuillez maintenant brancher la clé/Token Winmotor.")
			RunWait ("C:\Drivers\Sources\Srcprepa\Sources Prepa\WMSetup\Install\INSTALL.EXE")



			; si winmotor station local création du lecteur réseau, lancement de l'installation en admin et passage à la gui suivante
			Case $iMsg = $Button11
			DriveMapAdd ("R:", "\\serveur\c", 1, "administrateur", "Solware0")
			If @error = 1 Then MsgBox (16, "Erreur", "Erreur non définie.")
			If @error = 2 Then MsgBox (16, "Erreur", "Accès Réseau impossible.")
			If @error = 3 Then MsgBox (64, "Erreur", "Lecteur déjà assigné.")
			If @error = 4 Then MsgBox (16, "Erreur", "Nom invalide.")
			If @error = 5 Then MsgBox (16, "Erreur", "Partage invalide.")
			If @error = 6 Then MsgBox (16, "Erreur", "Mot de passe invalide.")
			RunAsWait("administrateur", @ComputerName, "Solware0", 0, "R:\Winmotor\wmsetup.exe")
			GUISetState(@SW_HIDE, $Form3)
			GUISetState(@SW_SHOW, $Form4)


			; si winmotor non
			Case $iMsg = $Button9
			GUISetState(@SW_HIDE, $Form3)
			GUISetState(@SW_SHOW, $Form4)



			;--------- Fenêtre Kaspsersky

				; Si quitter
			Case $iMsg = $Button12
				GUIDelete()
				Exit

			; Si oui kasper lancement de l'intallation puis du patch et passage à la gui suivante
			Case $iMsg = $Button13
			RunWait ("C:\Drivers\sources\srcprepa\sources prepa\kaspersky\installer.exe")
			RunWait ("C:\Drivers\Sources\Srcprepa\Sources Prepa\Kaspersky\pf5075\pf5075.msp")
			GUISetState(@SW_HIDE, $Form4)
			GUISetState(@SW_SHOW, $Form5)




			; Si non kasper passage gui suivante
			Case $iMsg = $Button14
			GUISetState(@SW_HIDE, $Form4)
			GUISetState(@SW_SHOW, $Form5)




			;--------- Fenêtre Audit Prepa

			; Si quitter Audit Prepa
			Case $iMsg = $Button15
				GUIDelete()
				Exit

			; Si oui Audit Prepa lancement de l'audit prepa puis passage à la gui suivante
			Case $iMsg = $Button16
			RunWait ("C:\Drivers\sources\Auditprepa")
			GUISetState(@SW_HIDE, $Form5)
			GUISetState(@SW_SHOW, $Form6)

			; Si non audit prepa passage au gui suivant
			Case $iMsg = $Button17
			GUISetState(@SW_HIDE, $Form5)
			GUISetState(@SW_SHOW, $Form6)




			;--------- Fenêtre Delscript

			; Si quitter Delscript
			Case $iMsg = $Button18
				GUIDelete()
				Exit

			; Si oui delscript lancement du delscript et supression de prepa.exe
			Case $iMsg = $Button19
			FileDelete ("C:\Users\" & @UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\prepa.exe")
			RunAsWait ("administrateur", @ComputerName, "Solware0", 0, "C:\Drivers\Sources\delscript.bat")
			GUIDelete()
				Exit


			; Si non supression de prepa.exe et exit
			Case $iMsg = $Button20
			FileDelete ("C:\Users\" & @UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\prepa.exe")
			GUIDelete()
				Exit






























		EndSelect

	WEnd