Discussion :

[dsr57]

Bonjour à tous

Je cherche comment scanner un réseau, c'est à dire récupérer l'ensemble des appareils (Adresse IP) connectés à une box, routeur.

J'ai cherché au niveau des sockets, mais j'ai pas trouvé.
Si quelqu'un à une idée, une piste ?

Merci par avance

[Ry_Yo]

Bonsoir,

C'est pas trop du windev comme question
Mais comme ça sans trop réfléchir, je dirais par bruteforce.

On ping de xxx.xxx.xxx.1 à xxx.xxx.xxx.255

Puis on regarde la table arp, et pour chaque adresse MAC trouvé, c'est que l'ip est valide donc qu'il y a un appareil connecté sur le réseau.

[Toytoy31]

bonsoir,

D'un cote, je suis d'accord avec Ry_Yo car cela ne correspond pas trop a du developpement

Mais bon, nous sommes la pour nous aider donc c'est ce je vais tenter de faire

Avez-vous regarde du cote de la fonction :

Code :

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

1
2
3
 
ListeIP est une chaîne
ListeIP = DNSListeAdresse("testdoc.doc.local", "Andromede_2")

<Résultat> = DNSListeAdresse(<Nom> [, <Serveur DNS>])
<Résultat> : Chaîne de caractères

Liste des adresses IP séparées par RC (Retours Chariot).

<Nom> : Chaîne de caractères Unicode (avec guillemets)

Nom complet sur lequel les adresses IP doivent être récupérées. Ce paramètre est de la forme : <Nom> + "." + <Domaine>.
Exemple : "testdoc.pcsoft.com"

<Serveur DNS> : Chaîne de caractères (avec guillemets) optionnelle

Adresse du serveur DNS à manipuler. Par défaut, le serveur DNS actuel est utilisé.

j'espere que cela pourra eventuellement vous aider

[SevenSoftware]

Bonjour,

Voici un exemple (attention, vieux programme de 2008 !)
La procédure examine 2 domaines.
La liste des machines présentes est obtenu par une sortie de "net view" vers un fichier texte. Puis NetAdresseIP() retrouve les IP des machines.

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
45
46
47
PROCEDURE lit_net()
Sablier(Vrai)
//Code WinDev 5.5 remplacé par la migration :
//NumFic est un entier long
NumFic est un entier  
NomFic est une chaîne = "LisNet.TXT"
NomOrd est une chaîne
ch est une chaîne
ix , ij est un entier

//Code WinDev 5.5 remplacé par la migration :
//ddelance("command.com /C net view > "+sansespace(NomFic),ddeiconise,vrai)
LanceAppli("command.com /C net view /DOMAIN:sideme2k > "+SansEspace(NomFic),exeIconise,Vrai)

NumFic=fOuvre(NomFic,foLectureEcriture)

ch = fLitLigne(NumFic)
TANTQUE ch <> EOT
	SI ch[[1 A 2]] ="\\"
		NomOrd = ExtraitChaîne(ch,1," ")
		NomOrd = NomOrd + "\"
		NomOrd = ExtraitChaîne(NomOrd,3,"\")
		TableAjoute("TableOrd",NomOrd+TAB)
	FIN
	ch = fLitLigne(NumFic)
FIN
fFerme(NumFic)
fSupprime(SansEspace(NomFic))
LanceAppli("command.com /C net view /DOMAIN:sideme > "+SansEspace(NomFic),exeIconise,Vrai)

NumFic=fOuvre(NomFic,foLectureEcriture)

ch = fLitLigne(NumFic)
TANTQUE ch <> EOT
	SI ch[[1 A 2]] ="\\"
		NomOrd = ExtraitChaîne(ch,1," ")
		NomOrd = NomOrd + "\"
		NomOrd = ExtraitChaîne(NomOrd,3,"\")
		TableAjoute("TableOrd",NomOrd+TAB)
	FIN
	ch = fLitLigne(NumFic)
FIN

ij = TableOccurrence("TABLEORD")
POUR ix = 1 A ij
	adresses(NOMOR[ix])
FIN

Fonction adresses:

Code :

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

1
2
3
4
5
PROCEDURE adresses(machine)

ch est une chaîne
ch = NetAdresseIP(SansEspace(machine),0)
TableAjoute("TABLEADRIP",machine+TAB+ch+TAB)

Bon dev

[dsr57]

Bonjour,

Merci pour ces réponses, j'ai posté ce message dans le forum Windev, car je vais développer mon module en Windev.
C'est pour cela que je l'ai posté à cet endroit, pour avoir votre expérience et vos connaissances des fonctions w-langage existante.

Je vais tester vos solutions, et je reviens vous retiens au courant

Bon dev à tous