Modification fichier host

[foudhil92]

Bonjour,

Je suis novice dans le langage VBS, voilà je veux ajouter une ligne au fichier host de plusieurs postes. La ligne est "adresse IP nom de machine"
Le fichier host n'est modifiable qu'avec le compte administrateur, j'ai résolu ce problème avec le script ci-dessous mais je n'arrive pas à ajouter les commandes pour modifier le host dans la même fenêtre dos ouverte en administrateur avec mon script:

Code :

1
2
3
4
5
6
7
set WshShell = WScript.CreateObject("WScript.Shell" )
 
WshShell.run "runas /user:domain\administrator %comspec%"  
WScript.Sleep 1000
WshShell.SendKeys "motdepasse"
WshShell.SendKeys "{ENTER}"    
WScript.Sleep 1000

Pourriez-vous m'aider
Merci

[Daynvheur]

Essaie avec ça ?

Code :

1
2
3
4
5
set WshShell = WScript.CreateObject("WScript.Shell" )
LigneEnPlus = "adresse IP nom de machine"
HostFile = "c:\Windows\System32\drivers\etc\host"
command = "runas /user:domain\administrator ""%comspec% /c echo " & LigneEnPlus & ">>""" & HostFile & """"""
WshShell.run command

La commande Echo [texte]>>[fichier] permet d'ajouter du texte à la suite du fichier indiqué.

Dans ce cas précis, un fichier Batch standard serait probablement aussi simple à manier :

Code :

1
2
3
4
5
6
@SETLOCAL
@Set LIGNEENPLUS=adresse IP nom de machine
@Set HOSTFILE=c:\Windows\System32\drivers\etc\host
@REM Ne pas mettre de guillemets ci-dessus
RUNAS /user:domain\administrator "cmd /c echo %LIGNEENPLUS%>>"%HOSTFILE%""
@ENDLOCAL

Par-contre, placer les identifiants administrateurs dans un fichier texte, je trouve que c'est une mauvaise idée. Et les faire remplir automatiquement, je trouve que c'est un appel à faille.

[foudhil92]

Merci Daynvheur

Mais j'ai un problème le fichier host n'est pas modifier avec le script que tu m'as donné

[Daynvheur]

Il ne serait pas en lecture-seule, par hasard ?

[foudhil92]

ça fonctionne lorsque j'ouvre la fenêtre dos en admin et que je tape directement les commandes à la main. Mais ça fonctionne pas avec le script.

[hackoofr]

Envoyé par foudhil92

ça fonctionne lorsque j'ouvre la fenêtre dos en admin et que je tape directement les commandes à la main. Mais ça fonctionne pas avec le script.

Essayez ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Dim Ws,WshEnv,WinPath,ProcessEnv,FSO,HostFile,File,LIGNEENPLUS,sUser,sPass,sCmd,rc
LIGNEENPLUS="adresse IP nom de machine Test"
set Ws = CreateObject("WScript.Shell")
set WshEnv = Ws.Environment("Process")
WinPath = WshEnv("SystemRoot")&"\System32\runas.exe"
HostFile = WshEnv("SystemRoot")&"\System32\drivers\etc\host"
set FSO = CreateObject("Scripting.FileSystemObject")
if  Not FSO.FileExists(HostFile) then
    MsgBox "Le fichier Host n'existe pas !",16,"Le fichier Host n'existe pas !"
    Wscript.Quit
end if
sUser = WshEnv("USERNAME")
sPass="VotrePassword"& VBCRLF 'Modifiez cette ligne par votre mot de passe
sCmd="%comspec% /c echo " & LigneEnPlus & ">>" & HostFile &""
rc=Ws.Run("runas /user:" & qq(sUser) & " " & qq(sCmd),2,FALSE)
Wscript.Sleep 1000
Ws.AppActivate(WinPath)
Ws.SendKeys sPass
 
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function