qt 获取网卡ipv4_VBS获取计算机名、用户名、IP、MAC

需求：如题，获取系统IPv4地址的Mac 地址，并输出到一个文件中 (多网卡环境)。(摘自我在CSDN回答的问题)

步骤：

1. 直接从环境变量中取计算机名、当前用户名(类似地，用这个方法还可以获取环境变量里其它变量，如：HOMEDRIVE、HOMEPATH、NUMBER_OF_PROCESSORS、WINDIR等，环境变量列表和详情可以在命令提示符里输入 set命令查看，或者计算机属性的高级系统设置里查看和修改)；

2. 通过wmi获取激活状态的网络适配器对象后，读取IPAddress、Description、MACAddress，其中网络适配器的IPAddress属性是一个字符串数组，包含了网卡所有的IPv4以及IPv6地址，可以按实际需求取第一个或者。

Set objWMIService = GetObject("winmgmts://./root/cimv2")'通过wmi获取激活状态的网络适配器对象后，读取IPAddress、Description、MACAddressSet adapters = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")Set wshell = Wscript.CreateObject("Wscript.Shell")'直接从环境变量里取计算机名、当前用户名result ="HOSTNAME: 【" & wshell.ExpandEnvironmentStrings("%COMPUTERNAME%") & _         "】" & vbcrlf & "USER: 【" & wshell.ExpandEnvironmentStrings("%USERNAME%") & "】"For Each adapter in adapters  With adapter    result = result & vbcrlf & vbcrlf & .Description & ":" & _             vbcrlf & "MAC:【" & .MACAddress & "】" & vbcrlf & "IP:【" &  join(.IPAddress, ", ") & "】"  End WithNext'Set fso = CreateObject("scripting.filesystemobject")'Set f=fso.CreateTextFile( "d:\adapters.txt",2,ture)'f.writeline resultmsgbox result