获取IP与MAC的vbs代码并输出txt文本

在VBScript中，获取本地计算机的IP地址和MAC地址需要借助网络管理和底层硬件访问的功能。以下是一个简单的示例，将结果保存到TXT文件中：

Option Explicit

Dim wshShell, strComputer, strIP, strMAC
Set wshShell = CreateObject("WScript.Shell")

' 获取IP地址
strComputer = "."
Set objNetwork = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2:Win32_NetworkAdapterConfiguration(IPEnabled=True)")
strIP = objNetwork.IPAddress(0)

' 获取MAC地址
strComputer = "." ' 对于本地机，可以省略
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkInterface WHERE PhysicalAdapter = True")
For Each objItem in colItems
    If Not IsNull(objItem.MACAddress) Then
        strMAC = objItem.MACAddress
        Exit For
    End If
Next

' 将结果写入TXT文件
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("ip_mac.txt", True)
file.WriteLine "IP Address: " & strIP
file.WriteLine "MAC Address: " & strMAC
file.Close
wshShell.Run "notepad ip_mac.txt" ' 打开文件供查看

WScript.Echo "IP and MAC information has been saved to ip_mac.txt."
wshShell.Quit

这段脚本首先获取第一个已启用的有IP地址的网络适配器的IP，然后遍历所有的物理网卡查找MAC地址。最后，它会在名为"ip_mac.txt"的文件中记录这两个值，并提示用户打开此文件。