Page 1 sur 1
[R] Problème ping via commande @ComSpec
Posté : ven. 07 janv. 2011 12:34
par nav53
Bonjour,
Voila j'ai un problème avec une commande que je n'arrive pas à faire fonctionner.
Le problème est que je voudrais faire un Ping via "@ComSpec" mais en récupérant l'adresse IP à Ping depuis une InputBox et qu'ensuite le résultat soit enregistré dans un fichier texte qui s'appellerait "ping.txt" par exemple.
En fait la commande ressemblerait à celle ci-dessous mais en faisant un ping à la place et en prenant l'adresse IP rentrée dans une InputBox.
Code : Tout sélectionner
RunWait(@ComSpec & " /c ipconfig /all > " & "c:\WINDOWS\ipconfig.txt", "", @SW_HIDE)
Merci d'avance
Re: [..] Problème ping via commande @ComSpec
Posté : ven. 07 janv. 2011 12:54
par Tlem
Pourquoi si compliqué ?
La commande
Ping existe dans AutoIt.
Re: [..] Problème ping via commande @ComSpec
Posté : ven. 07 janv. 2011 12:58
par nav53
Je ne savais pas ^^
Mais est ce qu'elle génère un log et si oui puis-je l'afficher dans une zone d'édition ?
Re: [..] Problème ping via commande @ComSpec
Posté : ven. 07 janv. 2011 13:10
par zeshrek
tres exactement ce que tu demandes.
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
; on crée un petit formulaire
$Form1 = GUICreate("Ping", 256, 120, -1, -1, $DS_MODALFRAME)
$Label1 = GUICtrlCreateLabel("Adresse a pinger", 8, 24, 83, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 104, 24, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
$Button1 = GUICtrlCreateButton("Go !", 20, 56, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Sortir", 160, 56, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW, $Form1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button2 ; on sort
Exit
Case $Button1 ; on récupere l'ip et on la ping
_ping(_GUICtrlIpAddress_Get($IPAddress1))
EndSwitch
WEnd
Func _ping($IP)
; on met un petit écran d'attente
$Form2 = GUICreate("Patience", 229, 94, -1, -1, $DS_MODALFRAME)
$Label2 = GUICtrlCreateLabel("Ping en cours." & @CRLF & "Veuillez patienter quelques instants ...", 24, 16, 240, 34)
GUISetState(@SW_SHOW, $Form2)
Local $erreur = False
Local $blocs[5], $i
; on check l'IP
$blocs = StringSplit($IP, ".")
For $i = 1 To 4
If $blocs[$i] < 0 Or $blocs[$i] > 255 Then $erreur = True
ConsoleWrite($blocs[$i] & @CRLF)
Next
If $erreur = False Then ; si c'est bon, on ping
RunWait(@ComSpec & " /c ping " & $IP & " > " & "c:\WINDOWS\ping.txt", "", @SW_HIDE)
GUISetState(@SW_HIDE, $Form2) ; on enleve l'écran d'attente
If @error = 0 Then ; et on affiche le résultat (Ok ou erreur)
MsgBox(0, "Ping", "Ping éffectué." & @CRLF _
& "Le résultat du ping est visible dans le fichier :" & @CRLF _
& "c:\WINDOWS\ping.txt")
Else
MsgBox(0, "Ping", "Ca a pas marché !")
EndIf
Else ; si c'est pas bon, on l'indique
MsgBox(0, "Ping", "Format de l'adresse IP non valide")
EndIf
EndFunc
Re: [..] Problème ping via commande @ComSpec
Posté : ven. 07 janv. 2011 13:13
par nav53
Merci Zeshrek je vais tester ça cet après midi
Re: [..] Problème ping via commande @ComSpec
Posté : ven. 07 janv. 2011 15:25
par nav53
J'ai un soucis, est ce qu'il est possible d'intégrer la nouvelle GUI ping dans un script existant pour qu'elle s'affiche avec un bouton ?
Re: [..] Problème ping via commande @ComSpec
Posté : ven. 07 janv. 2011 15:28
par zeshrek
Oui.
Tu as le source, alors rien ne t'empeche de l'intégrer (ou de l'adapter) dans un script a toi. C'est un peu le but du forum...