Page 1 sur 1
[..] Modification dans gpedit.msc
Posté : mer. 15 oct. 2008 00:33
par vincm70
Je voudrais automatiser certaine modification dans le gpedit.msc.
Exemple : Empêcher l'accés au lecteur "c:"
C'est dans "Stratégie Ordinateur local\Configuration utilisateur\Modèles d'administration\Composants Windows\Explorateur Windows" .
Je débute, mais j'ai regardé windows info.
Peut-être que j'ai du mal avec la syntaxe.
Si quelqu'un pouvait me donner la réponse, ce serait un bon départ pour moi.
J'ai essayé avec des ControlClik , controlenable. UN modele svp??
Re: [..] MODIF auto ds le gpedit.msc pour config de windows
Posté : mer. 15 oct. 2008 18:10
par fzaweb
Salut
Voici un bout de code que j'utilise pour le lanceemnt de gpedit.msc , puis le parametrage en mode reponse à l'ecran. (compatible XP et 2003 , US et FR )
Si quelqu'un connait une methode pour inscrire directement les valeurs san passer par l'affichage de l'interface graphique ... je suis preneur.
J'ai bien essayé de forcé les parametres dans le registre ... mais helas ce n'est pas pris en compte !
► Afficher le texteCode
Code : Tout sélectionner
Run("cmd /c gpedit.msc", @SystemDir)
SplashTextOn ("Installation en cours - " & @ScriptName,@CRLF & @CRLF & @CRLF & @CRLF & "Merci de patentier" )
BlockInput(1)
Sleep(3000)
while 1
$titre1="Stratégie de groupe"
$titre11="Éditeur d'objets de stratégie de groupe"
$titre2= "Propriétés de Arrêter le système"
$titre3= "Ajout d'un Script"
$titreUS1="Group Policy Object Editor"
$titreUS2= "Shutdown Properties"
$titreUS3= "Add a Script"
If WinActive($titre1)=1 or WinActive($titreUS1)=1 or WinActive($titre11)=1 Then
if $LogNiveau >= 3 then GestionLog("ParametrageScriptArret","Fenetre attendu et trouvé : " & $titre1 & " OU " & $titre11 & " OU " & $titreUS1 )
WinActivate ($titre1)
WinActivate ($titreUS1)
Send ("{DOWN 3}{RIGHT 2}{TAB}")
sleep(1000)
send ("{DOWN 3}{ENTER}")
sleep(1000)
If WinActive($titre2)=1 or WinActive($titreUS2)=1 Then
if $LogNiveau >= 3 then GestionLog("ParametrageScriptArret","Fenetre attendu et trouvé : " & $titre2 & " OU " & $titreUS2 )
WinActivate ($titre2)
WinActivate ($titreUS2)
send("!j")
send("!d")
sleep(1000)
If WinActive($titre3)=1 or WinActive($titreUS3)=1 Then
if $LogNiveau >= 3 then GestionLog("ParametrageScriptArret","Fenetre attendu et trouvé : " & $titre3 & " OU " & $titreUS3 )
WinActivate ($titre3)
WinActivate ($titreUS3)
send (@scriptdir & "\scripts\arret.bat")
send ("{ENTER}")
Sleep(1000)
send ("!a")
send ("{ENTER}")
Send ("!{F4}")
blockinput(0)
SplashOff()
Return
Else
;msgbox(0,"debug",$titre2)
if $LogNiveau >= 3 then GestionLog("ParametrageScriptArret","Fenetre non trouvé : " & $titre3 & " OU " & $titreUS3 )
$FenetreErreur=WinGetTitle("")
if $LogNiveau >= 3 then GestionLog("ParametrageScriptArret","Fenetre en cours : " & $FenetreErreur )
EndIf
Else
if $LogNiveau >= 3 then GestionLog("ParametrageScriptArret","Fenetre non trouvé : " & $titre2 & " OU " & $titreUS2 )
$FenetreErreur=WinGetTitle("")
if $LogNiveau >= 3 then GestionLog("ParametrageScriptArret","Fenetre en cours : " & $FenetreErreur )
;msgbox(0,"debug",$titre2)
EndIf
Else
if $LogNiveau >= 3 then GestionLog("ParametrageScriptArret","Fenetre non trouvé : " & $titre1 & " OU " & $titre11 & " OU " & $titreUS1 )
$FenetreErreur=WinGetTitle("")
if $LogNiveau >= 3 then GestionLog("ParametrageScriptArret","Fenetre en cours : " & $FenetreErreur )
;msgbox(0,"debug",$titre)
EndIf
$__i=$__i + 1
if $__i > 10 then
if $LogNiveau >= 1 then GestionLog("ParametrageScriptArret : Erreur lors de l'inscription du script d'arret dans la GPO d'arret","")
GestionErreur("Erreur d'installation","Erreur lors de l'inscription du script d'arret dans la GPO d'arret","",$Popup,$log)
Send ("!{F4}")
blockinput(0)
SplashOff()
Return
EndIf
wend