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 : Sélectionner tout - Visualiser dans une fenêtre à part
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