用vb.net怎么获取本机的mac地址？

[liangbinger]

各位老师，请教一个问题：
用vb.net怎么获取本机的mac地址？
要用vb.net写的，谢谢了！

[liangbinger]

在线等待！

[liangbinger]

还有一个问题：
我想用vb.net实现一个功能：
此程序运行在本地机上，如果用户改动本地机的ip地址，就谈出一个对话框。
怎么实现？
此问题解决，另外开帖再给100分

[dxq]

Dim searcher As New ManagementObjectSearcher( _
"SELECT * FROM Win32_NetworkAdapter")
Dim share As ManagementObject

For Each share In searcher.Get()
If share("AdapterTypeId")=0 Then
Console.WriteLine("网卡MAC地址:" & share("MACAddress"))
End If
Next share

没测试过，不知道对不对

[dxq]

需要引用System.Management.dll程序集

[dxq]

上面的好象有错

For Each share In searcher.Get()
If share("AdapterType")="Ethernet 802.3" Then
Console.WriteLine("网卡MAC地址:" & share("MACAddress"))
End If
Next share

share("AdapterTypeId")返回的是一个UInt16，小弟不知道如何对它操作，哪位大侠知道还望告知，小弟在此多谢了

[smoothwood]

需要引用System.Management.dll程序集

using System.Management;
ManagementClass mc = new ManagementClass("Win32_NetworkAdapterConfiguration");
ManagementObjectCollection moc = mc.GetInstances();
foreach(ManagementObject mo in moc)
{
if((bool)mo["IPEnabled"] == true)
Console.WriteLine("MAC address\t{0}", mo["MacAddress"].ToString());
mo.Dispose();
}
}
再给你个有用的资料：
http://www.csdn.net/develop/article/21/21398.shtm

[liangbinger]

smoothwood(I try my best) ( ) 信誉：99
在vb.net中，
imports system.management是错的，没有 management

[Ninputer]

先引用System.Management.dll

Imports System.Management
Public NotInheritable Class NetworkCard

Public Shared ReadOnly Property MACAddress() As String
Get
Dim _ManagementClass As ManagementClass = New ManagementClass("Win32_NetworkAdapter")
Dim _ManagementObjectCollection As ManagementObjectCollection = _ManagementClass.GetInstances
For Each _ManagementObject As ManagementObject In _ManagementObjectCollection
Return _ManagementObject("MACAddress").ToString
Next
Return Nothing
End Get
End Property

Public Shared ReadOnly Property Name() As String
Get
Dim _ManagementClass As ManagementClass = New ManagementClass("Win32_NetworkAdapter")
Dim _ManagementObjectCollection As ManagementObjectCollection = _ManagementClass.GetInstances
For Each _ManagementObject As ManagementObject In _ManagementObjectCollection
Return _ManagementObject("Name").ToString
Next
Return Nothing
End Get
End Property
End Class

[liangbinger]

Ninputer(装配脑袋) ( ) 信誉：85
谢谢阿，我找到System.Management.dll了，按照您说的：
For Each share In hostMac.Get()
TextBox3.Text &= share("MacAddress")
Next
可以显示mac地址，但是重复了很多遍，这是怎么回事？为什么要用循环？

[Ninputer]

因为有的机器有两块以上的网卡呀。

[smoothwood]

TO:liangbinger(凉冰儿)
呵呵，不是没有System.Management
你在使用它的时候应该先引用它，方法是：在‘引用’上右键->然后在弹出框中找到->System.Management->确定
然后你再imports System.Management就行了：）
System.Management是是.NET框架中的命名控件，不存在C#中有，VB.NET没有这个问题：）
祝你好运

[Firestone2003]

我有一个C#版的，测试通过！你可以把他编译成dll，在VB。net里引用
using System;
using System.Diagnostics;
using System.Runtime.InteropServices;

namespace ReadMac
{
/// <summary>
/// Mac 的摘要说明。
/// </summary>
public class Mac
{
public enum NCBCONST
{
NCBNAMSZ =16, /* absolute length of a net name */
MAX_LANA =254, /* lana's in range 0 to MAX_LANA inclusive */
NCBENUM =0x37, /* NCB ENUMERATE LANA NUMBERS */
NRC_GOODRET =0x00, /* good return */
NCBRESET =0x32, /* NCB RESET */
NCBASTAT =0x33, /* NCB ADAPTER STATUS */
NUM_NAMEBUF =30, /* Number of NAME's BUFFER */
}

[StructLayout(LayoutKind.Sequential)]
public struct ADAPTER_STATUS
{
[MarshalAs(UnmanagedType.ByValArray, SizeConst=6)]
public byte[] adapter_address;
public byte rev_major;
public byte reserved0;
public byte adapter_type;
public byte rev_minor;
public ushort duration;
public ushort frmr_recv;
public ushort frmr_xmit;
public ushort iframe_recv_err;
public ushort xmit_aborts;
public uint xmit_success;
public uint recv_success;
public ushort iframe_xmit_err;
public ushort recv_buff_unavail;
public ushort t1_timeouts;
public ushort ti_timeouts;
public uint reserved1;
public ushort free_ncbs;
public ushort max_cfg_ncbs;
public ushort max_ncbs;
public ushort xmit_buf_unavail;
public ushort max_dgram_size;
public ushort pending_sess;
public ushort max_cfg_sess;
public ushort max_sess;
public ushort max_sess_pkt_size;
public ushort name_count;
}

[StructLayout(LayoutKind.Sequential)]
public struct NAME_BUFFER
{
[MarshalAs(UnmanagedType.ByValArray, SizeConst=(int)NCBCONST.NCBNAMSZ)]
public byte[] name;
public byte name_num;
public byte name_flags;
}

[StructLayout(LayoutKind.Sequential)]
public struct NCB
{
public byte ncb_command;
public byte ncb_retcode;
public byte ncb_lsn;
public byte ncb_num;
public IntPtr ncb_buffer;
public ushort ncb_length;
[MarshalAs(UnmanagedType.ByValArray, SizeConst=(int)NCBCONST.NCBNAMSZ)]
public byte[] ncb_callname;
[MarshalAs(UnmanagedType.ByValArray, SizeConst=(int)NCBCONST.NCBNAMSZ)]
public byte[] ncb_name;
public byte ncb_rto;
public byte ncb_sto;
public IntPtr ncb_post;
public byte ncb_lana_num;
public byte ncb_cmd_cplt;
[MarshalAs(UnmanagedType.ByValArray, SizeConst=10)]
public byte[] ncb_reserve;
public IntPtr ncb_event;
}

[StructLayout(LayoutKind.Sequential)]
public struct LANA_ENUM
{
public byte length;
[MarshalAs(UnmanagedType.ByValArray, SizeConst=(int)NCBCONST.MAX_LANA)]
public byte[] lana;
}

[StructLayout(LayoutKind.Auto)]
public struct ASTAT
{
public ADAPTER_STATUS adapt;
[MarshalAs(UnmanagedType.ByValArray, SizeConst=(int)NCBCONST.NUM_NAMEBUF)]
public NAME_BUFFER[] NameBuff;
}
public class Win32API
{
[DllImport("NETAPI32.DLL")]
public static extern char Netbios(ref NCB ncb);
}


public static string GetMacAddress()
{
string addr="";
int cb;
ASTAT adapter;
NCB Ncb=new NCB();
char uRetCode;
LANA_ENUM lenum;

Ncb.ncb_command = (byte)NCBCONST.NCBENUM;
cb = Marshal.SizeOf(typeof(LANA_ENUM));
Ncb.ncb_buffer = Marshal.AllocHGlobal(cb);
Ncb.ncb_length = (ushort)cb;
uRetCode = Win32API.Netbios(ref Ncb);
lenum = (LANA_ENUM)Marshal.PtrToStructure(Ncb.ncb_buffer, typeof(LANA_ENUM));
Marshal.FreeHGlobal(Ncb.ncb_buffer);
if(uRetCode != (short)NCBCONST.NRC_GOODRET)
return "";

for(int i=0; i < lenum.length ;i++)
{
Ncb.ncb_command = (byte)NCBCONST.NCBRESET;
Ncb.ncb_lana_num = lenum.lana[i];
uRetCode = Win32API.Netbios(ref Ncb);
if(uRetCode != (short)NCBCONST.NRC_GOODRET)
return "";

Ncb.ncb_command = (byte)NCBCONST.NCBASTAT;
Ncb.ncb_lana_num = lenum.lana[i];
Ncb.ncb_callname[0]=(byte)'*';
cb = Marshal.SizeOf(typeof(ADAPTER_STATUS)) + Marshal.SizeOf(typeof(NAME_BUFFER))*(int)NCBCONST.NUM_NAMEBUF;
Ncb.ncb_buffer = Marshal.AllocHGlobal(cb);
Ncb.ncb_length = (ushort)cb;
uRetCode = Win32API.Netbios(ref Ncb);
adapter.adapt = (ADAPTER_STATUS)Marshal.PtrToStructure(Ncb.ncb_buffer, typeof(ADAPTER_STATUS));
Marshal.FreeHGlobal(Ncb.ncb_buffer);

if (uRetCode == (short)NCBCONST.NRC_GOODRET)
{
if(i>0)
addr += ":";
addr = string.Format("{0,2:X}{1,2:X}{2,2:X}{3,2:X}{4,2:X}{5,2:X}",
adapter.adapt.adapter_address[0],
adapter.adapt.adapter_address[1],
adapter.adapt.adapter_address[2],
adapter.adapt.adapter_address[3],
adapter.adapt.adapter_address[4],
adapter.adapt.adapter_address[5]);
}
}
return addr.Replace(' ', '0');
}



}
}

[liangbinger]

谢谢各位老师，那个management.dll的问题已经解决。


to Ninputer(装配脑袋) ( )：
我的机器上只有一块网卡啊！为什么还循环这么多遍？

[liangbinger]

Ninputer(装配脑袋) ( ) 信誉：85
怎么能：Imports System.Management？？？？？
我的vb.net中没有system.management.

[Ninputer]

那也可以不用循环，呵呵

[wlwhhy]

Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_BaseBoard")

Dim share As ManagementObject

For Each share In searcher.Get()

Debug.WriteLine("主板制造商:" & share("Manufacturer"))

Debug.WriteLine("型号:" & share("Product"))

Debug.WriteLine("序列号:" & share("SerialNumber"))

Next share
这是主板的
Dim searcher As New ManagementObjectSearcher( _
"SELECT * FROM Win32_NetworkAdapter")
这是网卡什么

都一个样
自已试试啦！！！！

[Ninputer]

要先引用System.Management.dll，你引用了吗？你先学习一下怎样引用吧：
1 在解决方案资源管理器右键单击项目的“引用”图标，然后选择添加引用
2 选择要引用的程序集，COM组件或者项目。如本例就在“.NET”选项卡下选择System.Management.dll

[skyeenet]

Mark