根据IP地址获得MAC

最新推荐文章于 2020-11-23 10:33:56 发布

TechnoFantasy

最新推荐文章于 2020-11-23 10:33:56 发布

阅读量6.7k

点赞数

分类专栏： Visual Basic 文章标签： string exception function integer system class

本文链接：https://blog.csdn.net/technofantasy/article/details/672323

版权

Visual Basic 专栏收录该内容

24 篇文章 1 订阅

订阅专栏

Imports System
Imports System.Diagnostics

Public Class MacAddress
    Public Function GetMac(ByVal IP As String) As String
        Dim str1 As String = String.Empty
        Try
            Dim str2 As String = String.Empty
            Dim info1 As ProcessStartInfo = New ProcessStartInfo()
            Dim process1 As Process = New Process()

            info1.FileName = "nbtstat"
            info1.RedirectStandardInput = False
            info1.RedirectStandardOutput = True
            info1.Arguments = "-A " + IP
            info1.UseShellExecute = False
            process1 = Process.Start(info1)

Dim num1 As Integer = -1

            While (num1 <= -1)
                num1 = str2.Trim().ToLower().IndexOf("mac address", 0)
                If (num1 > -1) Then
                    Exit While
                End If

                str2 = process1.StandardOutput.ReadLine()
                process1.WaitForExit()
                str1 = str2.Trim()
            End While
        Catch ex As Exception
            Throw ex
        End Try

Return str1
End Function