GetMac

[andreihortua]

Hello friends:

I need code to get Mac physical address. I have found this page http://www.elguille.info/colabora/puntoNET/ErickAragon_GetMac.htm

I would be what I need but it has a bug (I think) because it open many times Getmac.exe (Windows command) so it crashes my system.

So please help me debug it or with a new code function.

Thanks.

 

[JohnH]

http://dotnetjunkies.com/WebLog/jkirwan/archive/2004/02/10/6943.aspx

[COLOR=#000000][COLOR=blue]Dim[/COLOR] mc [COLOR=blue]As[/COLOR] [/COLOR][COLOR=#000000]System.Management.ManagementClass
[/COLOR][FONT=Courier New][COLOR=#000000][COLOR=blue]Dim[/COLOR] mo [COLOR=blue]As[/COLOR] [/COLOR][COLOR=#000000]ManagementObject
[/COLOR][/FONT][FONT=Courier New][COLOR=#000000]mc = [COLOR=blue]New[/COLOR] ManagementClass("Win32_NetworkAdapterConfiguration")
[/COLOR][/FONT][FONT=Courier New][COLOR=#000000][COLOR=blue]Dim[/COLOR] moc [COLOR=blue]As[/COLOR] ManagementObjectCollection = mc.GetInstances[/COLOR][COLOR=#000000]()
[/COLOR][/FONT][FONT=Courier New][COLOR=#000000][COLOR=blue]For[/COLOR] [COLOR=blue]Each[/COLOR] mo [COLOR=blue]In[/COLOR] [/COLOR][COLOR=#000000]moc
[/COLOR][/FONT][FONT=Courier New][COLOR=black][COLOR=blue]If[/COLOR] mo.Item("IPEnabled") = [COLOR=blue]True[/COLOR] [/COLOR][COLOR=blue][COLOR=black]Then
[/COLOR][/COLOR][/FONT][FONT=Courier New][COLOR=black]   ListBox1.Items.Add("MAC address " & mo.Item("MacAddress").ToString())
[/COLOR][/FONT][FONT=Courier New][COLOR=black] [COLOR=blue]End[/COLOR] [/COLOR][COLOR=blue][COLOR=black]If
[/COLOR][/COLOR][/FONT][FONT=Courier New][COLOR=black][COLOR=blue]Next[/COLOR][/COLOR][/FONT]

 

[andreihortua]

Where is defined "Management", "ManagementObject"... classes and members ?

 

[JohnH]

Dim mc As System.Management.ManagementClass

You also have to Add Reference to the System.Management.dll (in the .Net tab)