;############################################################################
; Auteur : Julien Lefebvre
; Version Autoit V3.3.6.1
; Date : 28/02/2011
; Date de révision :28/02/2011
; Pour Audioptic Trade Services
;############################################################################

#include <file.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Func_Renomme_srv.au3>


#Region ### START Koda GUI section ### Form=c:\documents and settings\administrateur\bureau\renomme_srv\boxrename.kxf
$Form1 = GUICreate(" Renommage Serveur V2", 367, 232, 559, 434, $GUI_SS_DEFAULT_GUI)
GUISetIcon(@ScriptDir&"\Files\logoOptic2000.ico", -1)
GUISetBkColor(0x554969)
$Label1 = GUICtrlCreateLabel("ANCIEN NOM SERVEUR ", 32, 40, 174, 22, 0)
GUICtrlSetFont(-1, 10, 400, 2, "Arial Black")
GUICtrlSetColor(-1, 0xFFFFFF)
$OldName = GUICtrlCreateInput(@ComputerName, 232, 40, 105, 21, $GUI_SS_DEFAULT_INPUT)
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("NOUVEAU NOM SERVEUR ", 24, 72, 191, 22, 0)
GUICtrlSetFont(-1, 10, 400, 2, "Arial Black")
GUICtrlSetColor(-1, 0xFFFFFF)
$NewName = GUICtrlCreateInput("O2KC00000SRV01", 232, 72, 105, 21, $GUI_SS_DEFAULT_INPUT)
GUICtrlSetColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Exécuter", 8, 184, 65, 25, $BS_NOTIFY)
GUICtrlSetColor(-1, 0x000000)
$Button2 = GUICtrlCreateButton("Quitter", 296, 184, 65, 25, $BS_NOTIFY)
GUICtrlSetColor(-1, 0x000000)
$Progress1 = GUICtrlCreateProgress(8, 168, 353, 9, BitOR($PBS_SMOOTH,$WS_BORDER))
GUICtrlSetColor(-1, 0x00FF00)
$Label4 = GUICtrlCreateLabel("ANCIEN CODE MAGASIN", 32, 104, 176, 22, 0)
GUICtrlSetFont(-1, 10, 400, 2, "Arial Black")
GUICtrlSetColor(-1, 0xFFFFFF)
$OldCode = GUICtrlCreateInput("C00000", 232, 104, 49, 21, $GUI_SS_DEFAULT_INPUT)
GUICtrlSetColor(-1, 0x000000)
$Label5 = GUICtrlCreateLabel("NOUVEAU CODE MAGASIN", 24, 136, 193, 22, 0)
GUICtrlSetFont(-1, 10, 400, 2, "Arial Black")
GUICtrlSetColor(-1, 0xFFFFFF)
$NewCode = GUICtrlCreateInput("C00000", 232, 136, 49, 21, $GUI_SS_DEFAULT_INPUT)
GUICtrlSetColor(-1, 0x000000)
$Label6 = GUICtrlCreateLabel("Informations sur le magasin", 80, 8, 205, 22)
GUICtrlSetFont(-1, 10, 400, 6, "Arial Black")
GUICtrlSetColor(-1, 0xFFFFFF)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
Dim $StatusBar1_PartsWidth[1] = [-1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, @TAB&@OSVersion&" "&@OSServicePack&" "&@computername, 0)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
	
		$Old = GUICtrlRead ($OldName)
		$New = GUICtrlRead ($NewName)
		$OldC = GUICtrlRead ($OldCode)
		$NewC = GUICtrlRead ($NewCode)
		
;Création du fichier info.ini 

	_FileCreate(@ScriptDir&"\Logs\info.ini")
	Sleep(1500)
		GUICtrlSetData($progress1, 10)
			Sleep(1000)
			
;Copie imprimante.vbe dans c:\temp

FileCopy(@ScriptDir&"\imprimante.vbe", "c:\temp", 1)
		Sleep(1000)

;On écrit dans le fichier ini 

	$Fichier_ini = @ScriptDir&"\Logs\info.ini"
		$Fic = FileOpen($Fichier_ini, 2)
		FileWriteLine($Fic, "[Serveur]")
		FileWriteLine($Fic, "AncienNom = "&$Old)
		FileWriteLine($Fic, "NouveauNom = "&$New)
		FileWriteLine($Fic, @CRLF)
		FileWriteLine($Fic, "[Magasin]")
		FileWriteLine($Fic, "AncienCode = "&$OldC)
		FileWriteLine($Fic, "NouveauCode = "&$NewC)
		FileWriteLine($Fic, @CRLF)
		FileWriteLine($Fic, "[Printer]")
		FileWriteLine($Fic, "OldPrint1 = "&"O2K"&$OldC&"PRT01 Facture")
		FileWriteLine($Fic, "OldPrint2 = "&"O2K"&$OldC&"PRT01 Feuille de soin")
		FileWriteLine($Fic, "OldPrint3 = "&"O2K"&$OldC&"PRT01 Paysage")
		FileWriteLine($Fic, "NewPrint1 = "&"O2K"&$NewC&"PRT01 Facture")
		FileWriteLine($Fic, "NewPrint2 = "&"O2K"&$NewC&"PRT01 Feuille de soin")
		FileWriteLine($Fic, "NewPrint3 = "&"O2K"&$NewC&"PRT01 Paysage")
		FileWriteLine($Fic, @CRLF)
		FileClose($Fic)
			Sleep(3000)
		GUICtrlSetData($progress1, 15)
			Sleep(1000)

Dim $FichierLog
	$FichierLog = (@ScriptDir&"\Logs\Renom_"&@MDAY&@MON&@YEAR&".log")
	
	$FicLog = FileOpen($FichierLog, 1)
		FileWriteLine($FicLog, "Fichier .ini - Succès - "&@HOUR&":"&@MIN)
		FileClose($FicLog)
			Sleep(1000)
			
;Création du fichier Log Install

	_FileCreate(@ScriptDir&"\Logs\Renom_"&@MDAY&@MON&@YEAR&".log")
		Sleep(1500)
		GUICtrlSetData($progress1, 20)
			Sleep(1000)
	
	$FicLog = FileOpen($FichierLog, 1)
		FileWriteLine($FicLog, "Début du renommage - Succès - "&@HOUR&":"&@MIN)
		FileClose($FicLog)
			Sleep(1000)
			
;Renommage machine

Dim $renomme
	$renomme = "cmd /c netdom renamecomputer "& $Old &" /newname "& $New &" /UserD ***** /PasswordD ****** /Force"
	run($renomme, @SystemDir, @SW_HIDE)
		ProcessWaitClose("cmd.exe")
			Sleep(500)
		GUICtrlSetData($progress1, 40)
			Sleep(1000)
		
	$FicLog = FileOpen($FichierLog, 1)
		FileWriteLine($FicLog, "Changement de nom du serveur - Succès - "&@HOUR&":"&@MIN)
		FileClose($FicLog)
			Sleep(1000)
		
;Modification des Web.Config PVO-TPO

	FileCopy("c:\inetpub\wwwroot\pvo\web.config", @ScriptDir&"\logs\pvo\", 1)
		Sleep(1000)
		
	_ReplaceStringInFileWithUTF8("c:\inetpub\wwwroot\pvo\web.config", $Old, $New)
		Sleep(1500)
	
	FileCopy("c:\inetpub\wwwroot\tpo\web.config", @ScriptDir&"\logs\tpo\", 1)
		Sleep(1000)
		
	_ReplaceStringInFileWithUTF8("c:\inetpub\wwwroot\tpo\web.config", $Old, $New)
		Sleep(1500)

;Modification du connexion_pvo.ini

	_ReplaceStringInFile("c:\tomcat5\bin\connexion_pvo.ini", $Old, $New)
	
	$FicLog = FileOpen($FichierLog, 1)
		FileWriteLine($FicLog, "Fichier Web.Config / Connexion.ini - Succès - "&@HOUR&":"&@MIN)
		FileClose($FicLog)
			Sleep(1000)
		GUICtrlSetData($progress1, 60)
			Sleep(1000)
	
	
;Création du log

_FileCreate(@ScriptDir&"\Logs\Phase1.log")
	Sleep(1500)
	
	$FicLog = FileOpen($FichierLog, 1)
		FileWriteLine($FicLog, "Création du Log Phase1 - Succès - "&@HOUR&":"&@MIN)
		FileClose($FicLog)
			Sleep(1000)
		GUICtrlSetData($progress1, 65)
			Sleep(1000)
	
;Mise en place des raccoucis pour lancement auto 

FileCreateShortcut(@ScriptDir&"\Init_Renomme_srv.exe", "C:\Documents and settings\All Users\Menu Démarrer\Programmes\Démarrage\Init_Renomme_srv.lnk")
		Sleep(1500)
		
	$FicLog = FileOpen($FichierLog, 1)
		FileWriteLine($FicLog, "Création du raccourci Init_Renomme_srv.lnk - Succès - "&@HOUR&":"&@MIN)
		FileClose($FicLog)
			Sleep(1000)
		GUICtrlSetData($progress1, 70)
			Sleep(1000)
			
;Ajout compte MagC dans le groupe administrateur Local

Add_GrpAdm()
	$FicLog = FileOpen($FichierLog, 1)
		FileWriteLine($FicLog, "Ajout du compte Mag"&$NewC&" dans le groupe Administrateurs - Succès - "&@HOUR&":"&@MIN)
		FileClose($FicLog)
			Sleep(1000)
		GUICtrlSetData($progress1, 80)
			Sleep(1000)

;Activation autologon

AutoLog_MagC()
	$FicLog = FileOpen($FichierLog, 1)
		FileWriteLine($FicLog, "Activation Autologon en Mag"&$NewC&" - Succès - "&@HOUR&":"&@MIN)
		FileClose($FicLog)
			Sleep(1000)
		GUICtrlSetData($progress1, 100)
			Sleep(1000)
			
	$FicLog = FileOpen($FichierLog, 1)
		FileWriteLine($FicLog, "Reboot du serveur - Succès - "&@HOUR&":"&@MIN)
		FileClose($FicLog)
			Sleep(1000)
			
			Shutdown(6)
			Exit
			
Case $Button2
	Exit

EndSwitch
WEnd