Discussion :

[Faboul]

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

[ced600]

Code :

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

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.

[Faboul]

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.

[ced600]

tu as bien mis true ?

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