Option Explicit
 
Private Declare Function GetVolumeInformation Lib "kernel32" _
        Alias "GetVolumeInformationA" (ByVal lpRootPathName _
        As String, ByVal pVolumeNameBuffer 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
 
Const MAX_FILENAME_LEN As Long = 256&
 
Private Sub Command1_Click()
    Label1.Caption = SerNum("C")
End Sub
 
Public Function SerNum(Drive$) As Long
    Dim No As Long, s As String * MAX_FILENAME_LEN
 
    Call GetVolumeInformation(Drive & ":\", s, MAX_FILENAME_LEN, _
                              No, 0&, 0&, s, MAX_FILENAME_LEN)
    SerNum = No
End Function
 
Private Sub Form_Load()
    Command1.Caption = "Seriennummer auslesen"
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008