获取硬盘序列号

 

CODE

Private Sub GetHardDriveSerialNumber()      MsgBox CreateObject("Scripting.FileSystemObject").GetDrive("C:").SerialNumber End Sub

To get a hexadecimal return use...

CODE

Private Sub GetHardDriveSerialNumber()      MsgBox Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:").SerialNumber) End Sub