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