Discussion :

[koneab73]

Bonjour à tous et à toutes,

Je sais que la fonction netadressemac() permet de récupérer l'adresse MAC d'un poste. Mais là où se trouve mon problème c'est que j'ai conçu mon appli en Client/serveur et à l'ouverture sur chaque poste client, je voudrais récupérer l'adresse MAC du poste serveur et la comparer. malheureusement à l'exécution de ma fonction sur chaque poste client c'est plutôt l'adresse MAC du poste client qui est ramenée et non celle du serveur.

Comment procéder???

je vous saurais très gré de bien vouloir m'aider, merci d'avance à vous

[PhilDeDakar]

Bonsoir
vous devriez vérifier avec WMI en utilisant la classe Win32_NetworkAdapter

voir https://msdn.microsoft.com/en-us/library/aa394216.aspx
et un exemple parmi d'autre http://depot.pcsoft.fr/resource.awp?...e-fonction-wmi

[koneab73]

Merci pour l'aide, je voulais plutôt une synthaxe du genre:

<Résultat> = netadressemac("le lien du serveur","Position")

est_ce possible?

[jurassic pork]

hello,
tu peux essayer un ping suivi par un arp -a en utilisant ma classe cConsole (classe+exemple disponible ici, dernière version ici)

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
MaConsole est un cConsole
AdresseIpServeur est une chaîne = "192.168.0.3"
MaConsole:SetCmd("ping  -n 1    " + AdresseIpServeur)
MaConsole:ExécuterCmd()
MaConsole:SetCmd("arp -a")
MaConsole:ExécuterCmd()
Resultat est une chaîne = MaConsole:SortieAnsi()
Trace(Resultat)
AdresseMac est une chaîne = ""
VérifieExpressionRégulière(Resultat,".*" + AdresseIpServeur + "[ ]+([0-9a-f\-]+).*",AdresseMac)
Trace("Adresse Mac de " + AdresseIpServeur + " : " + AdresseMac)

Par le WMI c'est faisable aussi sur un ordinateur distant mais il faut que celui-ci autorise les connexions WMI par utilisateur ce qui est plus compliqué à paramètrer

Edit : Oops je viens de voir qu'il existe une fonction Windev qui fait cela : NetIpVersMac

exemple :

Code :

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

1
2
3
 
AdresseIpServeur est une chaîne = "192.168.0.3"
Trace("NetIpVersMac : ",NetIPVersMAC(AdresseIpServeur))

Ami calmant, J.P

[koneab73]

Merci beaucoup pour le code, je vais essayer et je vous fais un retour

[koneab73]

Merci beaucoup, j'ai essayé et ca marche bien, mille merci...
je remerci egalement tout ceux qui m'ont lu

à bientôt