AutoIt Français

Code : Tout sélectionner

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=ATP_GPEDIT-XPHome.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=Installez gpedit.msc sur XP Home.
#AutoIt3Wrapper_Res_Description=Installez gpedit.msc sur XP Home.
#AutoIt3Wrapper_Res_Fileversion=0.0.0.15
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=Arrkhan
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, T2SI5_Stag069_GPEDIT-XPHome.au3, rcdata, SOURCE, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, Resources.au3, rcdata, INCLUDE, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, ResHacker.exe, rcdata, RESHACK, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, upx.exe, rcdata, UPX303, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, appmgmts.dll, rcdata, APPMGMTS, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, appmgr.dll, rcdata, APPMGR, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, fde.dll, rcdata, FDE, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, fdeploy.dll, rcdata, FDEPLOY, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, gpedit.dll, rcdata, GPEDITDLL, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, gpedit.msc, rcdata, GPEDITMSC, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, gptext.dll, rcdata, GPETEXT, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, conf.adm, rcdata, CONF, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, inetres.adm, rcdata, INETRES, 0
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, system.adm, rcdata, SYSTEM, 0
#AutoIt3Wrapper_Run_After=upx.exe --best --compress-resources=1 "%out%"
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <Resources.au3>

$appmgmts = @SystemDir & "\appmgmts.dll"
$appmgr = @SystemDir & "\appmgr.dll"
$fde = @SystemDir & "\fde.dll"
$fdeploy = @SystemDir & "\fdeploy.dll"
$gpeditd = @SystemDir & "\gpedit.dll"
$gpeditm = @SystemDir & "\gpedit.msc"
$gptext = @SystemDir & "\gptext.dll"
$conf = @SystemDir & "\GroupPolicy\Adm\conf.adm"
$inetres = @SystemDir & "\GroupPolicy\Adm\inetres.adm"
$system = @SystemDir & "\GroupPolicy\Adm\system.adm"
$APPTitle = StringTrimRight(@ScriptName, 4)

If $cmdline[0] <> "" Then
    If $cmdline[1] = "/src" Then
        Dim $iMsgBoxAnswer
        $iMsgBoxAnswer = MsgBox(266561, $APPTitle, "Le paramètre /src affichera la source et les outils de " & $APPTitle & @CRLF & "dans un dossier dans le répertoire courant." & @CRLF & "" & @CRLF & "Souhaitez-vous continuer ?")
        Select
            Case $iMsgBoxAnswer = 1 ;OK
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\" & $APPTitle & ".au3", "SOURCE", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\Resources.au3", "INCLUDE", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\ResHacker.exe", "RESHACK", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\upx.exe", "UPX303", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\appmgmts.dll", "APPMGMTS", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\appmgr.dll", "APPMGR", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\fde.dll", "FDE", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\fdeploy.dll", "FDEPLOY", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\gpedit.dll", "GPEDITDLL", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\gpedit.msc", "GPEDITMSC", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\gptext.dll", "GPETEXT", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\conf.adm", "CONF", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\inetres.adm", "INETRES", $RT_RCDATA, 0, 1)
                _ResourceSaveToFile(@ScriptDir & "\Source de " & $APPTitle & "\system.adm", "SYSTEM", $RT_RCDATA, 0, 1)
            Case $iMsgBoxAnswer = 2 ;Cancel

        EndSelect
    Else
        MsgBox(0, $APPTitle, "Paramètres correcte /src")
    EndIf
EndIf

$ObjWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
$ColSettings = $ObjWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For $ObjOperatingSystem In $ColSettings
    $OScomplet = $ObjOperatingSystem.Caption
Next

If $OScomplet <> "Microsoft Windows XP Édition familiale" Then
    MsgBox(262160, $APPTitle, "ATTENTION" & @CRLF & @CRLF & $APPTitle & " peut uniquement être installé sur " & @CRLF & "Microsoft Windows XP Édition familiale." & @CRLF & "et vous disposez de " & @CRLF & $OScomplet & @CRLF & @CRLF & $APPTitle & " va maintenant se fermer.")
    Exit
Else
    If Not FileExists($appmgmts) And _
            Not FileExists($appmgr) And _
            Not FileExists($fde) And _
            Not FileExists($fdeploy) And _
            Not FileExists($gpeditd) And _
            Not FileExists($gpeditm) And _
            Not FileExists($gptext) And _
            Not FileExists($conf) And _
            Not FileExists($inetres) And _
            Not FileExists($system) Then
        Dim $iMsgBoxAnswer
        $iMsgBoxAnswer = MsgBox(262209, $APPTitle, $APPTitle & " va maintenant installé les outil qui vont permettre" & @CRLF & "d'exécuter gpedit.msc sur votre système")
        Select
            Case $iMsgBoxAnswer = 1 ;OK
                _GpeditInstall()
            Case $iMsgBoxAnswer = 2 ;Cancel
                Exit
        EndSelect
    Else
        Dim $iMsgBoxAnswer
        $iMsgBoxAnswer = MsgBox(262436, $APPTitle, "gpedit.msc semble déjà être installé sur votre système." & @CRLF & "" & @CRLF & "Souhaitez-vous continuer ?")
        Select
            Case $iMsgBoxAnswer = 6 ;Yes
                _GpeditInstall()
            Case $iMsgBoxAnswer = 7 ;No
                Exit
        EndSelect
    EndIf
EndIf

Func _GpeditInstall()
    _ResourceSaveToFile($appmgmts, "APPMGMTS", $RT_RCDATA, 0, 1)
    _ResourceSaveToFile($appmgr, "APPMGR", $RT_RCDATA, 0, 1)
    _ResourceSaveToFile($fde, "FDE", $RT_RCDATA, 0, 1)
    _ResourceSaveToFile($fdeploy, "FDEPLOY", $RT_RCDATA, 0, 1)
    _ResourceSaveToFile($gpeditd, "GPEDITDLL", $RT_RCDATA, 0, 1)
    _ResourceSaveToFile($gpeditm, "GPEDITMSC", $RT_RCDATA, 0, 1)
    _ResourceSaveToFile($gptext, "GPETEXT", $RT_RCDATA, 0, 1)
    _ResourceSaveToFile($conf, "CONF", $RT_RCDATA, 0, 1)
    _ResourceSaveToFile($inetres, "INETRES", $RT_RCDATA, 0, 1)
    _ResourceSaveToFile($system, "SYSTEM", $RT_RCDATA, 0, 1)
    Run("regsvr32 " & $gpeditd, @SW_HIDE)
    Run("regsvr32 " & $fde, @SW_HIDE)
    Run("regsvr32 " & $gptext, @SW_HIDE)
    Run("regsvr32 " & $appmgr, @SW_HIDE)
    Run("regsvr32 " & $fdeploy, @SW_HIDE)
    MsgBox(0, $APPTitle, "Installation terminée.")
    Exit
EndFunc   ;==>_GpeditInstall