摘要:
MsgValue = ""Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")'获取硬盘序列号Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", , 48)For Each objItem In colItemsMsgValue = MsgValue & vbCrLf & "硬盘 = " & objItem.SerialNum 阅读全文