Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Invité de passage
    Profil pro
    Inscrit en
    janvier 2013
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2013
    Messages : 1
    Points : 0
    Points
    0

    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 :
    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 Confirmé Sénior
    Avatar de hackoofr
    Homme Profil pro Mehdi Tounisiano
    Enseignant
    Inscrit en
    juin 2009
    Messages
    2 723
    Détails du profil
    Informations personnelles :
    Nom : Homme Mehdi Tounisiano
    Âge : 39
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 2 723
    Points : 6 140
    Points
    6 140

    Par défaut


    Testez ce code :
    Code :
    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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •