'硬盘序列号:
sn=GetObject("winmgmts:").InstancesOf("Win32_PhysicalMedia")("Win32_PhysicalMedia.Tag=""\\\\.\\PHYSICALDRIVE0""").SerialNumber
VBA获取硬盘序列号代码
未经允许不得转载:桔子雨 » VBA获取硬盘序列号代码
'硬盘序列号:
sn=GetObject("winmgmts:").InstancesOf("Win32_PhysicalMedia")("Win32_PhysicalMedia.Tag=""\\\\.\\PHYSICALDRIVE0""").SerialNumber