Lister tous les ordinateurs d’un réseau ou domaine

//Créer une fenêtre avec une table mémoire composée de 2 colonne
//Nom Ordinateur et Adresse IP

//A l’initialisation de la fenêtre exécuter cela :
Sablier()
NumFic,i sont des entiers
NomFic est une chaîne = SysRep()+ »\LisNet.TXT »
NomOrd est une chaîne
ch est une chaîne

SI PAS fFichierExiste(NomFic)
fCrée(NomFic)
SINON
fSupprime(NomFic)
fCrée(NomFic)
FIN

DDELance(« command.com /C net view > « +SansEspace(NomFic),DDEIconise,Vrai)

NumFic=fOuvre(NomFic,foLectureEcriture)

ch = fLitLigne(NumFic)
TANTQUE ch <> EOT
SI ch[[1 A 2]] = »\\ »
NomOrd = ExtraitChaîne(ch,1, » « )+ « \ »
NomOrd = ExtraitChaîne(NomOrd,3, »\ »)
TableAjouteLigne(TABLEORD,NomOrd,NetAdresseIP(sansespace(NomOrd)))
FIN
ch = fLitLigne(NumFic)
FIN
sablier(faux)