Lancer un exe en VBA

Version imprimable

16/01/2018, 12h31
maxkun

Lancer un exe en VBA

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:

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.
16/01/2018, 12h56
unparia

Bonjour

Citation:

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 ...:cfou:

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". ;)
16/01/2018, 13h11
maxkun

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.
16/01/2018, 13h18
unparia

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 !
16/01/2018, 13h28
Phil Free

Bonjour,

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

Code:

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

Pour plus d'info vas voir ici
16/01/2018, 13h34
unparia

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

Bonjour,

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

Code:

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

16/01/2018, 14h55
maxkun

1 pièce(s) jointe(s)

Bonjour Phil Free,

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

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).

Pièce jointe 343008

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? :oops:

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

Code:

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

17/01/2018, 07h58
maxkun

1 pièce(s) jointe(s)

Bonjour,

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

Pièce jointe 343234

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.

Bonjour,
regarde les directive de compilations #if

Code:

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

17/01/2018, 09h24
maxkun

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

Désolé je suis pas très calé en code :/
17/01/2018, 09h59
Invité

et si tu exécute la macro car là c'est normale, c'est pour cela que on utilise les directive de compilations!
17/01/2018, 10h31
maxkun

Justement,

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

Code:

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

17/01/2018, 11h36
Phil Free

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.
17/01/2018, 12h13
maxkun

1 pièce(s) jointe(s)

@dysorthographie
La il me met l'erreur :

Pièce jointe 343303

@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...

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

Code:

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

17/01/2018, 12h47
maxkun

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

désolé!

Code:

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

22/01/2018, 13h06
maxkun

Bonjour,

Merci beaucoup cela fonctionne. :)

Cordialement.