VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Festplatten-Seriennummer auslesen

Gruppe

API

Bereich

System

Thema

Festplatten-Seriennummer auslesen

Problem

Wie kann ich die Seriennummer der Festplatte auslesen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

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

Sub SerienNummer()
  Dim SerialNumber As Long
  GetVolumeInformationA "C:\", vbNullString, 0, SerialNumber, _
    0, 0, vbNullString, 0
  MsgBox SerialNumber
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen API und System