WinDev – Forum des professionnels en informatique

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

//Créer une fentre avec une table memoire composée de 2 colonne
//Nom Ordinateur et Adresse IP

//A l’initialisation de la fenetre executer celà :

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)

Source: Ali Hindi