主题：[讨论]如何读取局域网内某台电脑的网卡MAC地址及计算机名字？

无法根据ip地址获取计算机名。

获取局域网ip对应mac，如

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("arp -a")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

Dim mc = System.Text.RegularExpressions.Regex.Matches(strRst, "192+\.168\.[0-9]+\.[0-9]+.+?[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}")
For i As Integer = 0 To mc.count -1
    msgbox(mc(i).value)
Next

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("arp -a")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

Dim mc = System.Text.RegularExpressions.Regex.Matches(strRst, "192+\.168\.[0-9]+\.[0-9]+.+?[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}")
For i As Integer = 0 To mc.count -1
    Dim v = mc(i).value
    If v.contains("192.168.0.104") Then
        msgbox(v.replace("192.168.0.104","").trim())
    End If
Next

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("arp -a")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

Dim mc = System.Text.RegularExpressions.Regex.Matches(strRst, "192+\.168\.[0-9]+\.[0-9]+.+?[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}")
For i As Integer = 0 To mc.count -1
    Dim v = mc(i).value
    Dim v1 = v.split(" ")(0)
    If v1 = "192.168.0.104" Then
        msgbox(v.replace(v1,"").trim())
    End If
Next