C'est la rentrée !

dim com$

height 0,450
width 0,650
top 0,(screen_y-height(0))/2
left 0,(screen_x-width(0))/2
caption 0,"My DNS"

memo 1
full_space 1
bar_both 1
font_name 1,"Courier"
font_size 1,10
color 1,0,0,0
font_color 1,255,255,255

if dir_exists("C:\Temp")=0 then dir_make "C:\Temp"
com$="C:\Temp\MyDNS.txt"
execute_wait "cmd.exe /c ipconfig/displaydns > "+com$
file_load 1,com$
file_delete com$
end

rem ============================================================================
rem         La commande IPCONFIG
rem ============================================================================
' La commande Ipconfig affiche toutes les valeurs actuelles de la configuration
' du réseau TCP/IP et actualise les paramètres DHCP (Dynamic Host Configuration Protocol)
' et DNS (Domain Name System).
rem ============================================================================
rem syntaxe :
rem ipconfig [/all] [/renew [Carte]] [/release [Carte]] [/flushdns] [/displaydns]
rem [/registerdns] [/showclassid Carte] [/setclassid Carte [IDClasse]]
rem ============================================================================
rem Utilisée sans paramètres, ipconfig affiche l adresse IP, le masque de sous-réseau
rem et la passerelle par défaut de toutes les cartes.
rem ============================================================================
rem Paramètres de IPCONFIG :
rem /all
' Affiche la configuration TCP/IP complète de toutes les cartes.
' Sans ce paramètre, ipconfig affiche uniquement l'adresse IP, le masque de
' sous-réseau et les valeurs de la passerelle par défaut de chaque carte.
' Les cartes peuvent représenter des interfaces physiques, par exemple les
' cartes réseau installées, ou des interfaces logiques, par exemple
' les connexions d'accès à distance.

rem /renew [Carte]
' Renouvelle la configuration DHCP de toutes les cartes (si aucune carte n'est spécifiée)
' ou d'une carte spécifique si le paramètre Carte est inclus.
' Ce paramètre est disponible uniquement sur les ordinateurs dont les cartes sont
' configurées de manière à obtenir automatiquement une adresse IP.
' Pour spécifier un nom de carte, tapez celui qui apparaît quand vous utilisez
' ipconfig sans paramètre.

rem /release [Carte]
' Envoie un message DHCPRELEASE au serveur DHCP pour libérer la configuration DHCP
' actuelle et annuler la configuration d'adresse IP de toutes les cartes
' (si aucune carte n'est spécifiée) ou d'une carte spécifique si le paramètre
' Carte est inclus.
' Ce paramètre désactive TCP/IP pour les cartes configurées de manière à obtenir
' automatiquement une adresse IP.
' Pour spécifier un nom de carte, tapez celui qui apparaît quand vous utilisez ipconfig sans paramètre.

rem /flushdns
' Vide et réinitialise le contenu du cache de résolution du client DNS.
' Au cours de la résolution des problèmes DNS, vous pouvez utiliser cette procédure
' pour exclure les entrées de cache négatives ainsi que toutes les autres entrées
' ajoutées de façon dynamique.

rem /displaydns
' Affiche le contenu du cache de résolution du client DNS, qui inclut les entrées
' préchargées à partir du fichier des hôtes locaux ainsi que tous les enregistrements
' de ressources récemment obtenus pour les requêtes de noms résolues par l'ordinateur.
' Le service Client DNS utilise ces informations pour résoudre rapidement les noms
' fréquemment sollicités, avant d'interroger ses serveurs DNS configurés.

rem /registerdns
' Entame une inscription dynamique manuelle des noms DNS et des adresses IP configurés
' sur un ordinateur.
' Vous pouvez utiliser ce paramètre pour résoudre un problème d'échec d'inscription
' de nom DNS ou un problème de mise à jour dynamique entre un client et le serveur DNS
' sans redémarrage du client. Les paramètres DNS des propriétés avancées du protocole
' TCP/IP déterminent les noms enregistrés dans DNS.

rem /showclassid Carte
' Affiche l'ID de classe DHCP d'une carte spécifique.
' Pour visualiser l'ID de classe DHCP de toutes les cartes, utilisez l'astérisque (*)
' comme caractère générique à la place de Carte.
' Ce paramètre est disponible uniquement sur les ordinateurs dont les cartes sont
' configurées de manière à obtenir automatiquement une adresse IP.

rem /setclassid Carte [IDClasse]
' Configure l'ID de classe DHCP d'une carte spécifique.
' Pour définir l'ID de classe DHCP de toutes les cartes, utilisez l'astérisque (*)
' comme caractère générique à la place de Carte.
' Ce paramètre est disponible uniquement sur les ordinateurs dont les cartes sont
' configurées de manière à obtenir automatiquement une adresse IP.
' Si aucun ID de classe DHCP n'est spécifié, l'ID de classe en cours est supprimé.

rem /?
' Affiche l'aide dans l'invite de commandes.
rem ============================================================================
dim com$
dim g$ : g$ = chr$(34) : ' Le caractère guillemet
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 : color 1,255,255,0 : font_color 1,0,0,0

if dir_exists("C:\Temp") = 0 then dir_make "C:\Temp"
com$ = "C:\Temp\ip.txt"
rem ============================================================================

execute_wait "cmd.exe /c ipconfig/displaydns > " + com$
file_load 1,com$ : file_delete com$
stop
rem ============================================================================
' Pour afficher la configuration TCP/IP de base de toutes les cartes
execute_wait "cmd.exe /c ipconfig > " + com$
file_load 1,com$ :file_delete com$
stop
rem ============================================================================
' Pour afficher la configuration TCP/IP complète de toutes les cartes
execute_wait "cmd.exe /c ipconfig /all > " + com$
file_load 1,com$ : file_delete com$
stop
rem ============================================================================
' Pour renouveler une configuration d'adresse IP assignée par DHCP uniquement pour la carte Connexion au réseau local
execute_wait "cmd.exe /c ipconfig /renew "+g$+"Connexion au réseau local"+g$ + " > " + com$
file_load 1,com$ : file_delete com$
stop
rem ============================================================================
' Pour afficher l'ID de classe DHCP de toutes les cartes dont le nom commence par Local
execute_wait "cmd.exe /c ipconfig /showclassid Local* > " + com$
file_load 1,com$ : file_delete com$
stop
rem ============================================================================
' Pour vider le cache de résolution DNS et résoudre les problèmes de noms DNS
execute_wait "cmd.exe /c ipconfig /flushdns > " + com$
file_load 1,com$ : file_delete com$
stop
rem ============================================================================
terminate
rem ============================================================================

variables()
labels()
init()
gui()
end

' ------------------------------------------------------------------------------

sub variables()
' variable d' incrémentation des objets
  dim no%,o%
' objets
  dim pan%    : no%=no%+1 : pan%=no%
  dim but%(10): for o%=1 to 6 : no%=no%+1 : but%(o%)=no% : next o%
  dim affich% : no%=no%+1 : affich%=no%
  dim affich2%: no%=no%+1 : affich2%=no%
' systeme
  dim com$
  dim g$
end_sub

' ------------------------------------------------------------------------------

sub labels()
  label clic
end_sub

' ------------------------------------------------------------------------------

sub init()
  if dir_exists("C:\Temp") = 0 then dir_make "C:\Temp"
  com$ = "C:\Temp\ip.txt"
  g$ = chr$(34) : ' Le caractère guillemet
end_sub

' ------------------------------------------------------------------------------

sub gui()
  dim_local h%,w%,i%,lbut%,cbut$,hbut$,lhbut%,a$

  height 0,701
  width 0,1458
  top 0,(screen_y-height(0))/2
  left 0,(screen_x-width(0))/2
  caption 0,"My DNS"

  panel pan%
  full_space pan%
  h%=height(pan%)
  w%=width(pan%)
  delete pan%

  cbut$="Info 1,Info 2,Info 3,Info 4,Info 5,Clear DNS,"
  hbut$="DNS|"
  hbut$=hbut$+"Pour afficher la configuration TCP/IP de base de toutes les cartes|"
  hbut$=hbut$+"Pour afficher la configuration TCP/IP complète de toutes les cartes|"
  hbut$=hbut$+"Pour renouveler une configuration d'adresse IP assignée par DHCP uniquement pour la carte Connexion au réseau local|"
  hbut$=hbut$+"Pour afficher l'ID de classe DHCP de toutes les cartes dont le nom commence par Local|"
  hbut$=hbut$+"Pour vider le cache de résolution DNS et résoudre les problèmes de noms DNS|"
  for i%=1 to 6
      button but%(i%)
      top but%(i%),0
      left but%(i%),lbut%
      lbut%=lbut%+width(but%(i%))
      caption but%(i%),left$(cbut$,instr(cbut$,",")-1)
      a$=left$(hbut$,instr(hbut$,"|")-1)
      hint but%(i%),a$
      if i%<6
        cbut$=right$(cbut$,len(cbut$)-(len(caption$(but%(i%)))+1))
        hbut$=right$(hbut$,len(hbut$)-(len(a$)+1))
      end_if
      font_name but%(i%),"arial"
      font_size but%(i%),8
      font_bold but%(i%)
      cursor_point but%(i%)
      on_click but%(i%),clic
  next i%
 
  memo affich%
  height affich%,h%-height(but%(1))
  width affich%,w%-600
  top affich%,height(but%(1))
  bar_both affich%
  color affich%,0,0,0
  font_color affich%,255,255,255
  font_name affich%,"Terminal"
  font_size affich%,12
 
  memo affich2%
  height affich2%,h%-height(but%(1))
  width affich2%,600
  top affich2%,height(but%(1))
  left affich2%,width(affich%)
  font_name affich2%,"arial"
  font_size affich2%,10
  bar_both affich2%
  readdata()
end_sub

' ------------------------------------------------------------------------------

clic:
  clear affich%
 
  if number_click=but%(1)
  execute_wait "cmd.exe /c ipconfig/displaydns > " + com$
  end_if

  if number_click=but%(2)
  execute_wait "cmd.exe /c ipconfig > " + com$
  end_if

  if number_click=but%(3)
  execute_wait "cmd.exe /c ipconfig /all > " + com$
  end_if

  if number_click=but%(4)
  execute_wait "cmd.exe /c ipconfig /renew "+g$+"Connexion au réseau local"+g$ + " > " + com$
  end_if

  if number_click=but%(5)
  execute_wait "cmd.exe /c ipconfig /showclassid Local* > " + com$
  end_if

  if number_click=but%(6)
  execute_wait "cmd.exe /c ipconfig /flushdns > " + com$
  end_if
 
  file_load affich%,com$ : file_delete com$
return

' ------------------------------------------------------------------------------

sub readdata()
  dim_local l$
  while l$<>"fin"
      read l$
      item_add affich2%,l$
  end_while
end_sub

' ------------------------------------------------------------------------------

data " ============================================================================"
data "        La commande IPCONFIG"
data " ============================================================================"
data " La commande Ipconfig affiche toutes les valeurs actuelles de la configuration"
data " du réseau TCP/IP et actualise les paramètres DHCP (Dynamic Host Configuration Protocol)"
data " et DNS (Domain Name System)."
data " ============================================================================"
data " syntaxe :"
data " ipconfig [/all] [/renew [Carte]] [/release [Carte]] [/flushdns] [/displaydns]"
data " [/registerdns] [/showclassid Carte] [/setclassid Carte [IDClasse]]"
data " ============================================================================"
data " Utilisée sans paramètres, ipconfig affiche l adresse IP, le masque de sous-réseau"
data " et la passerelle par défaut de toutes les cartes."
data " ============================================================================"
data " Paramètres de IPCONFIG :"
data " /all"
data " Affiche la configuration TCP/IP complète de toutes les cartes."
data " Sans ce paramètre, ipconfig affiche uniquement l'adresse IP, le masque de"
data " sous-réseau et les valeurs de la passerelle par défaut de chaque carte."
data " Les cartes peuvent représenter des interfaces physiques, par exemple les"
data " cartes réseau installées, ou des interfaces logiques, par exemple"
data " les connexions d'accès à distance."
data ""
data " /renew [Carte]"
data " Renouvelle la configuration DHCP de toutes les cartes (si aucune carte n'est spécifiée)"
data " ou d'une carte spécifique si le paramètre Carte est inclus."
data " Ce paramètre est disponible uniquement sur les ordinateurs dont les cartes sont"
data " configurées de manière à obtenir automatiquement une adresse IP."
data " Pour spécifier un nom de carte, tapez celui qui apparaît quand vous utilisez"
data " ipconfig sans paramètre."
data ""
data " /release [Carte]"
data " Envoie un message DHCPRELEASE au serveur DHCP pour libérer la configuration DHCP"
data " actuelle et annuler la configuration d'adresse IP de toutes les cartes"
data " (si aucune carte n'est spécifiée) ou d'une carte spécifique si le paramètre"
data " Carte est inclus."
data " Ce paramètre désactive TCP/IP pour les cartes configurées de manière à obtenir"
data " automatiquement une adresse IP."
data " Pour spécifier un nom de carte, tapez celui qui apparaît quand vous utilisez ipconfig sans paramètre."
data ""
data " /flushdns"
data " Vide et réinitialise le contenu du cache de résolution du client DNS."
data " Au cours de la résolution des problèmes DNS, vous pouvez utiliser cette procédure"
data " pour exclure les entrées de cache négatives ainsi que toutes les autres entrées"
data " ajoutées de façon dynamique."
data ""
data " /displaydns"
data " Affiche le contenu du cache de résolution du client DNS, qui inclut les entrées"
data " préchargées à partir du fichier des hôtes locaux ainsi que tous les enregistrements"
data " de ressources récemment obtenus pour les requêtes de noms résolues par l'ordinateur."
data " Le service Client DNS utilise ces informations pour résoudre rapidement les noms"
data " fréquemment sollicités, avant d'interroger ses serveurs DNS configurés."
data ""
data " /registerdns"
data " Entame une inscription dynamique manuelle des noms DNS et des adresses IP configurés"
data " sur un ordinateur."
data " Vous pouvez utiliser ce paramètre pour résoudre un problème d'échec d'inscription"
data " de nom DNS ou un problème de mise à jour dynamique entre un client et le serveur DNS"
data " sans redémarrage du client. Les paramètres DNS des propriétés avancées du protocole"
data " TCP/IP déterminent les noms enregistrés dans DNS."
data ""
data " /showclassid Carte"
data " Affiche l'ID de classe DHCP d'une carte spécifique."
data " Pour visualiser l'ID de classe DHCP de toutes les cartes, utilisez l'astérisque (*)"
data " comme caractère générique à la place de Carte."
data " Ce paramètre est disponible uniquement sur les ordinateurs dont les cartes sont"
data " configurées de manière à obtenir automatiquement une adresse IP."
data ""
data " /setclassid Carte [IDClasse]"
data " Configure l'ID de classe DHCP d'une carte spécifique."
data " Pour définir l'ID de classe DHCP de toutes les cartes, utilisez l'astérisque (*)"
data " comme caractère générique à la place de Carte."
data " Ce paramètre est disponible uniquement sur les ordinateurs dont les cartes sont"
data " configurées de manière à obtenir automatiquement une adresse IP."
data " Si aucun ID de classe DHCP n'est spécifié, l'ID de classe en cours est supprimé."
data ""
data " /?"
data " Affiche l'aide dans l'invite de commandes."
data "fin"

rem ============================================================================
rem Tester votre réseau local et votre connexion Internet afin de détecter les problèmes.
rem ============================================================================
rem Commandes :
rem PING pour tester la connectivité d un ordinateur distant, en lui envoyant
rem des paquets de données.
rem TRACERT pour déterminer l itinéraire menant vers une destination.
rem Vous pouvez ainsi connaître chaque équipement qui se trouve entre votre
rem ordinateur et la destination que vous indiquez.
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 : color 1,255,255,0 : font_color 1,0,0,0
caption 0,"Veuillez patienter ... Traitement en cours ..."
if dir_exists("C:\Temp") = 0 then dir_make "C:\Temp"
com$ = "C:\Temp\ip.txt"
rem ============================================================================
rem PING (acronyme de Packet INternet Groper)
rem permet, grâce à l envoi de paquets, de vérifier si une machine distante répond
rem et, par extension, qu elle est accessible par le réseau.
rem ============================================================================
clear 1
 execute_wait "cmd.exe /c ping 127.0.0.1 > " + com$      : ' PING de votre ordinateur
' execute_wait "cmd.exe /c ping www.google.fr > " + com$  : ' PING de google.fr
' execute_wait "cmd.exe /c ping www.commentcamarche.fr > " + com$  : ' PING de commentcamarche.fr
 file_load 1,com$ : file_delete com$
 stop
rem ============================================================================
rem La commande tracert permet de déterminer l itinéraire menant vers une destination
rem en envoyant des messages d echo ICMP (de la même manière que la commande ping).
rem Chaque équipement qui se trouve entre votre ordinateur et la destination que
rem vous indiquez est alors affiché. Cette commande est utile pour identifier
rem un problème sur un routeur intermédiaire (votre box par exemple).
rem ============================================================================
clear 1
' execute_wait "cmd.exe /c tracert www.google.fr > " + com$
 execute_wait "cmd.exe /c tracert 193.95.12.99 > " + com$  : ' L'adresse 93.95.12.99 (un serveur de Google)
 file_load 1,com$ : file_delete com$
stop
rem ============================================================================
terminate
rem ============================================================================