VBS 脚本实现获取网卡 MAC、CPUID 及硬盘序列号的代码

在编程领域中，有时我们需要获取计算机的硬件信息，如网卡 MAC 地址、CPUID 以及硬盘序列号等。通过 VBS 脚本可以方便地实现这些功能。以下是相应的代码实现及详细解释。

获取网卡 MAC 地址。

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objItem In colItems
    MACAddress = objItem.MACAddress
    Exit For
Next

WScript.Echo "网卡 MAC 地址: " & MACAddress

上述代码通过 WMI 服务获取启用 IP 的网络适配器的配置信息，从而得到网卡的 MAC 地址。

接下来，获取 CPUID。

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colCPUs = objWMIService.ExecQuery("Select * From Win32_Processor")

For Each objCPU In colCPUs
    CPUID = objCPU.ProcessorID
    Exit For
Next

WScript.Echo "CPUID: " & CPUID

这段代码同样利用 WMI 服务从 Win32_Processor 类中获取 CPU 的处理器 ID，即 CPUID。

最后，获取硬盘序列号。

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDrive = objFSO.GetDrive(objFSO.GetSpecialFolder(0))
SerialNumber = objDrive.SerialNumber

WScript.Echo "硬盘序列号: " & SerialNumber

这里使用了文件系统对象来获取本地硬盘的序列号。

通过以上 VBS 脚本代码，我们可以方便地获取到计算机的重要硬件信息。这些信息在一些特定的应用场景中，如软件授权、硬件资产管理等方面具有重要的作用。

需要注意的是，获取硬件信息可能受到操作系统权限和安全策略的限制。在实际应用中，请确保您的操作符合相关法律法规和道德规范。VBS 脚本的运行环境也需要正确配置，以确保代码能够正常执行。

希望上述代码和解释能够帮助您理解如何通过 VBS 脚本获取计算机的硬件信息，为您的编程工作带来便利。