Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Adresses IP des stations connectées

Adresses IP des stations connectées

4 réponses
Avatar
Teddy
Bonjour,

Je cherche depuis longtemps une solution pour lister les adresses IP des stations connectées aux
ressources d'un serveur ou de ma machine (répertoires partagés, etc) à travers le réseau LAN.

J'ai essayé de faire cela avec Win32_NetworkAdapterConfiguration

Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

J'obtiens tous les détails adresse IP, MAC, info sur la carte réseau, mais RIEN sur les stations
connectées à la mienne à travers un LAN en particulier leur adresse IP.

Comment faire ?
Merci beaucoup pour votre aide si vous connaissez l'emploi de Win32_NetworkAdapterConfiguration.

Ted
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-Claude BELLAMY
Dans le message news: ,
Teddy s'est ainsi exprimé:

Bonjour,

Je cherche depuis longtemps une solution pour lister les adresses IP
des stations connectées aux ressources d'un serveur ou de ma machine
(répertoires partagés, etc) à travers le réseau LAN.
J'ai essayé de faire cela avec Win32_NetworkAdapterConfiguration

Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where
IPEnabled=TRUE")
J'obtiens tous les détails adresse IP, MAC, info sur la carte réseau,
mais RIEN sur les stations connectées à la mienne à travers un LAN en
particulier leur adresse IP.


Comment as-tu créé l'objet "objWMIService" ?
C'est là où tu définis la machine concernée !

set objWMIService= GetObject("winmgmts:{impersonationLevel=impersonate}!//"
& Computer)

La variable computer contient le nom NETBIOS de la machine voulue ...


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*

Avatar
Teddy
L'objet objWMIService était bien entendu créé au préalable avec :
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup,Security)}!" &
xComputer & "rootcimv2")
xComputer désignant ma machine.

La question était donc de lister les machines connectées à la mienne comme on en obtient l'info avec
la commande "netstat -n".

Win32_ServerSession et Win32_PerfRawData_Tcpip_TCP (pour l'équivalent de netstat -n) suggéré plus
haut par Stéphane vont peut-être me servir...

Ted

"Jean-Claude BELLAMY" a écrit dans le message de news:
eh%
Dans le message news: ,
Teddy s'est ainsi exprimé:

Bonjour,

Je cherche depuis longtemps une solution pour lister les adresses IP
des stations connectées aux ressources d'un serveur ou de ma machine
(répertoires partagés, etc) à travers le réseau LAN.
J'ai essayé de faire cela avec Win32_NetworkAdapterConfiguration

Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where
IPEnabled=TRUE")
J'obtiens tous les détails adresse IP, MAC, info sur la carte réseau,
mais RIEN sur les stations connectées à la mienne à travers un LAN en
particulier leur adresse IP.


Comment as-tu créé l'objet "objWMIService" ?
C'est là où tu définis la machine concernée !

set objWMIService= GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer)

La variable computer contient le nom NETBIOS de la machine voulue ...


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*





Avatar
Jean-Claude BELLAMY
Dans le message news:uYLVoq$ ,
Teddy s'est ainsi exprimé:

L'objet objWMIService était bien entendu créé au préalable avec :
Set objWMIService > GetObject("winmgmts:{impersonationLevel=impersonate,(Backup,Security)}!"
& xComputer & "rootcimv2") xComputer désignant ma machine.

La question était donc de lister les machines connectées à la mienne
comme on en obtient l'info avec la commande "netstat -n".


Inspire toi de mon scritp GETIP.VBS, qui donne AUTOMATIQUEMENT la liste de
TOUTES les adr.IP de TOUTES les cartes réseau de TOUS les PC du domaine (ou
workgroup) auquel appartient le PC local.

http://www.bellamyjc.org/fr/vbsdownload.html#getip

C:>getip /?
Récupération d'adresses MAC et IP
JC BELLAMY © 2002
-----------------
Syntaxe :
getip [nom_de_machine]
nom_de_machine : nom NetBIOS de l'ordinateur à analyser
si ce nom est omis -> ordinateur local
si ce nom est "/all" -> scrutation de tout le réseau
exemples :
getip
getip springfield
getip /all




--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*

Avatar
Teddy
J'y vais voir, merci encore !

Ted

"Jean-Claude BELLAMY" a écrit dans le message de news:
u$
Dans le message news:uYLVoq$ ,
Teddy s'est ainsi exprimé:

L'objet objWMIService était bien entendu créé au préalable avec :
Set objWMIService >> GetObject("winmgmts:{impersonationLevel=impersonate,(Backup,Security)}!"
& xComputer & "rootcimv2") xComputer désignant ma machine.

La question était donc de lister les machines connectées à la mienne
comme on en obtient l'info avec la commande "netstat -n".


Inspire toi de mon scritp GETIP.VBS, qui donne AUTOMATIQUEMENT la liste de TOUTES les adr.IP de
TOUTES les cartes réseau de TOUS les PC du domaine (ou workgroup) auquel appartient le PC local.

http://www.bellamyjc.org/fr/vbsdownload.html#getip

C:>getip /?
Récupération d'adresses MAC et IP
JC BELLAMY © 2002
-----------------
Syntaxe :
getip [nom_de_machine]
nom_de_machine : nom NetBIOS de l'ordinateur à analyser
si ce nom est omis -> ordinateur local
si ce nom est "/all" -> scrutation de tout le réseau
exemples :
getip
getip springfield
getip /all




--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*