Bonjour,
Dans le cadre de mon travail, nous effectuons des tests à distance sur des sessions ayant des droits tres restreints.
N'ayant la possibilité de changer de session pour effectuer, par exemple, une installation d'un logiciel, ou d'une imprimante locale, nous avons souvent recour à la commande
"runas /user:".
Mon but ici est de créer une GUI avec plusieurs fonctions possibles.
En me basant sur un exemple de TLEM, j'ai créé ceci :
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Dim $Res
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 251, 308, 293, 220)
$Radio1 = GUICtrlCreateRadio("lancer le gestionnaire utilisateur", 40, 72, 193, 49)
$Radio2 = GUICtrlCreateRadio("lancer le gestionnaire imprimante", 40, 152, 201, 49)
$OKButton1 = GUICtrlCreateButton("OK", 80, 240, 100, 30, $BS_FLAT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Select
Case $GUI_EVENT_CLOSE
Exit
Case $nMsg = $OKButton1
If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED Then
controlusers()
ElseIf BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) = $GUI_CHECKED Then
controlprinters()
EndIf
EndSelect
WEnd
Func controlusers()
$Res = RunAs("toto", "domaine", "mot_de_passe", 0, "mmc lusrmgr.msc")
Exit
EndFunc
Func controlprinters()
$Res = RunAs("toto", "domaine", "mot_de_passe", 0, "control.exe printers")
Exit
EndFunc
Le probleme, c'est que la gui apparait et disparait l'espace d'un dixieme de secondes.
Je suis la dessus depuis disons ... une semaine, j'ai tenté de chercher plus d'exemple sur le forum pour corriger mon script, mais là je seche.
Si l'un d'entre vous aurait la sympathie de m'indiquer ce que j'ai put omettre dans ce code, je l'en remercie d'avance.
