以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样得到U盘的物理序列号？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10243)
--  作者：Avail
--  发布时间：2011/5/26 21:20:00
--  怎样得到U盘的物理序列号？
用foxtable怎样得到U盘的物理序列号？ 销售人员说可以实现。
--  作者：狐狸爸爸
--  发布时间：2011/5/26 23:09:00
--  

看看这个：

http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=1620&replyID=11573&skin=1

 
--  作者：狐狸爸爸
--  发布时间：2011/5/26 23:18:00
--  
补充一下，这个只能读第一个盘，通常也就是硬盘了，foxtable屏蔽了后续的盘，以后开通算了。
--  作者：狐狸爸爸
--  发布时间：2011/5/26 23:31:00
--  

还是你自己搞定吧，添加外部引用：system.management.dll

 

即可用下面的代码列出所有磁盘的型号和物理序列号：

Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
For Each Obj As System.Management.ManagementObject In Wmi.Get
    If Obj("Model") IsNot Nothing Then
        output.show( Obj("Model").ToString)
    End If
    If Obj("Signature") IsNot Nothing Then
        output.show(Obj("Signature").ToString)
    End If
Next
--  作者：lihe60
--  发布时间：2011/5/27 8:19:00
--  
以下是引用狐狸爸爸在2011-5-26 23:31:00的发言：

还是你自己搞定吧，添加外部引用：system.management.dll

 

即可用下面的代码列出所有磁盘的型号和物理序列号：

Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
For Each Obj As System.Management.ManagementObject In Wmi.Get
    If Obj("Model") IsNot Nothing Then
        output.show( Obj("Model").ToString)
    End If
    If Obj("Signature") IsNot Nothing Then
        output.show(Obj("Signature").ToString)
    End If
Next

运行的时候有错误提示。
--  作者：狐狸爸爸
--  发布时间：2011/5/27 8:47:00
--  

注意前面一句话：

 

添加外部引用：system.management.dll
--  作者：lihe60
--  发布时间：2011/5/27 9:26:00
--  
以下是引用狐狸爸爸在2011-5-27 8:47:00的发言：

注意前面一句话：

 

添加外部引用：system.management.dll

找不到system.management.dll在什么地方添加。
--  作者：狐狸爸爸
--  发布时间：2011/5/27 9:27:00
--  

http://help.foxtable.com/topics/1936.htm