|
Wie bekomme ich die Seriennummer einer Festplatte heraus?Visual Basic: Festplattennummer
Lösung:
Deklarieren Sie folgende Win32 API - Funktion
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
Hier der entsprechende Code:
Dim strRootPath As String
Dim strVolName As String
Dim lngVolSerialNumber As Long
Dim lngMaxComp As Long
Dim lngFSFlags As Long
Dim strFSName As String
Dim lngDummy as long
strRootPath = "C:\"
strVolName = Space$(256)
lngFSFlags = 0
strFSName = Space$(256)
lngDummy = GetVolumeInformation(strRootPath, strVolName,
Len(strVolName), _
lngVolSerialNumber, lngMaxComp, _
lngFSFlags, strFSName, Len(strFSName))
Die Seriennummer wird von GetVolumeInformation im Feld lngVolSerialNumber zurückgegeben. Sie liegt im dezimalen Format vor und kann mit der Hex() bzw. Hex$() - Funktion umgewandelt werden.
|