Récupérer un code d'erreur depuis l'invite de commande

Bonjour à tous,

J'essaye de faire un script qui permet de lancer plusieurs programmes en tant qu'un autre utilisateur sans avoir à rentrer autant de fois le mot de passe qu'il y a de programmes. Pour cela j'utilise la commande runas, comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

Function runasadmin (user,passwd,pgm) Dim WshShell Set WshShell = WScript.CreateObject ("WScript.shell") WshShell.run("%SYSTEMROOT%\system32\runas.exe /noprofile /user:" & user & " """ & pgm & """") WScript.Sleep 100 WshShell.SendKeys passwd & "~" WScript.Sleep 100 Set WshShell = Nothing End Function

---

Je n'ai pas de problèmes pour lancer les applications, par contre je ne sais pas comment faire pour récupérer les erreurs de la commande runas si les login/mot de passe ou le programme sont incorrects. Pourriez vous m'éclairer sur ce point?

Merci par avance pour vos réponses

Code:

---

1 2	Dim result result = WshShell.run("%SYSTEMROOT%\system32\runas.exe /noprofile /user:" & user & " """ & pgm & """", true)

---

WSH Run :
Deux paramètres possible : la ligne de commande, et un booléen.
Si le booléen est à false (ou omis) -> Run renvois la valeur 0 et n'attend pas la fin du programme.
Si le booléen est à true -> Run renvois la valeur du programme lancé et attend son arrêt.

Merci pour ta réponse mais malheureusement, elle ne marche pas. result vaut tout le temps 0 même si il y a eu une erreur. Je précise que j'aimerais pouvoir récupérer le numéro de l'erreur si c'est possible, pour savoir si c'est l'utilisateur qui s'est trompé de login et/ou mot de passe, ou si c'est le chemin vers le programme qui n'est pas correct.

tu as bien mis true ?

Et es tu sur que Runas renvois des codes d'erreur ?