Discussion :

[pottiez]

Bonjour a tous,
je voudrais savoir si il y a moyen de trouver les adresses ip des différentes postes d'un réseaux local.
Si vous avez une idée ca m'interrésse, car moi je n'en ai pas du tout (a par tester toute les adresse ip mais ce n'est pas possible vu le nombre d'adresse possible).
A plus

[nemo69500]

Tu vas dans favorie reseau et la tu recupere tous les nom dont tu ve l ip , ensuite tu fais demarer->executer et tu tape "cmd" puis entrer

ensuite tu tape "ping nom_de_ordi" et tu tape entrer et la tu a l ip

[pottiez]

oui, mais je sous entendai que je voulais le faire dynamiquement.
excuse moi de m'être mal exprimé.

[nemo69500]

ba je suis dsl j vois pas maias la reponse a ca m interresse , si qqun connait

[niglo]

Par exemple, tu peux faire un serveur sur le poste qui doit lister les ips !!
Ce serveur attend les connexions de toutes les machines du réseau local et les listent ! Problème de cette méthode : tu dois lancer une appli sur tous les postes de ton réseau local. Tout dépend de ton réseau local (taille, diverses contraintes...) et de ce que tu veux faire avec la liste dynamique des ips !!

Sinon, je ne vois rien d'autre pour le moment !
Désolé

[pottiez]

En fait j'ai une appli qui se connecte a un serveur dont l'adresse ip est configurée et stocké dans un fichier, mais je voudrais que, si l'appli n'arrive pas a se connecter a l'adresse indiqué, elle cherche automatiquement si il n'y a pas un autre serveur démarré sur le réseau.
Je sais, c'est un peut fou, mais j'aimerais développer cette fonctionalité.

[Freeze]

Salut,

Tu devrais essayer ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
void TFPrincipal::EnumNetRes(NETRESOURCE *nr,int rtype,int rusage)
   {
   AnsiString temp;
   HANDLE hEnum;
   if (WNetOpenEnum(RESOURCE_GLOBALNET,rtype,rusage,nr,&hEnum)!=NO_ERROR)
      return;
   DWORD Count=-1;
   DWORD BufferSize=1024;
   DWORD ReturnVal=0;
   NETRESOURCE *NetRes=(NETRESOURCE *)new char[BufferSize];
   ZeroMemory(NetRes,BufferSize);
   for (;;)
      {
      ReturnVal=WNetEnumResource(hEnum,&Count,NetRes,&BufferSize);
      if (ReturnVal==ERROR_MORE_DATA)
         {
         Count=-1;
         delete []NetRes;
         NETRESOURCE *NetRes=(NETRESOURCE *)new char[BufferSize];
         ZeroMemory(NetRes,BufferSize);
         ReturnVal=WNetEnumResource(hEnum,&Count,NetRes,&BufferSize);
         }
      if (ReturnVal!=NO_ERROR)   break;
      for (DWORD i=0;i<Count;i++)
         {
         if (NetRes[i].dwDisplayType==RESOURCEDISPLAYTYPE_SERVER)
         {
            temp=NetRes[i].lpRemoteName;
            LB->Items->Add(temp.SubString(3,temp.Length()));
         }
         if (( NetRes[i].dwUsage & RESOURCEUSAGE_CONTAINER)==RESOURCEUSAGE_CONTAINER)
            EnumNetRes(&NetRes[i],rtype,rusage);
         }
      if (ReturnVal==ERROR_NO_MORE_ITEMS)
         {
         delete []NetRes;
         WNetCloseEnum(hEnum);
         }
      }
   delete []NetRes;
   WNetCloseEnum(hEnum);
   }
//---------------------------------------------------------------------------

bon pour le moment j'ai mis le résultat dans une listbox que j'ai appelé LB
, tu peux appeler cette fonction comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
EnumNetRes(0,RESOURCETYPE_ANY,0);

ca te donne le nom des postes ... si ca peut t'aider ...

[pottiez]

Merci beaucoup, cela me suffit amplement.

[menoran]

bjour j'ai voulu essayer ce procedure en modifiant just l'affichage et sa ma pas marché elle rien afficher . merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
void TFPrincipal::EnumNetRes(NETRESOURCE *nr,int rtype,int rusage)
   {
   AnsiString temp;
   HANDLE hEnum;
   if (WNetOpenEnum(RESOURCE_GLOBALNET,rtype,rusage,nr,&hEnum)!=NO_ERROR)
      return;
   DWORD Count=-1;
   DWORD BufferSize=1024;
   DWORD ReturnVal=0;
   NETRESOURCE *NetRes=(NETRESOURCE *)new char[BufferSize];
   ZeroMemory(NetRes,BufferSize);
   for (;;)
      {
      ReturnVal=WNetEnumResource(hEnum,&Count,NetRes,&BufferSize);
      if (ReturnVal==ERROR_MORE_DATA)
         {
         Count=-1;
         delete []NetRes;
         NETRESOURCE *NetRes=(NETRESOURCE *)new char[BufferSize];
         ZeroMemory(NetRes,BufferSize);
         ReturnVal=WNetEnumResource(hEnum,&Count,NetRes,&BufferSize);
         }
      if (ReturnVal!=NO_ERROR)   break;
      for (DWORD i=0;i<Count;i++)
         {
         if (NetRes[i].dwDisplayType==RESOURCEDISPLAYTYPE_SERVER)
         {
            temp=NetRes[i].lpRemoteName;
            ShowMessage(temp.SubString(3,temp.Length()));
         }
         if (( NetRes[i].dwUsage & RESOURCEUSAGE_CONTAINER)==RESOURCEUSAGE_CONTAINER)
            EnumNetRes(&NetRes[i],rtype,rusage);
         }
      if (ReturnVal==ERROR_NO_MORE_ITEMS)
         {
         delete []NetRes;
         WNetCloseEnum(hEnum);
         }
      }
   delete []NetRes;
   WNetCloseEnum(hEnum);
   }

et je l'ai appler dans ma code avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EnumNetRes(0,RESOURCETYPE_ANY,0);

[pottiez]

Salut,
comment s'appelle la fenêtre principal de ton application ?

[menoran]

Form1, mais moi j'ai enlever TFPrincipal::
merci d'avance

[pottiez]

Alors dans les fichier .cpp de ta fenêtre principal tu ajoute le code donnée dans cette discussion en remplaçant TFPrincipal par TForm1
Dans le .h de la même fenêtre tu dois avoir du code qui ressemble à cela, ajout-y la ligne que j'ai mis en rouge :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
class TForm1 : public TForm
{
  published :
  ...
  public :
  TForm1(TObject* Owner);
  ...
  void EnumNetRes(NETRESOURCE *nr,int rtype,int rusage);
};

Et maintenant tu n'as plus qu'a appeler cette méthode d'où tu veut dans la fenêtre principal

[menoran]

toujour le meme probleme il m'affiche pas les nom des machines de reseau
enfait avant que vous me reponder il compile sans erreur et meme maintenant avec le changement que vous m'avez donné il compile sans erreur mais il m'affiche pas ( si on vois dans la procedure il ya un showmessage en rouge). merci d'avance

[pottiez]

Je ne comprend pas, chez moi ca m'affiche bien tous les noms de machine correctement et j'ai ce code la

[Fbartolo]

ça marche bien pour moi, mais cela ne voit pas les passerelles et routeur.
je me demande ou cela va chercher ces infos (DNS ?) car c'est très rapide, cela ne doit pas être une fonction découverte ???

Moi un Scan IP met environs 1 minute par bloc de 255 adresse. et là ça prend 1 seconde...

[pottiez]

Je ne sais pas non plus comment il fait, mais chez moi ca met environ 30 secondes pour qu'il me sorte tous les postes sur mon réseau, mais ca marche bien

[Fbartolo]

si tu pouvais mettre un nouveau poste inconnu du réseau pour voir... la première fois
Tu as combien de poste Potiez sur ton réseau ??

[pottiez]

La sur le réseau de ma boite il y a 21 postes, et je ne peut pas brancher d'autres postes désolé

[menoran]

est ce que vous avez utiliser le code que j'ai noté la dessus et avec ce code il vous affiche les nom d'utilisateur?? .
moi il compile mais pendant l'execution il m'affiche rien !!!
merci d'avance.

[pottiez]

J'ai bien pris le code que tu avait posté toi, et chez moi ca marche, donc c'est pas un problème de codage, peut être la configuration du réseau ou de ton poste