Discussion :

[Invité]

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 :

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

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

[omen999]

bonjour,
un peu de lecture : http://www.developpez.net/forums/d67...ipt/runas-vbs/

[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.

[omen999]

je t'ai sélectionné un lien parmi beaucoup d'autres qui traite de ce problème récurrent...
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 ?
il existe même un petit outil qui permet de simplifier l'insertion du mot de passe
(peut-être pas fonctionnel si >wk2003)

[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

[omen999]

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é

ça peut-être ?

Code :

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

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

[Invité]

Bonjour,
Après un peu de nettoyage:

Code :

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

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.

[omen999]

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

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 :

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

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