IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Modification fichier host


Sujet :

VBScript

  1. #1
    Membre à l'essai
    Inscrit en
    Décembre 2012
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Décembre 2012
    Messages : 23
    Points : 11
    Points
    11
    Par défaut Modification fichier host
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Nouveau membre du Club
    Profil pro
    Technicien Help Desk
    Inscrit en
    Décembre 2012
    Messages
    23
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Technicien Help Desk

    Informations forums :
    Inscription : Décembre 2012
    Messages : 23
    Points : 29
    Points
    29
    Par défaut
    Essaie avec ça ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  3. #3
    Membre à l'essai
    Inscrit en
    Décembre 2012
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Décembre 2012
    Messages : 23
    Points : 11
    Points
    11
    Par défaut
    Merci Daynvheur

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

  4. #4
    Nouveau membre du Club
    Profil pro
    Technicien Help Desk
    Inscrit en
    Décembre 2012
    Messages
    23
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Technicien Help Desk

    Informations forums :
    Inscription : Décembre 2012
    Messages : 23
    Points : 29
    Points
    29
    Par défaut
    Il ne serait pas en lecture-seule, par hasard ?

  5. #5
    Membre à l'essai
    Inscrit en
    Décembre 2012
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Décembre 2012
    Messages : 23
    Points : 11
    Points
    11
    Par défaut
    ç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.

  6. #6
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 836
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 836
    Points : 9 217
    Points
    9 217
    Par défaut
    Citation Envoyé par foudhil92 Voir le message
    ç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 : 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
    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

Discussions similaires

  1. Modification du fichier HOSTS via une application JAVA GUI
    Par Christophe39 dans le forum Langage
    Réponses: 1
    Dernier message: 28/04/2015, 10h29
  2. Modification fichier host SANS redémarrer navigateur web
    Par Zack_r dans le forum Général Conception Web
    Réponses: 3
    Dernier message: 29/10/2013, 11h56
  3. modification fichier host windows 7
    Par delphigeo dans le forum Sécurité
    Réponses: 1
    Dernier message: 04/10/2012, 09h55
  4. Modification du fichier hosts
    Par zooffy dans le forum Windows 7
    Réponses: 2
    Dernier message: 24/03/2012, 10h14
  5. [PHP 5.3] Affichage erroné après modification de fichier hosts
    Par Hoder dans le forum Langage
    Réponses: 0
    Dernier message: 15/11/2010, 14h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo