[转帖] 用纯API 取得 硬盘物理唯一序列号 例子

xlonger

用WMI要引用类库文件的。

lotustower

QUOTE:

以下是引用xlonger在2007-3-6 12:00:08的发言：
用WMI要引用类库文件的。

NO !!!

Example: (Not Serial Number !!!!)

Sub DriveInfo()
Dim objWMIService As Object
Dim objItem As Object
Dim strComputer As String
Dim msg As String

strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
     ("Select * from Win32_LogicalDisk", , 48)
For Each objItem In colItems
    Size = objItem.Size / 1024 / 1024 / 1024
    freespace = objItem.freespace / 1024 / 1024
    msg = msg & "Volume - " & objItem.Name & _
        "  Size = " & Format(Size, "0.00 Gb") & _
        "  Free Space = " & Format(freespace, "0.00 Mb") & vbCrLf
Next
MsgBox msg, vbInformation, "Drive Info !"
End Sub

lotustower

WMI

http://club.excelhome.net/viewthread.php?tid=212774&px=0

xq1234

好东西，我弄了好久都没弄出来，不知WIN98能不能通过！

xiaoxue3850

飘过！！

xq1234

还有问题呢:

1.GetHardDiskInfo(numDisk,numType)中,第一个参数numDisk有问题。

   我将我的第一主盘从硬件上设置为第一从盘,numDisk应该设置为1,但设置为1时函数得出的结果确为空""，而在“第一从设备”用GetHardDiskInfo(0,0)确得出了正确结果。

Function GetHardDiskInfo(Optional ByVal numDisk As eumDiskNo = hdPrimaryMaster, Optional ByVal numType As eumInfoType = hdOnlySN) As String

    If GetDiskInfo(numDisk) = 1 Then
        Dim pSerialNumber As String, pModelNumber As String
        pSerialNumber = StrConv(m_DiskInfo.sSerialNumber, vbUnicode)
        pModelNumber = StrConv(m_DiskInfo.sModelNumber, vbUnicode)
       
        Select Case numType
            Case hdOnlyModel  '仅型号
                GetHardDiskInfo = Trim(pModelNumber)
            Case hdOnlySN  '仅系列号
                GetHardDiskInfo = Trim(pSerialNumber)
            Case Else   '型号,系列号
                GetHardDiskInfo = Trim(pModelNumber) & "," & Trim(pSerialNumber)
        End Select
     End If

End Function

整个模块中只有这两处出现了“numDisk”，我的想象中对不同的numDisk应该使用Select Case numDisk来选择执行，但程序中看不出来。

2.在我公司电脑和家里电脑上GetHardDiskInfo(0,0)、GetHardDiskInfo(0,1)、GetHardDiskInfo(0,2)都能得出正确结果，但在我同事机子上确得出空值""，将第一个参数设置为0到3依旧如此。

3.在另一个机子上API被卡巴截住了。

[此贴子已经被作者于2007-4-16 20:49:27编辑过]

yhtwhb

这个不错！

我的这个程序，注册原理，和一楼的差不多！

http://www.hi-dg.com/bbs/viewthread.php?tid=1088427218&page=1&fromuid=94#pid316738

不注册也能用！

[此贴子已经被作者于2007-4-17 19:42:17编辑过]

excel6502

高手处处有，咱们家的最慷慨!!!

popoweb

感谢分享，学习！！！

chanck

真是太感谢了，，，，，，，，，，，，