Microsoft Windows [版本 10.0.18363.836]
(c) 2019 Microsoft Corporation。保留所有权利。
C:\foxtable\Development>ipconfig/all
Windows IP 配置
主机名 . . . . . . . . . . . . . : DESKTOP-5CIA55H
主 DNS 后缀 . . . . . . . . . . . :
节点类型 . . . . . . . . . . . . : 混合
IP 路由已启用 . . . . . . . . . . : 否
WINS 代理已启用 . . . . . . . . . : 否
以太网适配器 以太网:
连接特定的 DNS 后缀 . . . . . . . :
描述. . . . . . . . . . . . . . . : Intel(R) Ethernet Connection (7) I219-LM
物理地址. . . . . . . . . . . . . : 00-A8-61-BF-2H-40
DHCP 已启用 . . . . . . . . . . . : 否
自动配置已启用. . . . . . . . . . : 是
本地链接 IPv6 地址. . . . . . . . : fe82::943b:fab6:ba1b:827d%11(首选)
IPv4 地址 . . . . . . . . . . . . : 121.159.4.162(首选)
子网掩码 . . . . . . . . . . . . : 255.255.255.128
默认网关. . . . . . . . . . . . . : 121.159.4.254
DHCPv6 IAID . . . . . . . . . . . : 100718689
DHCPv6 客户端 DUID . . . . . . . : 00-01-00-01-25-F0-1A-68-00-D8-61-EF-2C-40
DNS 服务器 . . . . . . . . . . . : 121.154.142.28
121.154.142.29
TCPIP 上的 NetBIOS . . . . . . . : 已启用
以太网适配器 以太网 2:
连接特定的 DNS 后缀 . . . . . . . :
描述. . . . . . . . . . . . . . . : Virtual Secure Domain Adapter V2
物理地址. . . . . . . . . . . . . : 00-FN-KK-E7-SD-29
DHCP 已启用 . . . . . . . . . . . : 是
自动配置已启用. . . . . . . . . . : 是
IPv4 地址 . . . . . . . . . . . . : 151.162.36.19(首选)
子网掩码 . . . . . . . . . . . . : 255.255.252.0
获得租约的时间 . . . . . . . . . : 2021年9月17日 7:55:55
租约过期的时间 . . . . . . . . . : 2022年9月17日 7:55:55
默认网关. . . . . . . . . . . . . :
DHCP 服务器 . . . . . . . . . . . : 151.162.36.0
TCPIP 上的 NetBIOS . . . . . . . : 已启用
C:\foxtable\Development>exit
=========对于上面的结果，用正则表达式，如果取到
物理地址. . . . . . . . . . . . . : 00-A8-61-BF-2H-40
物理地址. . . . . . . . . . . . . : 00-FN-KK-E7-SD-29
这两行记录所对应的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("ipconfig/all")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()
Dim mc = System.Text.RegularExpressions.Regex.Matches(strRst, " 物理地址. . . . . . . . . . . . . :[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(" 物理地址. . . . . . . . . . . . . :") Then
output.show(v.replace(" 物理地址. . . . . . . . . . . . . :","").trim())
End If
Next
这一段如何进行修改？
加好友 
发短信
Post By：2021/9/17 11:01:00 [显示全部帖子]
