Discussion :

[Faboul]

Bonjour,

J'essaye d'écrire une fonction qui exécute un programme "en tant que" à l'aide de la commande système runas. Pour cela je me suis inspiré de messages précédents dans le forum, et j'avoue que j'ai du mal à comprendre ce que je fais. Mon problème se situe au niveau de l'envoi du mot de passe à la commande runas. Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function runasadmin(login As String, passwd As String, pgm As String) As String
 
    Dim oShell As New IWshRuntimeLibrary.WshShell
    Dim oScriptExec As IWshRuntimeLibrary.WshExec
    Dim sBuffer As String
 
    Set oScriptExec = oShell.Exec("runas /noprofile /user:" & login & " """ & pgm & """")
    Set oScriptExec = oShell.SendKeys(passwd & "~")
 
    sBuffer = oScriptExec.StdErr
    runasadmin = sBuffer
 
End Function

Lors de l'exécution, Access me renvoie l'erreur de compilation: "Fonction ou variable attendue" et me surligne ".Sendkeys" pourtant je lui fourni bien les bons arguments. Est ce que quelqu'un aurait une suggestion à me faire pour que ce code fonctionne?
Merci d'avance pour le temps que vous passerez à me répondre.

[LedZeppII]

Bonjour,

La méthode SendKeys ne renvoie pas un objet de type WshExec.
Je crois même qu'elle ne renvoie rien.

Code vb :

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

    oShell.SendKeys passwd & "~"

Mais de toutes façons tu risque d'avoir un problème car SendKeys envoie des caractères dans la fenêtre active.
Et je n'ai pas l'impression que Exec active la fenêtre la fenêtre du programme lancé.

Par ailleurs, pour la sortie d'erreurs standard :

Code vb :

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

1
2
3
    If Not oScriptExec.StdErr.AtEndOfStream Then
       sBuffer = oScriptExec.StdErr.ReadAll
    End If

A+