Lancer un exe en VBA

**maxkun** · 16/01/2018, 12h31

Bonjour,

Je possède une form avec des boutons, et l'un des boutons doit ouvrir l'invite de commande, cependant je souhaite que cette dernière soit lancée avec un autre nom d'utilisateur (situé sur un autre domaine), j'ai trouvé une portion de code permettant d'ouvrir l'invite de commande mais cette dernière ouvre l'invite de commande avec les droits de la session actuellement ouverte.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell ("C:\Windows\System32\cmd.exe")

Si cela est possible, est-il également possible de pré-renseigner le nom de domaine et le login utilisateur (avec une variable d'environnement à la limite)?

Cordialement.

**unparia** · 16/01/2018, 12h56

Bonjour

mais cette dernière ouvre l'invite de commande avec les droits de la session actuellement ouverte.

Encore heureux !
Je ne vois là aucune raison de se plaindre de ce comportement, hein ...

Soyons sérieux : chaque utilisateur est seul maître de SA machine et donc seul à décider de laisser ou non "passer" ceci ou cela.

Ta ligne de code, par exemple, se heurterait sur Ma machine à un rejet pur et simple, sauf si JE décidais moi-même (et alors expressément et manuellement) de "laisser passer".

**maxkun** · 16/01/2018, 13h11

Bonjour,

Je ne me plains pas de ce qu'exécute la fonction car il est normal qu'elle ouvre l'exe avec les droits de la session ouverte.

En revanche je souhaite savoir si il existe un dérivé de cette fonction qui propose plus d'arguments, permettant ainsi d'ouvrir un exe avec un compte sur un domaine différent.

J'ai fouillé sur le net mais je n'ai pas trouvé de telles fonctions.

Cordialement.

**unparia** · 16/01/2018, 13h18

Cela va beaucoup plus loin que tu le crois (et heureusement également). Et le fait d'être sur un compte administrateur ne suffit pas toujours. Il y a un distinguo (heureux) entre exécuter depuis un compte administrateur et exécuter "en tant qu'administrateur". Et exécuter "en tant qu'administrateur" ne peut (relire mon message précédent) qu'être une décision de l'utilisateur et non l'exécution d'une ligne de code !

**Phil Free** · 16/01/2018, 13h28

Bonjour,

intéresse toi à la commande RunAs. un Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell ("runas user:<NomOrdinateurLocal>\Administrateur C:\Windows\System32\cmd.exe")

Pour plus d'info vas voir ici

**unparia** · 16/01/2018, 13h34

Bonjour Phil
Et qui (et qui seul) peut autoriser l'exécution d'une telle ligne de code ?

Invité · 16/01/2018, 13h48

Bonjour,

Si le code n'est pas crypté, et je ne parle pas d'Excel bien évidement....!!!???###@@@

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Declare Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
Declare Function ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Long) As Long
Declare Function RevertToSelf Lib "advapi32.dll" () As Long
Enum MConst
    LOGON32_LOGON_INTERACTIVE = 2
    LOGON32_PROVIDER_DEFAULT = 0
End Enum
Public lngTokenHandle, lngLogonType, lngLogonProvider As Long
Public blnResult As Boolean
 
 
Sub TEST()
 If AdminLogOn("Username", "Domain", "Password") Then
    Shell "C:\Windows\System32\calc.exe"
    Shell "C:\Windows\system32\notepad.exe"
 Logoff
 End If
End Sub
 
 
Public Function AdminLogOn(Username, Domain, Password) As Boolean
blnResult = RevertToSelf()
If LogonUser( _
Username, _
Domain, _
Password, _
          LOGON32_LOGON_INTERACTIVE, _
         LOGON32_PROVIDER_DEFAULT, _
            lngTokenHandle) = 0 Then
    MsgBox "Impossible d'ouvrir la session : " & Username & ". "
    GoTo Fin
End If
 
 
 
 
If blnResult = False Then
    MsgBox "Impossible d'ouvrir LogonUser"
   GoTo Fin
End If
 
 
blnResult = ImpersonateLoggedOnUser(lngTokenHandle)
AdminLogOn = True: Exit Function
 
 
Fin:
AdminLogOn = False
End Function
Public Sub Logoff()
Dim blnResult As Boolean
'MsgBox "Session fermée"
blnResult = RevertToSelf()
End Sub

**maxkun** · 16/01/2018, 14h55

Bonjour Phil Free,

Je viens de tester ta méthode et cela fonctionne nickel

Ma commande se lance bien avec le compte que je lui spécifie.

Par contre j'ai essayé de lancer sur le même principe l'éditeur de registre mais le résultat est légèrement différent, j'ai bien une fenêtre DOS qui s’ouvre pour me demander mon mot de passe, mais après rien ne se passe, l'éditeur ne s'ouvre pas.
Je pense avoir une idée mais je ne suis pas sur de moi, quand je lance le runas, ce dernier se lance depuis C:\Windows\System32 (cf la capture d'écran).

Nom : Sans titre.png
Affichages : 3866
Taille : 23,7 Ko

Nom : Sans titre.png
Affichages : 3866
Taille : 23,7 Ko

Ce qui expliquerai que la cmd se soit bien lancée mais pas le regedit.

Avez vous une idée pour contourner le problème?

Invité · 16/01/2018, 15h07

au poste #7 je te propose que tout soit encapsuler dans une nouvelle session Windows!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub TEST() If AdminLogOn("Username", "Domain", InputBox("test")) Then
    Shell "C:\Windows\System32\calc.exe"
    Shell "C:\Windows\system32\notepad.exe"
 Logoff
 End If
End Sub

**maxkun** · 17/01/2018, 07h58

Bonjour,

Alors j'ai essayé votre méthode cependant j'ai l'erreur suivante :

Nom : Capture.PNG
Affichages : 3884
Taille : 19,2 Ko

J'ai cette erreur la ligne Public Declare Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long.

A savoir que je code sur une userform et que j'ai mis tout votre code au tout début. une idée de ce qui bloque? ;(

Cordialement.

Invité · 17/01/2018, 08h54

Bonjour,
regarde les directive de compilations #if

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
#If win64 Then
    Declare PtrSafe  Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
    Declare PtrSafe  ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Long) As Long
    Declare PtrSafe  RevertToSelf Lib "advapi32.dll" () As Long
#Else
    Public Declare Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
    Declare Function ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Long) As Long
    Declare Function RevertToSelf Lib "advapi32.dll" () As Long
#End If

**maxkun** · 17/01/2018, 09h24

j'ai la même erreur pour la même ligne le else :/

Désolé je suis pas très calé en code :/

Invité · 17/01/2018, 09h59

et si tu exécute la macro car là c'est normale, c'est pour cela que on utilise les directive de compilations!

**maxkun** · 17/01/2018, 10h31

Justement,

C'est au moment où je lance la macro qu'il me retourne cette erreur.

Invité · 17/01/2018, 11h24

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
#If VBA7 Then
    Declare PtrSafe  Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
    Declare PtrSafe  ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Long) As Long
    Declare PtrSafe  RevertToSelf Lib "advapi32.dll" () As Long
#Else
    Public Declare Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
    Declare Function ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Long) As Long
    Declare Function RevertToSelf Lib "advapi32.dll" () As Long
#End If

**Phil Free** · 17/01/2018, 11h36

en relisant ce post je me demande quel peut être l’intérêt d'ouvrir regedit en ligne de commande puisque en suite il faudra que l'utilisateur bidouille de lui même la base de registre. Ce qui est plutôt déconseille.

Si ton besoin est de modifier la base de registre il est tout à fait possible de le faire directement en passant pas un objet WScript.Shell.

**maxkun** · 17/01/2018, 12h13

@dysorthographie
La il me met l'erreur :

Nom : Capture.PNG
Affichages : 3930
Taille : 27,5 Ko

@Phil Free
C'est dans le contexte mon travail, de base, l’ouverture du registre est bloqué, nous devons l'ouvrir avec un compte admin pour pouvoir le lancer (politique de sécurité). Sur ce point nous avons les comptes pour.

Ta méthode fonctionne très bien pour l'invite de commande, en revanche, pour le registre elle ne fonctionne pas. J'ai bien une fenêtre dos qui s'ouvre et qui me demande le mot de passe, mais une fois que je valide mon mot de passe, rien ne se passe, comme si le mot de passe était incorrecte, j'ai donc essayé d'ouvrir un autre exe qui se situe dans le même dossier que regedit.exe (genre notepad.exe), et la ça fonctionne correctement. Je ne sais pas ce qui bloque l'ouverture du registre.

J'ai même testé avec un autre exe qui se trouve dans program files :
Shell ("C:\Program Files (x86)\XXX\XXX\XXXX.exe") => le programme se lance correctement mais sans droit admin du coup
Shell ("runas /user:XXX\adm-" & nom_user & " C:\Program Files (x86)\XXX\XXX\XXXX.exe) => rien ne se passe, même pas d'invite pour rentrer le mot de passe, alors que quand je fais ouvrir en tant que après un clic, tout fonctionne correctement.

J'ai du mal a comprendre pourquoi cela ne fonctionne pa ssu rle registre (au début je pensais à un problème d'emplacement mais au final non vu pour le notepad ça marche). Et pourquoi ma seconde commande ne fonctionne pas en admin alors qu'elle fonctionne dans le premier cas...

Invité · 17/01/2018, 12h17

voila le code en entier!
exécutes sub teste en modifiant les paramètres AdminLogOn("Username", "Domain", "Password")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#If VBA7 Then
    Declare PtrSafe  Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
    Declare PtrSafe  ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Long) As Long
    Declare PtrSafe  RevertToSelf Lib "advapi32.dll" () As Long
#Else
    Public Declare Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
    Declare Function ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Long) As Long
    Declare Function RevertToSelf Lib "advapi32.dll" () As Long
#End If
Enum MConst
    LOGON32_LOGON_INTERACTIVE = 2
    LOGON32_PROVIDER_DEFAULT = 0
End Enum
Public lngTokenHandle, lngLogonType, lngLogonProvider As Long
Public blnResult As Boolean
 
 
Sub TEST()
 If AdminLogOn("Username", "Domain", "Password") Then
    Shell "C:\Windows\System32\calc.exe"
    Shell "C:\Windows\system32\notepad.exe"
 Logoff
 End If
End Sub
 
 
Public Function AdminLogOn(Username, Domain, Password) As Boolean
blnResult = RevertToSelf()
If LogonUser( _
Username, _
Domain, _
Password, _
          LOGON32_LOGON_INTERACTIVE, _
         LOGON32_PROVIDER_DEFAULT, _
            lngTokenHandle) = 0 Then
    MsgBox "Impossible d'ouvrir la session : " & Username & ". "
    GoTo Fin
End If
 
 
 
 
If blnResult = False Then
    MsgBox "Impossible d'ouvrir LogonUser"
   GoTo Fin
End If
 
 
blnResult = ImpersonateLoggedOnUser(lngTokenHandle)
AdminLogOn = True: Exit Function
 
 
Fin:
AdminLogOn = False
End Function
Public Sub Logoff()
Dim blnResult As Boolean
'MsgBox "Session fermée"
blnResult = RevertToSelf()
End Sub

**maxkun** · 17/01/2018, 12h47

Il me met la même erreur, alors que j'ai repris un nouveau projet pour tester ;(

Invité · 17/01/2018, 14h01

désolé!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
#If VBA7 Then 
    Declare PtrSafe Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
    Declare PtrSafe Function ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Long) As Long
    Declare PtrSafe Function RevertToSelf Lib "advapi32.dll" () As Long
#Else
    Public Declare Function LogonUser Lib "advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
    Declare Function ImpersonateLoggedOnUser Lib "advapi32.dll" (ByVal hToken As Long) As Long
    Declare Function RevertToSelf Lib "advapi32.dll" () As Long
#End If

Lancer un exe en VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager