How do I add code to find the serial number of the USB flash drive tha my application is running from?

See more:

VB

VB10

I am trying to add a layer of protection to my software where I can "hard code" each program sold with the serial number of or the free space in bytes available on the flash drive that I sell it on.

Being just a mug programmer using Visual Basic 2010 Express, but a knowledgeable engineer I am selling tutorials using "MS Forms" applications to students. My problem is that students are sharing my applications (copying my programs) with their whole class and reducing my sales.

I need help to write a complete project to get this information.

Thanking you all in anticipation. :-)

What I have tried:

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        


    Public Function GetDriveSerialNumber() As String
        Dim DriveSerial As Integer
        'Create a FileSystemObject object
        Dim fso As Object = CreateObject("Scripting.FileSystemObject")
        Dim Drv As Object = fso.GetDrive(fso.GetDriveName(Application.StartupPath))
        With Drv
            If .IsReady Then
                DriveSerial = .SerialNumber
            Else    '"Drive Not Ready!"
                DriveSerial = -1
            End If
        End With
        Return DriveSerial.ToString("X2")
    End Function

End Class