Copier un fichier (runas)

Question

Bonjour,

je suis débutant en VBS et je souhaite remplacer le fichier host par un fichier host type

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 :

-----------------------------------------------------

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 [file://\chemin\hosts \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="[file://chemin/copy.bat \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

Merci

Willow37 · Answer

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

Copier un fichier (runas)

1 réponse

Votre réponse

Discussions similaires