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 :

Runas avec ipconfig /release /renew


Sujet :

VBScript

  1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Janvier 2013
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2013
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Runas avec ipconfig /release /renew
    Bonjour à tous,

    Je cherche à faire un petit script suite à quelques problème de dhcp pour " exécuter en tant que "runas" et ainsi exécuter une commande ipconfig /release et ipconfig renew".

    J'ai trouvé la commande runas :
    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:Admin %comspec%"  
    WScript.Sleep 1000 
    WshShell.SendKeys "password" 
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 1000
    Et n'étant pas un pro dans ce domaine je ne vois pas comment intégrer ipconfig dans la commande.

    Est-ce que vous auriez une solution ?

    Je vous en remercie d'avance

  2. #2
    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

    Testez 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
    Dim Ws,WshEnv,WinPath,sUser,sPass,sCmd,rc
    sCmd ="cmd /c ipconfig /release & ipconfig /flushdns & ipconfig /renew"
    set Ws = CreateObject("WScript.Shell")
    set WshEnv = Ws.Environment("Process")
    WinPath = WshEnv("SystemRoot")&"\System32\runas.exe"
    sUser = WshEnv("USERNAME")
    sPass="Votre mot de passe"& VBCRLF 'Modifiez cette ligne par votre mot de passe
    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. ipconfig /release & ipconfig /renew
    Par Simonake dans le forum Windows
    Réponses: 6
    Dernier message: 15/05/2010, 21h29
  2. Pb avec ipconfig dans un .bat
    Par shkyo dans le forum Windows XP
    Réponses: 2
    Dernier message: 07/07/2009, 11h50
  3. form toujours allouée avec un release
    Par QAYS dans le forum Delphi
    Réponses: 7
    Dernier message: 17/03/2007, 10h47
  4. Vbs Runas avec password
    Par fabrice518 dans le forum VBScript
    Réponses: 2
    Dernier message: 27/02/2007, 22h41

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