Asp.Net获取本地计算机和其他计算机的MAC值的方法

最新推荐文章于 2022-11-05 14:51:09 发布

AppleBBS

最新推荐文章于 2022-11-05 14:51:09 发布

阅读量1.8k

点赞数

分类专栏： .NET 文章标签： asp.net

本文链接：https://blog.csdn.net/AppleBBS/article/details/233808

版权

.NET 专栏收录该内容

63 篇文章 0 订阅

订阅专栏

转自： http://www.guoblog.com/blogview.asp?logID=202

Public Function ValueSepR(ByVal RawString As String, ByVal SepChar As String) As String
        If InStr(1, RawString, SepChar) <> 0 Then
            ValueSepR = Microsoft.VisualBasic.Right(RawString,Len(RawString) - InStr(1, RawString, SepChar))
        Else
            ValueSepR = RawString
        End If
End Function
Public Function GetMac(ByVal IP As String) As String
        Try
            Dim dirResults As String
            Dim psi As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo()
            Dim proc As New System.Diagnostics.Process()
            psi.FileName = "nbtstat"
            psi.RedirectStandardInput = False
            psi.RedirectStandardOutput = True
            psi.Arguments = "-A " & IP
            psi.UseShellExecute = False
            proc = System.Diagnostics.Process.Start(psi)
            Dim x As Integer = -1
            Do Until x > -1
                If dirResults <> Nothing Then
                    x = dirResults.Trim.ToLower.IndexOf("mac address", 0)
                    If x > -1 Then
                        Exit Do
                    End If
                End If
                dirResults = proc.StandardOutput.ReadLine
            Loop
            proc.WaitForExit()
            GetMac = ValueSepR(dirResults.Trim, "=").Trim
        Catch err As Exception
            Response.Write(err.Message & err.StackTrace)
        End Try
End Function