Tester votre réseau local et votre connexion Internet

rem ============================================================================
rem                    Procédures Réseau
rem Tester votre réseau local et votre connexion Internet afin de détecter les problèmes.
rem ============================================================================
rem Commandes :
rem IPCONFIG    pour connaître votre Adresse IP et la configuration de votre carte Ethernet
rem PING        pour tester la connectivité d un ordinateur distant, en lui envoyant des paquets de données.
rem ROUTE PRINT pour afficher la table de routage.
rem TRACERT     pour déterminer l itinéraire menant vers une destination.
rem                  Vous pouvez ainsi connaître chaque équipement qui se trouve
rem                  entre votre ordinateur et la destination que vous indiquez.
rem NETSTAT Pour savoir quelles sont les adresses IP qui communiquent avec votre PC
rem ============================================================================
dim com$
full_space 0
memo 1 : full_space 1 : bar_both 1
font_name 1,"terminal"  : ' Pour afficher correctement les caractères accentués
font_size 1,12 : font_bold 1
caption 0,"Veuillez patienter ... Traitement en cours ..."
if dir_exists("C:\Temp") = 0 then dir_make "C:\Temp"
com$ = "C:\Temp\info.txt"
rem ============================================================================
rem Appeler une à une ces différentes SUBs
 Info_Carte_Reseau()
' Connexions_TCP_Actives()

' Ping("panoramic_language.pagesperso-orange.fr") : ' PING du Forum Panoramic
' Ping("127.0.0.1")                               : ' PING de votre ordinateur

' Table_Routage()
rem ATTENTION : Tracert peut nécessiter quelques minutes pour s exécuter, alors
rem &&&&&&&&&&&&&&&&&&&& VEUILLEZ PATIENTER &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

' Tracert("panoramic_language.pagesperso-orange.fr") : ' Itinéraire vers le Forum Panoramic
' Tracert("www.google.fr") : ' Itinéraire vers le site de Google
end
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
re =============================================================================
' PING (acronyme de Packet INternet Groper)
' permet, grâce à l envoi de paquets, de vérifier si une machine distante répond
' et, par extension, qu elle est accessible par le réseau.
SUB Ping(site$)
    clear 1
    execute_wait "cmd.exe /c ping " + site$ +  " > " + com$
    file_load 1,com$ : file_delete com$
END_SUB
rem ============================================================================
' La commande TRACERT permet de déterminer l itinéraire menant vers une destination
' en envoyant des messages d echo ICMP (de la même manière que la commande ping).
' Chaque équipement qui se trouve entre votre ordinateur et la destination que
' vous indiquez est alors affiché. Cette commande est utile pour identifier
' un problème sur un routeur intermédiaire (votre box par exemple).
rem ============================================================================
SUB Tracert(destination$)
    clear 1
    execute_wait "cmd.exe /c tracert " + destination$ + " > " + com$
    file_load 1,com$ : file_delete com$
END_SUB
rem ============================================================================
' Pour connaître votre Adresse IP et la configuration de votre carte Ethernet et
' voir en détails les paramètres de votre/vos cartes(s) réseau(x).
' Le paramètre /all permet d'afficher toutes les infos de configuration
SUB Info_Carte_Reseau()
    caption 0, "Configuration de votre carte réseau"
    clear 1
    execute_wait "cmd.exe /c ipconfig /all > " + com$
    file_load 1,com$ : file_delete com$
END_SUB
rem ============================================================================
' Pour savoir quelles sont les adresses IP qui communiquent avec votre PC.
' Afficher les connexions TCP actives, les ports que l'ordinateur écoute, les
' statistiques Ethernet, la table de routage IP, les statistiques pour les
' protocoles IP,ICMP,TCP et UDP
' Le paramètre -a pour afficher toutes les connexions et les ports en écoute.
' Changez le paramètre -a par -b pour afficher l'exécutable impliqué dans la
' création de chaque connexion ou port d'écoute. Ceci permet de connaître le
' fichier exécutable qui a ouvert une connexion. C'est donc un moyen de découvrir
' si un fichier malveillant utilise votre ordinateur de manière incorrecte en
' accédant à Internet.
SUB Connexions_TCP_Actives()
    caption 0," Connexions TCP actives, ports d'écoute, statistiques Ethernet ..."
    clear 1
    execute_wait "cmd.exe /c netstat > " + com$
    file_load 1,com$ : file_delete com$
END_SUB
rem ============================================================================
' Affiche la table de routage. Cette table contient les champs suivants:
' Destination réseau, Masque réseau, Adr. passerelle, Adr. interface, Métrique
' La destination réseau veut dire où vont les paquets;
' le masque c'est l'étendue de la destination;
' la passerelle c'est vers où sont envoyés les paquets qui ont cette destination
' la métrique c'est la priorité : plus c'est petit plus c'est prioritaire.
SUB Table_Routage()
    caption 0,"Table de routage"
    clear 1
    execute_wait "cmd.exe /c route print > " + com$
   file_load 1,com$ : file_delete com$
END_SUB
rem ============================================================================