Modification vbs SVP?

Version imprimable

Bonjour,

Quelqu'un pourrait m'aider pour une petite modification de script?

j'aimerais qu'il invite a saisir le nom d'utilisateur comme pour le mot de passe.

j'ai bien compris qu'il fallait que j'envois un objShell.Sendkeys sUsername, mais je ne parviens pas à le mettre en place.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
setupFile = "c:\Test.bat"   '<-----application to runas [!]
 
hardcodedUsername = "domaine\user"        '<----not nessesary,  can be used if no scriptparameters were provided
hardcodedPassword =  "password"       '<----not nessesary,  can be used if no scriptparameters were provided
 
 
 
'Read arguments...
'------------------------------------------------------
                               sUsername = Null
                               sPassword = Null
 Set Named = WScript.Arguments.Named
     If Named.Exists("u") Then 
               sUsername = Named.Item("u")
        Else sUsername = hardcodedUsername
       End If
     If Named.Exists("p") Then
               sPassword = Named.Item("p")
        Else sPassword = hardcodedPassword
       End If
 
set objShell = CreateObject("Wscript.Shell")
 
objShell.run("runas.exe /noprofile /u:" & sUsername & " "&Chr(34)&"\"&Chr(34)& _ 
             setupFile &"\" &Chr(34)&Chr(34))
 
WScript.Sleep 600   '<----must be the max. amount of second it takes to to open the Runas: "enter password" window
 
objShell.AppActivate "runas.exe"
If objShell.AppActivate("runas.exe") then _
objShell.Sendkeys sPassword &"~"  '<--- auto fill-in the password, and continues
 
set objShell = Nothing
Wscript.Quit

28/02/2012, 15h24
omen999

bonjour,
un peu de lecture : http://www.developpez.net/forums/d67...ipt/runas-vbs/
29/02/2012, 16h01
Invité

Bonjour,

Je ne comprends pas bien le rapport entre le lien où tu me renvois et la modification que j'aimerais apporter?

Désolé, peux tu m'expliquer STP?

Cordialement.
01/03/2012, 17h33
omen999

je t'ai sélectionné un lien parmi beaucoup d'autres qui traite de ce problème récurrent... :roll:
qu'entends-tu par ne pas pouvoir "mettre en place" l'username
si celui-ci est correctement défini dans ton script (variable sUserName) ton code doit normalement afficher le dlg
de connexion avec le nom de l'user attendu suivi de l'insertion du mot de passe
où est le problème ? :koi:
il existe même un petit outil qui permet de simplifier l'insertion du mot de passe
(peut-être pas fonctionnel si >wk2003)
01/03/2012, 23h03
Invité

Bonsoir,
Ma requête n'a apparemment pas été comprise*! Bon certes mon explication n'est pas très claire non plus*!
Le script fonctionne très bien.
J'aimerais "si c'est possible" faire en sort qu'on puisse saisir le nom utilisateur (domaine/username) dans la fenêtre MsDos comme pour le password.
Cordialement

Citation:

qu'on puisse saisir le nom utilisateur (domaine/username) dans la fenêtre MsDos

donc tout le code destiné à définir sUserName ne sert à rien... j'adore le copié/collé :calim2:

ça peut-être ?
Code:

1 2 3 4 5 6 7 8 9 set objShell = CreateObject("Wscript.Shell") sUsername=InputBox("Entrez le nom utilisateur : ") if sUsername <> "" then objShell.run("runas.exe /noprofile /u:" & sUsername & " "&Chr(34)&"\"&Chr(34)& _ setupFile &"\" &Chr(34)&Chr(34)) ... ... end if

Bonjour,
Après un peu de nettoyage:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
setupFile = "c:\Test.bat"
 
set objShell = CreateObject("Wscript.Shell")
sUsername=InputBox("Entrez le nom utilisateur : ",,"MonDomaine.fr\")
 
if sUsername <> "MonDomaine.fr\" then
	objShell.run("runas.exe /profile /user:" & sUsername & " "&Chr(34)&"\"&Chr(34)& setupFile &"\" &Chr(34)&Chr(34))
		objShell.Sleep 600
 
			objShell.AppActivate "runas.exe"
	If objShell.AppActivate("runas.exe") then objShell.Sendkeys sPassword &"~"
end If
 
set objShell = Nothing
objShell.Quit

C'est une solution, mais cela aurait été plus convivial de tous pouvoir saisir dans la même fenêtre "MsDos".
est-ce possible?????

Cordialement.

Citation:

C'est une solution, mais cela aurait été plus convivial de tous pouvoir saisir dans la même fenêtre "MsDos".
est-ce possible?????

non, la fonction Run lance l'utilitaire "runas" dans un autre processus et une même fenêtre ne peut pas être partagée
par deux processus différents.
il faudrait le lancer dans un autre thread et la prog multithread en vbscript, franchement...non :aie:

maintenant si tu es un accro de la ligne de commande, tu peux essayer ceci mais tu auras
deux fenêtres "MsDos" comme tu les appelles et il faudra lancer le script
au moyen de l'environnement console CScript.exe
Code:

1 2 3 4 5 6 7 8 Set objShell = CreateObject("Wscript.Shell") Set objInput = WScript.StdIn WScript.Echo "Entrez le nom de l'utilisateur" sUserName = objInput.ReadLine If sUsername <> "" Then ... objShell.run "runas.exe /noprofile /user:" & sUserName & " " & setupFile End If