[R] Aide pour console admin (v2)

lerin57 · #1

Bonjour,

Avec l'aide des précieux conseil des admins et experts de ce site, j'ai élaboré une gui permettant d'exécuter certains programmes permettant de lancer des fonctions en tant qu'administrateur, dans une session utilisateur avec des droits restreints.
Pour rappel, nous effectuons des PMD avec des outils qui ne nous permettent pas toujours de changer de session.

voici les détails de mon scripts :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>



Local $nUsername,  $nPassword, $nDomain
$nDomain = "Mon_domaine"
Dim $nRes



#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("console administration", 456, 367, 304, 276, -1, BitOR($WS_EX_ACCEPTFILES,$WS_EX_APPWINDOW,$WS_EX_CONTEXTHELP,$WS_EX_WINDOWEDGE))
$MyButton1 = GUICtrlCreateButton("Lancer mmc.exe", 112, 280, 212, 30, $WS_GROUP)
$MyButton2 = GUICtrlCreateButton("Lancer la console services", 0, 112, 212, 30, $WS_GROUP)
$MyButton3 = GUICtrlCreateButton("Lancer le gestionnaire utilisateur", 0, 152, 212, 30, $WS_GROUP)
$MyButton4 = GUICtrlCreateButton("Lancer les propriétés réseaux", 0, 192, 212, 30, $WS_GROUP)
$MyButton5 = GUICtrlCreateButton("Lancer Ajout/suppression de programmes", 240, 112, 212, 30, $WS_GROUP)
$MyButton6 = GUICtrlCreateButton("Lancer Date Et Heure", 240, 152, 212, 30, $WS_GROUP)
$MyButton7 = GUICtrlCreateButton("Lancer notepad", 0, 240, 212, 30, $WS_GROUP)
$MyButton8 = GUICtrlCreateButton("Lancer dualexplorer", 240, 240, 212, 30, $WS_GROUP)
$MyButton9 = GUICtrlCreateButton("Lancer a43 file manager", 240, 192, 212, 30, $WS_GROUP)
$MyButton10 = GUICtrlCreateButton("Sortir", 112, 320, 212, 30, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$nUsername = GUICtrlCreateInput("", 120, 32, 225, 21)
$nPassword = GUICtrlCreateInput("", 120, 64, 225, 21,$ES_PASSWORD)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Select
            Case $nMsg = $GUI_EVENT_CLOSE
                sortie()
            Case $nMsg = $MyButton1
                mmc()
            Case $nMsg = $MyButton2
                services()
            Case $nMsg = $MyButton3
                users()
            Case $nMsg = $MyButton4
                network()
            case $nMsg = $MyButton5
                add_remove()
            Case $nMsg = $MyButton6
                date_time()
            Case $nMsg = $MyButton7
                notepad()
            Case $nMsg = $MyButton8
                dualxpl()
            Case $nMsg = $MyButton9
                a43()
            Case $nMsg = $MyButton10
                sortie()
    EndSelect
WEnd

Func mmc()
            $nRes = RunAs($nUsername, $nDomain, $nPassword, 0, "mmc.exe")
;~          Select
;~              If WinExists(Console1) Then WinSetState("console administration", "", @SW_HIDE)
;~              If WinWaitClose("Console1", "", 200) Then WinSetState("console administration", "", @SW_SHOW)
;~ EndIf
EndFunc

Func services()
        $nRes = RunAs($nUsername, $nDomain, $nPassword, 0, "mmc.exe services.msc")

EndFunc

Func users()
        $nRes = RunAs($nUsername, $nDomain, $nPassword, 0, "mmc.exe lusrmgr.msc")

EndFunc

Func network()
        $nRes = RunAs($nUsername, $nDomain, $nPassword, 0, "control.exe ncpa.cpl")

EndFunc

Func add_remove()
        $nRes = RunAs($nUsername, $nDomain, $nPassword, 0, "control.exe appwiz.cpl")

EndFunc

Func date_time()
        $res = RunAs($nUsername, $nDomain, $nPassword, 0, "control.exe timedate.cpl")

EndFunc

Func notepad()
        $nRes = RunAs($nUsername, $nDomain, $nPassword, 0, "notepad.exe")


EndFunc

Func dualxpl()
        $res = RunAs($nUsername, $nDomain, $nPassword, 0, "2Xplorer.exe")

EndFunc

Func a43()
        $nRes = RunAs($nUsername, $nDomain, $nPassword, 0, "a43.exe")

EndFunc

Func sortie()
    Exit

EndFunc

Les problemes que je rencontre sont les suivants :
- Le fait de lancer un bouton ne donne aucune réaction, ce qui laisse sous entendre qu'un controle doit sans doute etre effectué sur les champs GUICtrlCreateInput("", 120, 32, 225, 21)
A ce sujet, la recherche dans l'aide n'as pas encore été très fructueuse ( ne m'en veuillez pas, je me fait une meilleure idée sur des exemples)

- Est il possible de mettre en place une condition indiquant que les champs liés à $nusername et $nuserpassword soient remplis avant execution de n'importe quelle fonction.

- Vous remarquerez une zone commentée :

► Afficher le texte

J'ai tenté ici de masquer le panneau de la GUI lorsque la console mmc se lance, mais l'operation ne fonctionne qu'une seule fois.

- vous remarquerez la présence de deux explorateurs alternatifs :a43.exe et 2xplorer
J'execute la GUI dans le dossier parent de ces explorateurs.
Je comptait crée un fichier autoextractible permettant de lancer la gui, ce qui n'est pas spécialement complexe, je voudrais cependant savoir si autoit prévoit un genre de module "installeur" comme celui qui a été fait avec le pack débutant (merci Tlem).

- Enfin, et je ne l'ai pas encore testé, est il possible, des que l'on active la fonction de sortie, de supprimer le répertoire d'exécution ainsi que la gui ?

Je me doute que cela fait beaucoup de chose, mais je vous remercie par avance si vous pouvez m'aider pour au moins une de ces questions.

lerin57 · #2

J'ai Finalement put résoudre mon premier probleme,
Après avoir un peu plsu cherché, j'ai compris qu'il fallait ajouter le parametre GUICtrlRead sur les variable $nusername et $npassword.

Il me reste les dernieres questions a résoudre, à savoir cacher la fenêtre pendant l'exécution d'une fonction, créer un installeur, et supprimer le répertoire parent du fichier source et tout ce qu'il contient après fermeture de la GUI.

Si quelqu'un a des idées, je l'en remercie par Avance

lerin57 · #3

Bonjour,

Mon troisieme probleme est résolu, avec l'aide de innosetup, j'ai put créer l'installeur adequat.

Par contre, il me reste un dernier probleme, et cette fois ci, j'ai vraiment besoin d'aide.

Il faut que, lorsqu'une fonction ou application est appelée, la GUI passe en cachée (valeur @sw_hide).
La Gui doit réapparaitre lorsque l'application est refermée.

Voici en partie la fonction que j'ai testée :

Code : Tout sélectionner

Func mmc()
            $nRes = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "mmc.exe")

                WinSetState("console administration", "", @SW_HIDE)
            If WinWaitClose("Console1") then WinSetState("console administration", "", @SW_SHOW)
            EndIf
Enfunc

Cela me renvoie une erreur bizarre influant sur toute les autre fontion.

Quelqu'un peut il m'aider s'il vous plait ?

#4

Quelque chose comme ça :

Code : Tout sélectionner

Func mmc()
    $nRes = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "mmc.exe")
    WinSetState("console administration", "", @SW_HIDE)
    While ProcessExists($nRes)
        Sleep(100)
    WEnd
    WinSetState("console administration", "", @SW_SHOW)
EndFunc   ;==>mmc

L'erreur bizarre était peut-être causée par le Enfunc, au lieu de Endfunc.

lerin57 · #5

Bonjour,

Merci ORAX, c'est exactement ce que je cherchais.

Ce qui est frustrant, c'est que j'ai déja pensé à la fonction sleep, mais je supposais que celle ci n'agissait que sur un laps de temps définie.

voici mon script complet :

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Applications\RocketDock\Icons\extras\CrystalBlue.ico
#AutoIt3Wrapper_outfile=console_admin.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>



Local $nUsername,  $nPassword, $nDomain
$nDomain = "Mon_domaine"
Dim $nRes



#Region ### START Koda GUI section ### Form=

;~ ici nous allons d'abord créer la gui et les boutons correspondandts

$Form1_1 = GUICreate("console administration", 456, 367, 304, 276, -1, BitOR($WS_EX_ACCEPTFILES,$WS_EX_APPWINDOW,$WS_EX_CONTEXTHELP,$WS_EX_WINDOWEDGE))
$MyButton1 = GUICtrlCreateButton("Lancer mmc.exe", 112, 280, 212, 30, $WS_GROUP)
$MyButton2 = GUICtrlCreateButton("Lancer la console services", 0, 112, 212, 30, $WS_GROUP)
$MyButton3 = GUICtrlCreateButton("Lancer le gestionnaire utilisateur", 0, 152, 212, 30, $WS_GROUP)
$MyButton4 = GUICtrlCreateButton("Lancer les propriétés réseaux", 0, 192, 212, 30, $WS_GROUP)
$MyButton5 = GUICtrlCreateButton("Lancer Ajout/suppression de programmes", 240, 112, 212, 30, $WS_GROUP)
$MyButton6 = GUICtrlCreateButton("Lancer Date Et Heure", 240, 152, 212, 30, $WS_GROUP)
$MyButton7 = GUICtrlCreateButton("Lancer notepad", 0, 240, 212, 30, $WS_GROUP)
$MyButton8 = GUICtrlCreateButton("Lancer dualexplorer", 240, 240, 212, 30, $WS_GROUP)
$MyButton9 = GUICtrlCreateButton("Lancer a43 file manager", 240, 192, 212, 30, $WS_GROUP)
$MyButton10 = GUICtrlCreateButton("Sortir", 112, 320, 212, 30, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")

$nUsername = GUICtrlCreateInput("", 120, 32, 225, 21)
$nPassword = GUICtrlCreateInput("", 120, 64, 225, 21,$ES_PASSWORD)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Select
            Case $nMsg = $GUI_EVENT_CLOSE
                sortie()
            Case $nMsg = $MyButton1
                mmc()
            Case $nMsg = $MyButton2
                services()
            Case $nMsg = $MyButton3
                users()
            Case $nMsg = $MyButton4
                network()
            case $nMsg = $MyButton5
                add_remove()
            Case $nMsg = $MyButton6
                date_time()
            Case $nMsg = $MyButton7
                notepad()
            Case $nMsg = $MyButton8
                dualxpl()
            Case $nMsg = $MyButton9
                a43()
            Case $nMsg = $MyButton10
                sortie()
    EndSelect
WEnd

Func mmc()
    $nRes = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "mmc.exe")
            processus()
EndFunc

Func services()
        $nRes = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "mmc.exe services.msc")
            processus()
EndFunc

Func users()
        $nRes = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "mmc.exe lusrmgr.msc")
            processus()
EndFunc

Func network()
        $nRes = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "control.exe ncpa.cpl")
            processus()
EndFunc

Func add_remove()
        $nRes = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "control.exe appwiz.cpl")
            processus()
EndFunc

Func date_time()
        $res = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "control.exe timedate.cpl")
            processus()
EndFunc

Func notepad()
        $nRes = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "notepad.exe")
            processus()

EndFunc

Func dualxpl()
        $res = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "2Xplorer.exe")
            processus()
EndFunc

Func a43()
        $nRes = RunAs(GUICtrlRead($nUsername), $nDomain, GUICtrlRead($nPassword), 0, "a43.exe")
            processus()
EndFunc

Func sortie()
    Exit

EndFunc

Func processus()
    WinSetState("console administration", "", @SW_HIDE)
        While ProcessExists($nRes)
        Sleep(100)
    WEnd
    WinSetState("console administration", "", @SW_SHOW)
EndFunc

Je marque le sujet en résolu.

Merci encore à tous.

AutoIt Français

[R] Aide pour console admin (v2)

[R] Aide pour console admin (v2)

Re: [..]Aide pour console admin (v2)

Re: [..]Aide pour console admin (v2)

Re: [..]Aide pour console admin (v2)

Re: [R]Aide pour console admin (v2)