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