Une commande qu'on m'as faite récemment, comment installer les stratégies de groupe sous XP home, comme d'après le sondage http://autoitscript.fr/forum/viewtopic. ... ciel#p2052 , nous sommes 13% à en disposer, ça peut être utile.
► Afficher le texte
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