Faire une pause dans un scriptRésolu

Question

Bonjour,
Je voudrais faire une pause dans le script suivant. Ce script affiche une fenêtre avec des informations mais se ferme immédiatement. Comment faire une pause ?


    Dim oShell As Object
    Dim command As String

Set oShell = CreateObject("WScript.Shell")

command = "ipconfig"

oShell.Run command, 1, True


Merci d'avance.

Philippe734 · Accepted Answer

>Magicbus : Merci, puis j'ai creusé ta solution pour trouver la bonne combinaison :


    Dim oShell As Object
    Dim command As String

    Set oShell = CreateObject("WScript.Shell")

    command = "cmd /c ipconfig & PAUSE"

    oShell.Run command, 1, False

NHenry · Answer

Bonjour,

Si ton but est de récupérer la sortie dans ton programme, tu peux utiliser :
ipconfig > Ficher.txt

Si tu veux que l'utilisateur puisse voir le contenu, fais un batch :
ipconfig
pause

Pour d'autres réponses, précisez votre demande.

Mon site

Philippe734 · Answer

Ok, merci.

cs_magicgus · Answer

Bonjour,

Je ne sait pas trop ce que tu cherche à faire mais mon petit doigt me dit que tu veut juste connaitre ton adresse ip local...

Si c'est le cas en vb y'a plus simple...


'Sur une feuille place :
' - Un CommandButton
' - Un contrôle Winsock

'Puis le code
Private Sub Command1_Click()
    MsgBox Winsock1.LocalIP
End Sub

'Grace à ce contrôle tu peut aussi afficher d'autre information comme le nom du pc sur le réseau, etc...


Guillaume

Philippe734 · Answer

>magicbus : merci mais j'ai pris ipconfig comme exemple car le script dans lequel je veux faire une pause est moins simple. Malgré l'astuce de passer par un fichier batch, ma question reste encore valable :
Comment faire une pause dans mon premier post ?

cs_magicgus · Answer

Ok j'ai trouvé un truc qui tourne...


    Dim oShell As Object
    Dim command As String

Set oShell = CreateObject("WScript.Shell")

command = "cmd /k ipconfig" 'ici on lance la console avec le paramêtre /k qui force la non fermeture auto en cas de fin d'execution

oShell.Run command, 1, True



Guillaume

Faire une pause dans un script

6 réponses

Votre réponse

Discussions similaires