Derniers Articles
Vous êtes ici : Accueil / Tutoriaux / Développement / Lister tous les ordinateurs d’un réseau ou domaine

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)

2 commentaires

  1. bonjour je un problème avec le serveur

Répondre

Votre adresse email ne sera pas publiée.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.

shared on wplocker.com