Dim cmicWmi As New System.Management.ManagementObjectSearcher("SE\ECT * FROM Win32_DiskDrive")
Dim diskId As String '数字ID
Dim diskSerialNumber As String '这个我们暂且称其为序列号码
Dim diskModel As String '序列号
For Each cmicWmiObj As ManagementObject In cmicWmi.Get
diskId = cmicWmiObj("signature")
diskSerialNumber = cmicWmiObj("serialnumber")
diskModel = cmicWmiObj("Model")
Next
网上看到的vb.net的代码。但是不知道如何使用，用起来会报错
---------------------------
错误
---------------------------
编译错误:未定义类型“ManagementObject”。
错误代码：For Each cmicWmiObj As ManagementObject In cmicWmi.Get
---------------------------
确定
---------------------------
加好友 
发短信
Post By：2019/11/5 23:45:00 [只看该作者]
