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:
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?
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
Merci d'avance pour le temps que vous passerez à me répondre.
Partager