频道栏目
首页 > 程序开发 > 软件开发 > Vb > 正文
VB.NET获取MAC地址
2011-04-14 16:51:44           
收藏   我要投稿

方法一:nbtstat 命令

Public Function GetMac(ByVal IP As String) As String

       Try

            定义输出变量。

            Dim StrMac As String = String.Empty

            Dim Str As String = String.Empty

            定义进程参数。

            Dim Info As New ProcessStartInfo

            Info.FileName = "nbtstat"

            Info.Arguments = "-a " + IP

            Info.UseShellExecute = False

            Info.RedirectStandardInput = False

            Info.RedirectStandardOutput = True

            Info.RedirectStandardError = True

            Info.CreateNoWindow = True

            Info.WindowStyle = ProcessWindowStyle.Hidden

            定义新进程。

            Dim mProcess As New Process

            开始执行操作。

            mProcess = Process.Start(Info)

            无限循环按行读取输出内容。

            While True

                读取一行数据。

                Str = mProcess.StandardOutput.ReadLine()

                mProcess.WaitForExit()

                StrMac = Str.Trim()

                判断是否有 Mac Address字眼。

                If StrMac.ToLower.Contains("mac address") Then

                    Exit While

                Else

                    If StrMac.ToLower.Contains("host not found") Then

                        Exit While

                    End If

                End If

            End While

            返回值。

            Return StrMac

        Catch ex As Exception

            返回错误值。

            Return String.Format("Get Error. 原因:{0}", ex.Message)

        End Try

 

方法2:SendARP 函数

Private Declare Ansi Function SendARP Lib "Iphlpapi.dll" (ByVal dest As Int32, ByVal host As Int32, ByRef mac As Int64, ByRef length As Int32) As Int32

    Private Declare Ansi Function inet_addr Lib "Ws2_32.dll" (ByVal IP As String) As Int32

    Public Function getRemoteMAC(ByVal RemoteIp As String) As String

        Dim Dest As Int32 = inet_addr(RemoteIp)

        Dim Str As String = String.Empty

        Dim StrMac As String = String.Empty

        Try

            Dim MacInfo As New Int64

            Dim Len As Int32 = 6

            Dim Res As Integer = SendARP(Dest, 0, MacInfo, Len)

            Str = Convert.ToString(MacInfo, 16).ToUpper

            If Str.Length = 12 Then

                因为取出来的值是反的,所以要处理下。

                Dim M(5) As String

                M(0) = Str.Substring(10, 2)

                M(1) = Str.Substring(8, 2)

                M(2) = Str.Substring(6, 2)

                M(3) = Str.Substring(4, 2)

                M(4) = Str.Substring(2, 2)

                M(5) = Str.Substring(0, 2)

                StrMac = String.Format("{0}-{1}-{2}-{3}-{4}-{5}", M(0), M(1), M(2), M(3), M(4), M(5))

            Else

                StrMac = "Host not found."

            End If

        Catch ex As Exception

            返回错误值。

            Return String.Format("Get Error. 原因:{0}", ex.Message)

        End Try

        Return StrMac

    End Function

 

方法3:用WMI,先工程-引用 Microsoft WMI Scripting V1.1 Library

Private Sub wmiSoundDeviceInfo()

 

        Dim wmiObjSet As WbemScripting.SWbemObjectSet

        Dim obj As SWbemObject

 

        wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _

        InstancesOf("Win32_Networ

点击复制链接 与好友分享!回本站首页
相关TAG标签 地址
上一篇:VB.NET 判断程序是否运行于开发环境中
下一篇:vb6.0 webbrowser控件做的浏览器,怎样解决ie打开新窗口问题
相关文章
图文推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站