[..] Modification dans gpedit.msc

[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??

[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