Des procédures pour le réseau

' ******************************************************************************
' Proc_Reseau.bas  par Papydall
' Voici 5 procédures pour afficher la configuration de votre carte Ethernet
' pour savoir quelles sont les adresses IP qui communiquent avec votre PC et
' autres choses encore ...
' ******************************************************************************
' Exemples d'appel :

Info_Carte_Reseau()
' Connexions_TCP_Actives()
' Connectivite("panoramic_language.pagesperso-orange.fr")
' Table_Routage()
' Trace_Route("panoramic_language.pagesperso-orange.fr")

end
' ******************************************************************************
' Initialisation
SUB Init()
   dim a$
   full_space 0 : memo 9999 : width 9999, width(0)-100 : height 9999,height(0)-100
   top 9999, 20 : left 9999,40 : font_size 9999,12 : font_bold 9999
   item_add 9999,"Veuillez patienter.... ça pourrait prendre une minute ou plus !!!"
END_SUB
' ******************************************************************************
' Ramener le contenu du fichier "c:\tmp.txt"  sur le MEMO
SUB Au_travail()
   ' Ouvrir le fichier c:\tmp.txt en lecture
   file_open_read 1,"C:\tmp.txt" : clear 9999
   while file_eof(1) <> 1
' Afficher le contenu du fichier dans le MEMO
         file_readln 1,a$ : item_add 9999,a$
   end_while
' Effacer le fichier comme si de rien n'était.
   file_close 1 : file_delete "c:\tmp.txt"
END_SUB
' ******************************************************************************
' Exécution d'un programme externe sans la fenêtre noire de l'invite de commande
' Cette procédure est une adaptation de celle de JL35 que je remercie beaucoup.
' ==============================================================================
SUB Exec_Prog(prog$)
   DIM_LOCAL scr$, bat$, axp$
   Init() : scr$ = "C:\Vbscript.vbs" : bat$ = "C:\Bat.bat"
   ' ===== Création du fichier .bat
   FILE_OPEN_WRITE 9998, bat$: FILE_WRITELN 9998, prog$: FILE_CLOSE 9998
   ' ===== Création du script .vbs
   axp$ = "CreateObject("+CHR$(34)+"Wscript.Shell"+CHR$(34)+").Run "
   axp$ = axp$ + CHR$(34) + bat$ + CHR$(34) + ", 0, True"
   FILE_OPEN_WRITE 9998, scr$: FILE_WRITELN 9998, axp$: FILE_CLOSE 9998
   ' ===== Exécution du script
   EXECUTE_WAIT "WSCRIPT.exe "+ scr$
   Au_Travail()
   FILE_DELETE bat$: FILE_DELETE scr$
END_SUB
' ******************************************************************************
' 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,"Paramètres de la carte réseau"
   Exec_Prog("cmd.exe /c ipconfig/all > c:\tmp.txt")
END_SUB
' ******************************************************************************
' 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 ..."
   Exec_Prog("cmd.exe /c netstat -a > c:\tmp.txt")
END_SUB
' ******************************************************************************
' Vérifie la connectivité vers un ordinateur, un routeur ou un site Internet.
' Envoie un paquet à un hôte Internet spécifié ou à un ordinateur du réseau et
' mesure le temps de réponse. L'ordinateur cible renverra un signal. Cela permet
' de déterminer la qualité de la connexion. Vous obtiendrez également une
' adresse IP qui correspond à l'URL du hôte.
SUB Connectivite(hote$)
   caption 0,"Connectivité vers " + chr$(34) + hote$ + chr$(34)
   Exec_Prog("cmd.exe /c ping "+ hote$ + "  > c:\tmp.txt")
END_SUB
' ******************************************************************************
' 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"
   Exec_Prog("cmd.exe /c route print > c:\tmp.txt")
END_SUB
' ******************************************************************************
' Le chemin entre 2 ordinateurs sur Internet n'est pas en ligne droite mais
' consiste en de nombreux segments ou "hops" d'un ordinateur intermédiaire à un
' autre.
' TRACERT affiche chaque étape du chemin emprunté. Le temps pour chaque "hop" et
' l'adresse IP de chaque ordinateur intermédiare sont affichés.
' TRACERT affiche jusqu'à 30 "hops"
' ATTENTION : l'exécution de cette commande peut prendre plus d'une minute !!!
' ==============================================================================
SUB Trace_Route(site$)
   caption 0,"Itinéraire pour atteindre " + chr$(34) + site$ + chr$(34)
   Exec_Prog("cmd.exe /c tracert "+ site$ + "  > c:\tmp.txt")
END_SUB
' ******************************************************************************

' ==================================== F I N ===================================

' ******************************************************************************
' Proc_Reseau.bas  par Papydall
' Voici 5 procédures pour afficher la configuration de votre carte Ethernet
' pour savoir quelles sont les adresses IP qui communiquent avec votre PC et
' autres choses encore ...
' ******************************************************************************
REM ======================== A T T E N t I O N ================================
REM =============== Les commandes de l'invite de commande  redirigent =========
REM =============== leur sortie vers le presse-papier " | CLIP " ==============
REM =============== Or Windows XP ne dispose pas du fichier CLIP.EXE ==========
REM =============== Donc le programme ne fonctionne que sur ===================
REM =============== Windows Vista, 7 et 8 =====================================
REM =============== Cependant on pourrait le faire tourner sous Window XP ======
REM =============== à condition de télécharger sur Internet ===================
REM =============== le fichier CLIP.EXE et le copier dans =====================
REM ==========================  C:\WINDOWS\system32 ===========================
REM =========== Le fichier CLIP.EXE peut être téléchargé sur ce site =========
REM http://www.generation-nt.com/copier-le-resultat-d-une-commande-dans-le-presse-papiers-astuce-24638-1.html
' ******************************************************************************
' Exemples d'appel :
init()
Info_Carte_Reseau()
' Connexions_TCP_Actives()
' Connectivite("panoramic_language.pagesperso-orange.fr")
' Table_Routage()
' Trace_Route("panoramic_language.pagesperso-orange.fr")

end
' ******************************************************************************
' Initialisation
SUB Init()
   dim a$
   full_space 0 : memo 9999 : width 9999, width(0)-100 : height 9999,height(0)-100
   top 9999, 20 : left 9999,40 : font_size 9999,12 : font_bold 9999
   item_add 9999,"Veuillez patienter.... ça pourrait prendre une minute ou plus !!!"
END_SUB
' ******************************************************************************
' Exécution d'un programme externe sans la fenêtre noire de l'invite de commande
' Cette procédure est une adaptation de celle de JL35 que je remercie beaucoup.
' ==============================================================================
SUB Exec_Prog(prog$)
   DIM_LOCAL scr$, bat$, axp$
   scr$ = "C:\Vbscript.vbs" : bat$ = "C:\Bat.bat"
   ' ===== Création du fichier .bat
   FILE_OPEN_WRITE 9998, bat$: FILE_WRITELN 9998, prog$: FILE_CLOSE 9998
   ' ===== Création du script .vbs
   axp$ = "CreateObject("+CHR$(34)+"Wscript.Shell"+CHR$(34)+").Run "
   axp$ = axp$ + CHR$(34) + bat$ + CHR$(34) + ", 0, True"
   FILE_OPEN_WRITE 9998, scr$: FILE_WRITELN 9998, axp$: FILE_CLOSE 9998
   ' ===== Exécution du script
   EXECUTE_WAIT "WSCRIPT.exe "+ scr$
   FILE_DELETE bat$: FILE_DELETE scr$
   clear 9999
END_SUB
' ******************************************************************************
' 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,"Paramètres de la carte réseau"
   Exec_Prog("cmd.exe /c ipconfig/all | clip")
   item_add 9999,clipboard_string_paste$
END_SUB
' ******************************************************************************
' 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 ..."
   Exec_Prog("cmd.exe /c netstat -a | clip")
   item_add 9999,clipboard_string_paste$
END_SUB
' ******************************************************************************
' Vérifie la connectivité vers un ordinateur, un routeur ou un site Internet.
' Envoie un paquet à un hôte Internet spécifié ou à un ordinateur du réseau et
' mesure le temps de réponse. L'ordinateur cible renverra un signal. Cela permet
' de déterminer la qualité de la connexion. Vous obtiendrez également une
' adresse IP qui correspond à l'URL du hôte.
SUB Connectivite(hote$)
   caption 0,"Connectivité vers " + chr$(34) + hote$ + chr$(34)
   Exec_Prog("cmd.exe /c ping "+ hote$ + " | clip ")
   item_add 9999,clipboard_string_paste$
END_SUB
' ******************************************************************************
' 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"
   Exec_Prog("cmd.exe /c route print | clip")
   item_add 9999,clipboard_string_paste$
END_SUB
' ******************************************************************************
' Le chemin entre 2 ordinateurs sur Internet n'est pas en ligne droite mais
' consiste en de nombreux segments ou "hops" d'un ordinateur intermédiaire à un
' autre.
' TRACERT affiche chaque étape du chemin emprunté. Le temps pour chaque "hop" et
' l'adresse IP de chaque ordinateur intermédiare sont affichés.
' TRACERT affiche jusqu'à 30 "hops"
' ATTENTION : l'exécution de cette commande peut prendre plus d'une minute !!!
' ==============================================================================
SUB Trace_Route(site$)
   caption 0,"Itinéraire pour atteindre " + chr$(34) + site$ + chr$(34)
   Exec_Prog("cmd.exe /c tracert "+ site$ + " | clip")
   item_add 9999,clipboard_string_paste$
END_SUB
' ******************************************************************************

' ==================================== F I N ===================================