| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]这些代码如何使用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142775) |
| -- 作者：81538475 -- 发布时间：2019/11/5 23:45:00 -- [求助]这些代码如何使用 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 --------------------------- 确定 --------------------------- |
| -- 作者：有点蓝 -- 发布时间：2019/11/6 8:46:00 -- For Each cmicWmiObj As System.Management.ManagementObject In cmicWmi.Get |
| -- 作者：81538475 -- 发布时间：2019/11/6 14:26:00 -- --------------------------- 版本:2019.10.26.1 --------------------------- 代码执行出错，错误信息： System.Management.ManagementException: 无效查询 在 System.Management.ManagementException.ThrowWithExtendedInfo(ManagementStatus errorCode) 在 System.Management.ManagementObjectCollection.ManagementObjectEnumerator.MoveNext() 在 UserCode.Test() --------------------------- 确定 --------------------------- |
| -- 作者：有点蓝 -- 发布时间：2019/11/6 14:29:00 -- Dim cmicWmi As New System.Management.ManagementObjectSearcher("Select * From Win32_DiskDrive") [此贴子已经被作者于2019/11/6 14:34:28编辑过]
|