How to get Hard disc serial number in VB 6.0

         Every computer equipment has single and unique manufacture code by which we can identify computer.It is mostly used to prevent pirated sales of license of application.   Here we will learn to get hard disc serial code using vb 6.0.

Here is Function which returns serial number of HDD.

     Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long

          Dim fso As Object, Drv As Object

          'Create a FileSystemObject object

          Set fso = CreateObject("Scripting.FileSystemObject")

         

          'Assign the current drive letter if not specified

          If DriveLetter <> "" Then

              Set Drv = fso.GetDrive(DriveLetter)

          Else

              Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))

          End If

     

          With Drv

              If .IsReady Then

                  DriveSerial = Abs(.SerialNumber)

              Else    '"Drive Not Ready!"

                  DriveSerial = -1

              End If

          End With

         

          'Clean up

          Set Drv = Nothing

          Set fso = Nothing

         

          GetDriveSerialNumber = DriveSerial

      End Function

Private Sub Command1_Click()

     MsgBox " Drive serial number for " & Left(App.Path, 1) & ": " & GetDriveSerialNumber

End Sub

New we can convert serial to hex value for more security and compare with value we have already saved in variable.

Dim serial as string

Serial = “0054DRF000”

If serial  <> hex$(GetDriveSerialNumber then)

                Msgbox(“Invalid License”)

End

Endif

We simply call function and compare it  to startup of application if serial can not match vith stored variable value then exit program.