VB源程序获取硬盘物理序列号

在VB下，一般要通过VC或者Delphi的强大功能，编写的DLL或者ocx控件，来读取硬盘的序列号。这给VB编程，造成不便。 例子中，通过VB编写的源程序，获取硬盘的物理序列号。 程序在VB6.0+winxp下，测试SATA硬盘，顺利成功。