Surveillance WiFi

Pour savoir qui est connecté à votre réseau WiFi à un instant donné, un utilitaire: WirelessNetworkWatcher,
à télécharger ici: http://www.nirsoft.net/utils/wireless_network_watcher.html
(en bas de page, prendre la version zip, sans installation, portable)
Ça permet de voir qui est connecté à votre réseau wifi, un parasite éventuel (!), ou surveiller ses propres connexions
(les enfants par exemple, qui sont censés étudier ou dormir...).
On peut lancer l'exécutable directement en GUI, sur le bureau, ou bien en ligne de commande depuis un programme Panoramic, par exemple:

Code:

DIM wat$,rtm$,f$,a$,k%
' Lien de chargement: http://www.nirsoft.net/utils/wireless_network_watcher.html
wat$ = "C:\OUTILS\WiFiWatcher\WNetWatcher.exe": ' A ajuster
rtm$ = "C:\TEMP\": ' fichiers temporaires
f$ = rtm$+"WiFi.txt": ' A ajuster
IF FILE_EXISTS(f$)=1 THEN FILE_DELETE f$
HEIGHT 0,800
MEMO 1: FULL_SPACE 1: FONT_NAME 1,"Consolas": FONT_SIZE 1,10
EXECUTE_WAIT "Cmd.exe /c "+wat$+" /stext "+f$
WHILE FILE_EXISTS(f$) = 0: PAUSE 100: END_WHILE
Uni2Asc(f$,""): ' Conversion du fichier résultat Unicode en Ascii pur
FILE_LOAD 1,f$: FILE_DELETE f$
END
' ==============================================================================
SUB Uni2Asc(f$,fr$)
  ' Conversion fichier texte f$ Unicode (16bits) en Ascii (8bits)
  ' Si fr$ = "", la conversion se fait dans le fichier f$
  DIM_LOCAL sz%,i%,v%(2000),a$
  FILEBIN_OPEN_READ 9,f$: sz%=FILEBIN_SIZE(9)
  a$ = ""
  WHILE sz% > 2000
      FILEBIN_BLOCK_READ 9,2000,v%(0)
      FOR i% = 0 TO 1999: a$ = a$+CHR$(v%(i%)): NEXT i%: sz% = sz%-2000
  END_WHILE
  IF sz%>0
      FILEBIN_BLOCK_READ 9,sz%,v%(0)
      FOR i% = 0 TO sz%-1: a$ = a$+CHR$(v%(i%)): NEXT i%
  END_IF
  FILEBIN_CLOSE 9
  IF fr$ = "" THEN fr$ = f$
  FILEBIN_OPEN_WRITE 9,fr$
      FOR i% = 3 TO LEN(a$)-1 STEP 2: FILEBIN_WRITE 9,ASC(MID$(a$,i%,1)): NEXT i%
  FILEBIN_CLOSE 9
END_SUB
' ==============================================================================

Il y a 2 chemins à ajuster:
- le chemin du programme lui-même
- le chemin du répertoire des fichiers temporaires (supprimés après usage)

ATTENTION: après lancement du programme, il faut attendre une vingtaine de secondes (chez moi) avant d'obtenir le résultat (le temps du scan des adresses IP).
Ce résultat est dans un fichier texte, à mettre en forme (un zéro est intercalé après chaque caractère, la conversion est un peu bestiale mais ça marche).
Il y a d'autres options de sortie (par exemple html, etc.), à voir dans le fichier readme.txt joint au programme)

PS  j'ai modifié un peu: comme c'est un petit fichier, pas besoin de faire appel à KGF.dll, on peut le faire en Panoramic pur.

Edit 2: En fait le texte résultat est au format Unicode, du coup j'ai supprimé la lecture dans une chaîne pour supprimer les zéros un par un, et j'ai ajouté une petite sub de conversion unicode en texte pur, laquelle sub pourrait servir à d'autres occasions.

Merci JL35 pour cette info.
J’ajoute que l’on peut franciser  cet utilitaire qui est en anglais par défaut.
Pour cela il suffit de cliquer sur French (il en existe trois) pour télécharger wnetwatcher_french.zip qui contient WNetWatcher_Ing.ini qu’il faut mettre dans le même dossier où vous avez dézipé wnetwatcher.zip

Merci. Ca marche parfaitement.

Merci à vous.
Tu as raison papydall, mais bon, pour l'usage en ligne de commande comme ici l'anglais est simple et supportable.
J'ai fait la lecture du fichier -> chaîne en panoramic pur (et non KGF.dll), pour un petit fichier comme ici il n'y a pas une grosse différence (pour un gros fichier, la différence de temps d'exécution est considérable).

Je ne sais plus quel est ce format de texte renvoyé, avec un 0 machine après chaque caractère, il y a peut-être un moyen plus simple que l'analyse caractère par caractère pour le convertir en texte brut ?
Il semble que c'est le format UTF-16/UCS-2 (little endian), mais je ne suis pas plus avancé pour autant...

JL35 a écrit:

Je ne sais plus quel est ce format de texte renvoyé, avec un 0 machine après chaque caractère, il y a peut-être un moyen plus simple que l'analyse caractère par caractère pour le convertir en texte brut ?
Il semble que c'est le format UTF-16/UCS-2 (little endian), mais je ne suis pas plus avancé pour autant...

Je pense que c’est un délimiteur.
Les délimiteur sont
/stab ===> Tabulation
/comma ===> Virgule

La doc indique
Command-Line Options:
/cfg <Filename>     Start Wireless Network Watcher with the specified configuration file. For example:
WNetWatcher.exe /cfg "c:\config\wnw.cfg"
WNetWatcher.exe /cfg "%AppData%\WNetWatcher.cfg"
/stext <Filename>   Scan your network, and save the network devices list into a regular text file.
/stab <Filename>    Scan your network, and save the network devices list into a tab-delimited text file.
/scomma <Filename>     Scan your network, and save the network devices list into a comma-delimited text file (csv).
/stabular <Filename>     Scan your network, and save the network devices list into a tabular text file.
/shtml <Filename>       Scan your network, and save the network devices list into HTML file (Horizontal).
/sverhtml <Filename>    Scan your network, and save the network devices list into HTML file (Vertical).
/sxml <Filename>        Scan your network, and save the network devices list into XML file.

Je sais bien papydall que l'option définit le délimiteur de champs, mais ce soit /stext ou /stab on a toujours ce fichu format unicode avec ses zéros partout, illisible par Panoramic (mais lisible par Notepad): les caractères sont codés sur 16 bits et non sur 8, par contre pas avec /scomma.
Je laisse comme ça (/stext), avec la sub de conversion, c'est mieux pour l'affichage

OK ! J'ai pigé.