主题：多个硬盘阵列时生成机器码的问题

 试试，红色代码自己改改

Dim Device,objWMIService,USBDevices As object
objWMIService = GetObject("winmgmts:\\.\root\cimv2")
USBDevices = objWMIService.execquery("S elect * From Win32_PhysicalMedia")
For Each Device In USBDevices
    If Device.SerialNumber.Tostring.Trim() > "" Then
        msgbox(Device.SerialNumber.Tostring.Trim)
    End If
Next