Aber bei CrystalDiskInfo - siehe das Fenster in #2.hilde$ schrieb:
Microsoft Windows [Version 10.0.19042.928]
(c) Microsoft Corporation. Alle Rechte vorbehalten.
C:\Users\hartm>wmic diskdrive get serialnumber
SerialNumber
MCE7215P0HPKDV
1535F00BCAF4 <== SSD 500 G
1822E140C9A5
WD-WCC4N2RR75EJ
56G455DTC
Z1E4AFZC
C:\Users\hartm>Option Compare Database
Option Explicit
Declare Function GetVolumeInformationA Lib "kernel32" _
(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
Function SerienNummer() As String
Dim SerialNumber As Long
GetVolumeInformationA "C:\", vbNullString, 0, SerialNumber, _
0, 0, vbNullString, 0
'MsgBox SerialNumber
SerienNummer = SerialNumber
Debug.Print SerienNummer ' es kommt: 1892914751
End Function
BOOL GetVolumeInformationA(
LPCSTR lpRootPathName,
LPSTR lpVolumeNameBuffer,
DWORD nVolumeNameSize,
LPDWORD lpVolumeSerialNumber,
LPDWORD lpMaximumComponentLength,
LPDWORD lpFileSystemFlags,
LPSTR lpFileSystemNameBuffer,
DWORD nFileSystemNameSize
);
lpVolumeSerialNumber
Ein Zeiger auf eine Variable, die die Seriennummer des Volumes empfängt.
Dieser Parameter kann NULL sein, wenn die Seriennummer nicht erforderlich ist.
Diese Funktion gibt die Seriennummer des Volumes zurück, die das Betriebssystem
beim Formatieren einer Festplatte zuweist.
Um die Vom Hersteller zugewiesene Seriennummer der Festplatte programmgesteuert
zu erhalten, verwenden Sie die Windows-Verwaltungsinstrumentation
(WMI) Win32_PhysicalMedia Eigenschaft SerialNumber.
==> VOLhilde$ schrieb:
