VBA获取硬盘序列号代码如下
'硬盘序列号： sn=GetObject("winmgmts:").InstancesOf("Win32_PhysicalMedia")("Win32_PhysicalMedia.Tag=""\\\\.\\PHYSICALDRIVE0""").SerialNumber
