VB如何读取硬盘物理序列号??? TechWeb-技术社区'A3](\.~1]5|
注意:是物理序列号,不是逻辑序列号,对硬盘进行分区或格式化以后逻辑序列号就变了,一点用都没有.

其实是从不同网站上下载得来的,只是一个先入为主,把这份改造了一下而已:) tech.techweb.com.cn*D*Q&i)D6|/}.x2P

N;` a'y e/r:T;y那一份就没仔细看~~~ :e,n8C,^:Q*J8{#H
,U,F p6t1J0g6E
续上: TechWeb-技术社区0X0^ G,E(z7S
%p2~*@;f-\)Z0k.f

+v1_6Y7B1T.j+B#V9wVBScript code4U1a-E h/Y#s

:L'i1]9I)M5B7\3}$P3u0k&V$P4R8}
TechWeb-技术社区4H&T8x/u3]'I
;F ?5G%L7y h*f7Y1h
TechWeb-技术社区'H4J"Y4u8[%Y0W3w
Code highlighting produced by Actipro CodeHighlighter (freeware)程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛 G.E%N5c3J9@-n.N/R0V4[
tech.techweb.com.cn-[0M+X G'r$P'n'q3T
http://www.CodeHighlighter.com/tech.techweb.com.cn;W)W%f!Z%g U%f1z1i
TechWeb-技术社区;d-D7t)?:x

.? L6H0z:^(p0G4D!o+zTechWeb-技术社区
*j2C(d8K0i3mPrivate Function DetectIDE(bIDEDeviceMap As Byte) As String程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛4H4U"c1x*n(M1y

1E/}2y$`7k    If (bIDEDeviceMap And 1) Then
2E!_.S#{-D$f/D%@:[9U7k+^$m)R
        If (bIDEDeviceMap And 16) Then
#])I,i3X8w.N%l6b,L8Ntech.techweb.com.cntech.techweb.com.cn Y-G1j&n3w6V
             DetectIDE = DetectIDE & "ATAPI device is attached to primary controller, drive 0."3h,d M1r4U+U)a3`
TechWeb-技术社区)Y;H9q#G"M7L9i2r;c
        Else,K!S)v'G&W5P

3d R7g7l5Y7i             DetectIDE = DetectIDE & "IDE device is attached to primary controller, drive 0."
-_${4D*?1O$}-h0V4B/J$?tech.techweb.com.cn&N$Q4e/v'`-S
        End If
3u.| g&B#g8d7~0P-Z3Jtech.techweb.com.cn
(m#G,N+K2L'Z4P.F8p4N    End Iftech.techweb.com.cn:d+d#v)Q%D;y+j

#F#a4H+m!k$m    If (bIDEDeviceMap And 2) Then
0f(|#@1G'v4g'e/I.|-\,|:J7N5L#y,I'B B!e$q
        If (bIDEDeviceMap And 32) Thentech.techweb.com.cn&i%]9A c#I4U&V:D+Q(P;E)C
tech.techweb.com.cn:d8Y"A0q(I
             DetectIDE = DetectIDE & "ATAPI device is attached to primary controller, drive 1."TechWeb-技术社区&I"T)s)H6F-k0E&|$y9P'B
tech.techweb.com.cn#N;f8^-E.?%s'o#r&I;X
        Elsetech.techweb.com.cn"B;M)v#Q3b;X X"}
3Q5F&L8V$x8X._
             DetectIDE = DetectIDE & "IDE device is attached to primary controller, drive 1."
*x$K(A)X:r$u%e1Ntech.techweb.com.cn
.p!X4k1M,utech.techweb.com.cn        End Iftech.techweb.com.cn&s$T!f$E7@
程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛7A.|:\6I!`3V1j
    End If+b"E"p5b%k
;[/x$W#c'I+g,L0^
    If (bIDEDeviceMap And 4) Then
$L:J-a0L%{;W6LTechWeb-技术社区程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛:d&J'q2Z7\#F,@#j,}
        If (bIDEDeviceMap And 64) Then
)n7`/e.]:_$D.R8[*l!x;p3x"r9W/T+V
             DetectIDE = DetectIDE & "ATAPI device is attached to secondary controller, drive 0."
5t2}4y-C-l)?:b4L,H程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
(i.^'Y)J2D6x M-f:`        Else&R Q.X/I,K3j/{#?:q$m

/o1r(@-f8].e*j             DetectIDE = DetectIDE & "IDE device is attached to secondary controller, drive 0."
5\/C,{'Y+?:S5?#v&N5H1XTechWeb-技术社区
1[4u [7K9| y,g#y:Z*I*H        End If
*k3_'d#h8J:o;\程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
*G%K&I9N;y2m4e2[    End If
'R$},~#\ o2f9T+G1ZTechWeb-技术社区
#I.[$a!d1Y8Z9T3M;^!Q    If (bIDEDeviceMap And 8) Then
2E,q3W-Z,l1P&i:UTechWeb-技术社区TechWeb-技术社区$\!Y#T*f7\,M
        If (bIDEDeviceMap And 128) Thentech.techweb.com.cn8}([8r*{,W*F'L9W)F#V
'g5l4X%C5A8I's5L
             DetectIDE = DetectIDE & "ATAPI device is attached to secondary controller, drive 1.""|;\8k'A9q(@8U s
tech.techweb.com.cn,y8y.],j @.z%j&_0R
        ElseTechWeb-技术社区#K7J9X%C'I%b7s#o/x1g0n

%B0F$@1@:`"b3c             DetectIDE = DetectIDE & "IDE device is attached to secondary controller, drive 1."(}2F%i$P6o/A2k'}

7C5k$@,F-d6E;^4^8u8H q        End If
)]1U)r0A3|)z$p,Itech.techweb.com.cn.l7_%\"n3^&u5~ Z8P D
    End If6\$j1R&e6e8B&U*g(l7Y
%D*e E:G*g:e'b$z-U.b
End Function
+h4@#w!}7~&G"l5Ztech.techweb.com.cn,W6j9]#D+M#f/_

O!c-f*E:w;}.Qtech.techweb.com.cn
*s,?6E&L }0_9\5ZTechWeb-技术社区Private Function ByteArrToString(inByte() As Byte, ByVal strlen As Integer) As String
,^7c,t([ s)] y)e7y GTechWeb-技术社区
1n!k$H+y8U+u,W'v7hTechWeb-技术社区    Dim I As Integer3l6U-R*~(e8D2@9r$p

5n3c-@&B/R5i#o8h"z    For I = 0 To strlen
4H6u&R$z+f4T-W程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
2[/P+U2`;|4Y2B#S,a        If inByte(I) = 0 Then3x U)I5h-e)d)d t+S

&}*I1A&i/i%e)I ~+V#Qtech.techweb.com.cn           Exit For*S9P(r0e+I"x4a4C't1t

-G:L9e:E9I"m)t;Ftech.techweb.com.cn        End If
%A+Y4r#O&o N程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛7D5W+J)A%U-{%w%?0{
        ByteArrToString = ByteArrToString & Chr(inByte(I))
!D"r0C+k3K;J(V'rTechWeb-技术社区
3E r;c5@ ~+j#N    Next I
%k'\)@5F(Z,q+T9F3`程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
%w w"b;p-G+`3J9o${%rEnd Function
'B G.R"d:c0Z4D ?$D1f6W"z){'e
$B#P-O-{%V+T'b9{ K程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛8m'v)H*j-J0A
,^,F6J7h+Q:W-o
Private Function ByteArrToLong(inByte() As Byte) As DoubleTechWeb-技术社区5n(b4R.?;W6`5I
tech.techweb.com.cn7H9e1m1C/F#C.P+G*A
    Dim I As Integer;S6W8Y9_({8y
程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛"B4d#G5D5R/@0w.B,X
    For I = 0 To 3
/j-P;l)w-Q;k4A4q,Vtech.techweb.com.cn8a1K'x)Y,v8H!B"D ?'C
        ByteArrToLong = ByteArrToLong   CDbl(inByte(I)) * (256 ^ I)
-W!o5g2q5Y8a程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
-t%T1h8~,A#Z2m%}5n:V程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛    Next I
#a*C"{+k0s4G"ATechWeb-技术社区*~%~ q3a9r9K7m1P8t!p
End Function
4Q1Q!q0X%R$C:d$c"v;M*|TechWeb-技术社区
'K0n)A'i6Q.otech.techweb.com.cnPrivate Sub CopyRight()'C8G!k-@#\(|:_:e

*^&}"u:C&Z+W-Btech.techweb.com.cn    'VC原版权代码（再发行时，请注重采用注解的方式，请不要删除的方式侵权，谢谢！）;S#A9P!T.C&y
9K.M!P+m$_9E)X)Z
    '****************************************************************************
8Q&q d/J9V+s8s"o-K7G5j0s-E)X1R5m @
    ' cerr<<endl<<"HDD identifier v1.0 for WIN95/98/Me/NT/2000. written by Lu Lin"<<endltech.techweb.com.cn8r;m+\+j$J/m&p

)~4{*d(p*w3V%f!M2T    ' cerr<<"For more information, please visit Inside Programming: http:'lu0.126.com"<<endl
8a.O)b2S/T&F8i1X6c
;j6M'@$i6C0},T$T)_2s程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛    ' cerr<<"2000.11.3"<<endl<<endltech.techweb.com.cn'L6c4V(n&c0k;L1S

"W8A'b3d.g9\)DTechWeb-技术社区    '****************************************************************************#|;T%`;l3_!x,q'z

6a,E8X$H6Q&j&F:{!v)~    Dim StrMsg As String6J/@+w*o:B5@0{

+l:G$S+\7R$\0q3Z:t    StrMsg = StrMsg & "直接从RING3调用API DeviceIoControl()来获取硬盘信息的VB程序 "
2H4c*X1h9?6ttech.techweb.com.cn
!g&n1x-?8y'c    StrMsg = StrMsg & vbCrLf & "VC源作板权信息如下："TechWeb-技术社区/d&W$f%O;F6O
tech.techweb.com.cn5R,y.T(Q"u.h:`6^
    StrMsg = StrMsg & vbCrLf & "***********************************************************"tech.techweb.com.cn5C!Z*b#N%w7e1[%@
3f&|#r6]+A%O:i1`
    StrMsg = StrMsg & vbCrLf & "HDD identifier v1.0 for WIN95/98/Me/NT/2000. written by Lu Lin"
g:J9y;m-Z(p `1~&z:e6v"\:l%H!?!L;M$E3g
    StrMsg = StrMsg & vbCrLf & "For more information, please visit Inside Programming: http://lu0.126.com"TechWeb-技术社区&}*S,w1c!j+v9~%K

6}!u+V#a.@5x&w    StrMsg = StrMsg & vbCrLf & "2000.11.3"
;?:l-w;A'N*D-T+R2V程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛tech.techweb.com.cn'd5y B:V5t$v8V6|
    StrMsg = StrMsg & vbCrLf & "***********************************************************"程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛'A8d6y,r(R l9r$q
TechWeb-技术社区2X,L-S'i;P6b8C;^
    StrMsg = StrMsg & vbCrLf & "VB程序编制：BARDO";w.J6c"Y-m/@ u!]

"n/h4u'?0~6W J8I*f    StrMsg = StrMsg & vbCrLf & "网站：东方热讯：http://www.easthot.net"7f&S%i#M/^(O!f

7a8N6a8v2x:J2_%h    StrMsg = StrMsg & vbCrLf & "邮件：sales@easthot.net" i!x;s,S.Y
1s'? d&H-j
    StrMsg = StrMsg & vbCrLf & "2003.01.23"
#h&I8K1c"j+E1P%[程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
%L/l"^'r"R)h1?tech.techweb.com.cn    MsgBox StrMsgtech.techweb.com.cn9G)N9_7T+b7R9u3N*g0^1E
!h4d.e9W-~9O!C9X;q5p4w
End Sub
(X!~#h1D;L:p%y&o#B6WTechWeb-技术社区
)C1u,q.j6p%g
9^(s&`-n/@7q/T程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
'?,k3g:J6k4|:_4h4o(tSub ChangeByteOrder(szString() As Byte, uscStrSize As Long)
,E.U S#Y2^3R$A0j'T8|2x程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
)k.i'}8a"x5N    Dim I As Longtech.techweb.com.cn*M-t%F;i-W,T

,z+D&O'f7n;z2t    Dim Temp As String
:Z0[ U!h;y6y2w4]TechWeb-技术社区
6\8`3`/X3` t8R1s4y&l程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛     For I = 0 To uscStrSize - 1 Step 2
.k.P x8P6X$o9h
(@8@&`%A8y9E.Wtech.techweb.com.cn        Temp = szString(I)
4G"i)_+B'J1n*e;Ntech.techweb.com.cn6R;Y8_6l&T#m9l"}*^$L
        szString(I) = szString(I   1)
1s*W+c([*T'aTechWeb-技术社区8@+W"H7q;R'g.d-W:h
        szString(I   1) = Temp
-k%E&?-G2r.^7?,`8A!h程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛'x"E1H9Q3^
     Next I
,^*u:o,t9f程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
(F,D4b0k u s)LTechWeb-技术社区End Sub3i-P:k(e1q
程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛(]!f2r"B-l3b,Z3~
Private Function hdid9x() As String
.E6U*U!P't0U/m(^"K
5v:D-z(^+\*R3@4{TechWeb-技术社区tech.techweb.com.cn.Y8w&`;D%i+h3U

2^-\3~-\)K&W:G&stech.techweb.com.cn'We start in 95/98/Me:f$r8C0s4H%{"~5^;X
-q8F-q$N1l9U
h = CreateFile("\\.\Smartvsd", 0, 0, 0, CREATE_NEW, 0, 0)TechWeb-技术社区0J,K)k4G;r#K%E%q9H#f

;B&c:N3N7@程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛If h = 0 Then1X3_(@8^;}
&y)e)F Y2?,c-I T
    hdid9x = "open smartvsd.vxd failed"2p8f2h(P:]"i'S'X6\

4y;o4`-t/F程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛    Exit FunctionTechWeb-技术社区#e0j4c,b5M)~7A
+L8V.?*P6m B-f4u%J
End If
0g3x-n"^,v程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
.N6_8~2I$z1f#P.T9E"^$YTechWeb-技术社区+N-D&L-V.?;_%n'}

#o%c1w,B:JTechWeb-技术社区Dim olp As OVERLAPPED
;R1S9H,M7y*J
#n B$\/p(N w1?.W"tTechWeb-技术社区Dim lRet As Longtech.techweb.com.cn*Y*z+Q!q&E:?(r6f9w
程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛 H(b4F&p,f
lRet = DeviceIoControl(h, DFP_GET_VERSION, ByVal 0&, 0, vers, Len(vers), ByVal I, olp)*_1D+Y;P'P,`8s

%j0V;t2{2|:}:[4w#@If lRet = 0 Then:w;s6[6C'I-_

!h:_(T(S+\&@(d#Q        hdid9x = "DeviceIoControl failed:DFP_GET_VERSION"程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛%z:s8W:G-v6W$B1V

8E,D$z+e;c;G        CloseHandle (h)tech.techweb.com.cn7@:j*Z5I"w)e&w

.|%~,j3U;r*A:`"h        Exit FunctionTechWeb-技术社区/b&{:h2@;W8V$T1`
TechWeb-技术社区!P!v5t%C"m3H6I
End If
#}6n:t-v5{$m2a+?5G/G"X3e9U"v(O/M5z(z5^"p
tech.techweb.com.cn(h;j"r6V%t9L/e7P/r/w
#E7z;h6?-@'M,E1D6p%n7Z
'If IDE identify command not supported, failstech.techweb.com.cn g;F/R9`4}&p-R%S

(n.I#X;G,K;J:mtech.techweb.com.cnIf (vers.fCapabilities And 1) <> 1 Then
'H1_+D0d5@&Mtech.techweb.com.cn/\)E,J;X/q7^0g1O"V,{
    hdid9x = "Error: IDE identify command not supported."
!l:x5V.T1w/A*^
4q3g.T*a Y/c!s(sTechWeb-技术社区    CloseHandle (h)1l,a2E!M.P.n9R+` B
1@#D9d7r*m9m6K9B
    Exit Functiontech.techweb.com.cn8@9{6{4V0R/r9b,b#O/d O3~
9p"Y+n(|0z8x/j"V
End If
2y.A$^0f3s$q0F9]1y9\程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛)Q3C"T;U j5h4|*|(r6C
程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛*X0r,\3S:s+m-A$r1j

*A)d%B h4p2Y6h/P/\程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛'Display IDE drive number detectedtech.techweb.com.cn*c*B%G5E(y!I
6V%c8X"}%X)}#\ r!C4G
Dim sPreOutStr As String
3K0R/O c(@*YTechWeb-技术社区
5c6_$c(?,k5D0y*l程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛sPreOutStr = DetectIDE(vers.bIDEDeviceMap)
6w9K ?1z3n3x!o;D;y,H
6~0[9r)]9E&Hhdid9x = sPreOutStr
3b)Q.v2L:e"T!yTechWeb-技术社区
1b-P4N6a-`2p6^9]tech.techweb.com.cn
N2L$A1^9{.w"Jtech.techweb.com.cn5H!h,W/A"x,h
'Identify the IDE drives
#U4];n1l!n5g"Z Y5GTechWeb-技术社区tech.techweb.com.cn"f0o/}2[,l8~9[(a
For J = 0 To 3-m1[+F0Z9q*|

6O8f"]/q.M;C.['Y,E;E6[    Dim phdinfo As TIDSECTOR,W'F+d)j$p)K3G,b
程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛"^$e1}2P W*?!E9h#r1d:p
    Dim S(40) As Byte
1P4o;S%j5l;@TechWeb-技术社区tech.techweb.com.cn5?"F;D/A"l0p"u
    2s'g4G/U$V e

;o7`+?2a9_5q:W"D5w#Htech.techweb.com.cn    If (J And 1) = 1 Then-n+j'f9U5J)m-^

9l%F4k6j6F9u%G&`tech.techweb.com.cn        in_data.irDriveRegs.bDriveHeadReg = &HB0
#i"?2Z'b3]TechWeb-技术社区
$w5i*O3l)n'x:i'@    Else程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛+H0W#a(a&| q3e:U

!|)E%~*_'h7o        in_data.irDriveRegs.bDriveHeadReg = &HA0tech.techweb.com.cn,S5j4H,r0G4?
TechWeb-技术社区'k"O0`4A's-a
    End If
;_,i3|%^4y&eTechWeb-技术社区'a-\'v3R0P.w;y
    If (vers.fCapabilities And (16 \ (2 ^ J))) = (16 \ (2 ^ J)) Thentech.techweb.com.cn8m'Y)}5|&j&u$e+@:p8E-N

1X'o8[,?.e程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛        'We don't detect a ATAPI device.7h5E8o.w/r

5P;F3M7y:x%p*s*r$N/L%g程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛        hdid9x = "Drive " & CStr(J   1) & " is a ATAPI device, we don't detect it"
9z!K*B"{1N:p1r4Ctech.techweb.com.cn-j'u+r.D2h H1p.p
    Else
)f7o8y0_3d0X _6G&p#i程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛2p(a-`5s9A1n2k'B%`
          in_data.irDriveRegs.bCommandReg = &HEC
2o6w$H:f+y*v,Z3K!V+f8l P%G
          in_data.bDriveNumber = Jtech.techweb.com.cn*g2A#l,F;O+q
tech.techweb.com.cn.G.@&s(S*z'c,g,N9c5m
          in_data.irDriveRegs.bSectorCountReg = 1
-V/c6g;_+?:D2|8h9I8^TechWeb-技术社区
:t8r9H!Q)B8Y/N          in_data.irDriveRegs.bSectorNumberReg = 1TechWeb-技术社区'k%^5I#Q1T!q+U
程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛:T1P4P;p.M2g8[2q.C"P1B
          in_data.cBufferSize = 512-E.K+\"~0f
tech.techweb.com.cn ?;z8@%b)p2n
         
+}2Z4J;H,E:T"|0l"CTechWeb-技术社区
3j:[)B/B7S&G!J程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛          lRet = DeviceIoControl(h, DFP_RECEIVE_DRIVE_DATA, in_data, Len(in_data), out_data, Len(out_data), ByVal I, olp))U7m;b"e-i9M ^/C e

3o5v h4a)e'S$G7p+G4htech.techweb.com.cn         
2h%P3L8v)q$v-O:[tech.techweb.com.cn/p-T8~-y"t.H%O
          If lRet = 0 Then)u {+A;l8{0h#u

0k.a,A&n%D&A#V              hdid9x = "DeviceIoControl failed:DFP_RECEIVE_DRIVE_DATA"!d6?6i {*X%j9c7E4Z
/t!f8J8B-Y,`+D N
              CloseHandle (h)程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛.J$D(`&H6H"f&[#{#r8i

5l+s!M2T8B9C-XTechWeb-技术社区              Exit Function*~/E:z1p/|9Y!w+h(I
#\/t6A/\+}:F*r8d4e
          End Iftech.techweb.com.cn'p$l8S2x/w"W,h&u
/O6T7m C*[/K)j(X
          程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛:u6[#l+o:R#C2D8F,H#Q.P

%{9F0S*R"O,x,~TechWeb-技术社区          Dim StrOut As Stringtech.techweb.com.cn/W$m(|/p/@1D
TechWeb-技术社区%P.l(g,x*T8Q)q$v
          tech.techweb.com.cn ?)u1A2q3R
9L,]/}%S/_(w0n&u
          CopyMemory phdinfo, out_data.bBuffer(0), Len(phdinfo)*d3E$W#h!K {,S

8k4{,m!x1k,\TechWeb-技术社区         
4S0S!|%Q'[!k&D){-}
%t&Y4p"G;jtech.techweb.com.cn          CopyMemory S(0), phdinfo.sModelNumber(0), 40
8c,`+J-p"[程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛
0_6n-i$h%~          S(40) = 0;R2`,r$Z8Y(G2f

0r+o/c7z7n$r!n+S2a7c          ChangeByteOrder S, 40
0t/n:R'D0H6R1?"D7R
.{6Y5S;K&b+E+B6\ t          3C,j8h4M2T9g9E9l
tech.techweb.com.cn(?7S;N;A(U-j6p
          StrOut = ByteArrToString(S, 40)$c-^7_;F6K2d,X-u6D(Q${

*w,G.A3C(o1c;e)ctech.techweb.com.cn          $f6b#_9G$E*t1~"C&F7o+I
程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛,h H1s*g(u5_/l#b
          hdid9x = hdid9x & vbCrLf & "Module Number:" & StrOut
,G-g*Q*I-|0|$I5e8u$Vtech.techweb.com.cn)p%s*b0v2U;}
          CopyMemory S(0), phdinfo.sFirmwareRev(0), 8tech.techweb.com.cn0A4x0a#A&a8G7n0^!g:^3y
tech.techweb.com.cn$L#y0x9Y+d$O
          S(8) = 0tech.techweb.com.cn&X!m"b-|.m

(B;V0{*R!t:A9~.H          ChangeByteOrder S, 8
$l3s0N#E:^!C:N:Z
+R:a!~"j*B6u7z*K8r!pTechWeb-技术社区          *f-S*b0`*S

'A2{#@7_&M'v%d!m"k          StrOut = ByteArrToString(S, 8)
2t*~7i9o0btech.techweb.com.cn)C*~*Y0^4T+F3J K L
          )g*~"[1n)m&V6[1y+H
7k2C2U;H4a
          hdid9x = hdid9x & vbCrLf & "Firmware rev:" & StrOut%m/h2C.x2n&S:a)K

"p9V2i/T*v1a+D(D$q$STechWeb-技术社区          CopyMemory S(0), phdinfo.sSerialNumber(0), 20(S(B2B%K7Q

$]9n8Q#E:P/T2D          S(20) = 0
&t%Q3e1`,o#btech.techweb.com.cn!y&J"J6z7m/E%_*T
          ChangeByteOrder S, 20
.L1{.T,u3Itech.techweb.com.cn;j)K9F8j$b5F-a8Y0{"o
         
8v'S8U+D,T"q,B.N9X)@#O(K'n,U;Y x
          StrOut = ByteArrToString(S, 20)
'^ z$[$|)I9z:C#E/uTechWeb-技术社区TechWeb-技术社区'y7m%q:Z"e r&r-`3u2h
          tech.techweb.com.cn;]+c:e!p*`'D.b*x*W ~
8{ |:\!Y/]'O7R+[-e
          hdid9x = hdid9x & vbCrLf & "Serial Number:" & StrOut9d)b$l(D"Y*m.p.Z _
0u+h%?1t-P!y/f
          TechWeb-技术社区7E7G"G:b)D%x,J3C

.i p0p%J5D(Q"t          CopyMemory S(0), phdinfo.ulTotalAddressableSectors(0), 4程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛&x#k.|4C9e)d
TechWeb-技术社区;F,N8^3}"l;w l;e7X
          +Z-`$L2d8k
TechWeb-技术社区7C;L&B$Q8B0s(D$c*`4g9D
          S(5) = 0tech.techweb.com.cn7\*O(Y0T+J%J,`4w;F6l+Y

)q$v9E#R'T)bTechWeb-技术社区          Dim dblStrOut As Double
9g/I!r&b!Z D#E:H%i9`;T7m*_tech.techweb.com.cntech.techweb.com.cn7H3Z&p*p.]0M,|#~,e
          dblStrOut = ByteArrToLong(S)2d7n8v#y$}3Y.I&x

5b-g k;_0q*D$_!]          hdid9x = hdid9x & vbCrLf & "Capacity:" & dblStrOut / 2 / 1024 & "M"tech.techweb.com.cn!G#b |6X8d
tech.techweb.com.cn'@'V"P(b Y*K
      End If
A r/d1c!K*Q%Q.y+T
/{;R'O3Z,h(JTechWeb-技术社区Next J
'r,m0e d'c1y6Z%Wtech.techweb.com.cn9O/P7C0b n#c$Q

6k7K,?4K)E程序开发，操作系统，服务器，源码下载，Linux,Unix,BSD,PHP,Apach,asp,下载,源码,黑客,安全,技术社区,技术论坛+o%C9\3c4f*P'Q!f,U/b8\
'Close handle before quit
.k:I(\+F"r;O&{
"^4\&U$[/jTechWeb-技术社区CloseHandle (h),y%|:\0J0u$@:L7M,w
tech.techweb.com.cn+^:b$u8L;a5z
'CopyRight%O!e4U$K;[$Y'u-X1v
*z3G9P4G+Q$~;B)D
;_9?8`-@0i

$i2H0R9^5Z#eEnd Function

用WMI

VBScript code
Option Explicit
'引用：Microsoft WMI Scripting Library
Private Sub Form_Load()
  Dim DriveSerialsNumer$, d As Object, DiskDriveSet As Object
  Set DiskDriveSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                                InstancesOf("Win32_DiskDrive")
  
  For Each d In DiskDriveSet
    DriveSerialsNumer$ = d.Model
Debug.Print DriveSerialsNumer$
    If Len(DriveSerialsNumer) = 0 Then MsgBox "读取错误！", 48, "提示"
    Exit For
  Next
        
  Set d = Nothing
  Set DiskDriveSet = Nothing
End Sub

不过程序好像有点bug
GetHDID(StrHdId   As   String)是不是应该定义为GetHDID(ByRef   StrHdId   As   String)
hdid9x、hdidnt的定义也一样要按地址传递，不然获得不到传递的参数。

问题不在GetHDID(StrHdId   As   String)这一句,在Private   Function   hdidnt(StrHdId   As   String)   As   String里;
只要在StrHdId   =   ByteArrToString(s,   20)下面加上返回值就可以了:
hdidnt=trim(StrHdId)