VB.Net取得服务器的MAC地址

选择字号： 超大 标准 发布时间：2008-9-11 10:32:47 | 作者：admin | 0个评论 | 人浏览

Function CareFGetMac() As String
        Try
            Dim Mac As String
            Dim mc As ManagementClass
            mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
            Dim Moc2 As ManagementObjectCollection = mc.GetInstances
            Dim mo As ManagementObject
            For Each mo In Moc2
                If CBool(mo("IPEnabled")) = True Then
                    Mac += mo("MacAddress").ToString + "@"
                    Mac = mo("MacAddress").ToString
                End If
                'Mac = mo("MacAddress").ToString
            Next
            mo.Dispose()
            mc.Dispose()
            Moc2.Dispose()
            CareFGetMac = Mac
        Catch ex As Exception
            CareFGetMac = "00:E0:4C:77:1F:4A"
        End Try
    End Function

标签：VB.Net  MAC  

猜你喜欢

• Vb.Net自定义DataGird,DataList分页显示代码2008-9-11 10:56:31
• VB.Net取得服务器的IP地址2008-9-11 10:27:26