Discussion :

[Vash-Qui-Rit]

Bonjour,

je suis débutant en VBS et je souhaite remplacer le fichier host par un fichier host type se trouvant sur un serveur

J'ai fait des commandes qui marchent a la main mais pas dans le script

Je souhaiterai soit copié le fichier a partir du VBS soit faire appel a un .bat qui s'occupera de faire la copie (la première solution étant plus pratique)

Pour l'instant j'ai :

-----------------------------------------------------

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
On Error Resume Next
 
Dim f
 
Set f = fso.GetFile("C:\WINDOWS\system32\drivers\etc\hosts")
Set WshShell=WScript.CreateObject("WScript.Shell")
set WshShell=CreateObject("WScript.Shell")
 
'Première solution
If Day(f.DateLastModified) < "26/02/2009 00:00:00" Then
 strExec="XCOPY \\chemin\hosts C:\WINDOWS\system32\drivers\etc\hosts /Y" 
 strUser="/user:domain\user"
 strPass="pass~" 
 strCmd="runas.exe " & strUser & " cmd"
 WshShell.Run strCmd
 WScript.Sleep 500
 WshShell.SendKeys strPass
 WshShell.Run strExec
 Wscript.Quit
end if
 
'Deuxième solution
If Day(f.DateLastModified) < "26/02/2009 00:00:00" Then
 strExec="\\chemin\copy.bat" 
 strUser="/user:domain\user"
 strPass="pass~"
 strCmd="runas.exe " & strUser & " " & strExec
 WshShell.Run strCmd
 WScript.Sleep 500
 WshShell.SendKeys strPass
 Wscript.Quit
end if

Au niveau de la 2e solution, quand je lance la commande a la main ca marche nickel :

Code :

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

runas.exe /user:domain\user \\chemin\copy.bat

Je pense donc que le problème réside dans le renseignement du mot de passe avec le sendkeys nan?

Merci

[Vash-Qui-Rit]

Un peu de new :

Quand je lance le script il reste bloquer sur "Entrez le mot de pass de administrateur : "

Si je rentre le pass a la main, le script s'execute correctement ...

C'est donc bien un problème de SendKeys mais je ne voit pas lequel ...

Tous les script que j'ai trouvé traitant de ça sont a peu pres identique et aucun chez moi ne renseigne automatiquement le mot de passe...

Je commence à désesperer

[jaycelan]

J'ai rencontré le même problème, voici un code qui fonctionne
il execute mon script "ipxfer.bat" en tant que admin.

Code :

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

1
2
3
4
5
6
7
8
9
 
Option explicit
dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "runas /user:administrateur ""C:\install\IpXfer.bat"""
WScript.Sleep 100
'remplace password par ton mot de passe, laisse les guillemets et le tilde
oShell.Sendkeys "password~"
Wscript.Quit

Marque le sujet comme résolu si ton problème est réglé.
@ +

[Vash-Qui-Rit]

Malheuresement non, j'ai toujours le même problème.

J'utilise Windows XP, et toi ?

[jaycelan]

j'ai fait tourner le code que je t'ai envoyé sur W2K SP4, XP SP2 et SP3.

Actuellement, je bosse sur un script ou certaines partie de code pourraient t'aider. Je scanne mon réseau et lance sur chaque poste qui répond à certains critère, un psexec qui exécute un script. Et psexec fait le RunAs pour toi

J'imagine que si tu planches sur le RunAs, ce n'est pas parce que tu as 3 clients à mettre à jour...

Si il s'agit de tout un réseau, selon moi, tu n'a pas besoins d'executer de code à partir de tes clients.
Si tu possèdes un compte administrateur identique sur chaque machine, tu peux te connecter sur le partage administratif C$ et vérifier si ton fichier Hosts est suffisamment recent.

Donne moi plus de précisions et je pourrai t'envoyer quelques morceaux de code.
Olivier

[Vash-Qui-Rit]

Je suis tombé sur AutoIT entre temps et j'ai réussi à faire ce que je voulé en 5-6 lignes donc c'est bon =)

De plus avec AutoIt tu le converti en .exe du coup y'a pas de soucis de sécurité.

Merci quand même pour ton aide