'Zunächst die benötigten API-Deklarationen
Private Declare Function GetVolumeInformation Lib "kernel32" Alias _
 "GetVolumeInformationA" (ByVal lpRootPathName As String, _
 ByVal lpVolumeNameBuffer As String, _
 ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
 lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
 ByVal lpFileSystemNameBuffer As String, _
 ByVal nFileSystemNameSize As Long) As Long
 
'Die nachfolgende Routine ermittelt anhand des
'Laufwerkbuchstabens die Seriennumer und die Datenträger-
'bezeichnung des Laufwerks
Private Sub LaufwerksInfo(ByVal Drive As String, _
  SerialNo As Long, VolName As String)
 
  'Der Parameter Drive gibt das Laufwerk an
  'z.B. A:, C:, ...
  'SerialNo und VolInfo werden zurückgegeben
 
  Dim sName As String * 255
  VolName = Space$(255)
 
  If Len(Drive) < 2 Then Drive = Drive + ":"
  If Len(Drive) < 3 Then Drive = Drive + "\"
  Call GetVolumeInformation(Left$(Drive, 3), VolName, _
    Len(VolName), SerialNo, 0&, 0&, sName, Len(sName))
 
  If InStr(VolName, Chr$(0)) > 0 Then _
    VolName = Left$(VolName, InStr(VolName, Chr$(0)) - 1)
End Sub
 
Private Sub Form_Load()
  Dim SerialNo As Long
  Dim VolName As String
 
  LaufwerksInfo "c:", SerialNo, VolName
 
MsgBox "Seriennummer von Laufwerk C: " & CStr(SerialNo) & vbNewLine & "Wichtig" & _
  "aufschreiben" 'Die Zeile kannst du anschießen löschen
 
    If CStr(SerialNo) <> "Aufgeschiebene Nummer hier rein" Then 'Die 
    ' Seriennumer von C prüfen
        MsgBox "Kopierschutz", vbInformation, "keine Chance"
       ' End
    End If
 
End Sub