AW: Festplattennummer einsetzen
06.07.2013 20:41:30
bst
Hi Josef,
Environ("Computername") hat denn überhaupt nichts mit einer Seriennummer einer Festplatte zu tun.
Das bestimmt den Namen den Du Deinem Computer bei der Installation (oder später) verpasst hast.
Einen entsprechenden Aufruf wie Environ("SerialNumber") o.ä. gibt es nicht.
Um die Seriennummer Deiner Festplatte zu bestimmen braucht es mehrere Zeilen Code, siehe obigen Link.
Starte die Routine von Herber von obigem Link. Kopiere Dir die gelieferte Zahl. Hier ist das z.B.:
-1273920244
Damit kannst Du dann folgendes tun. Deine Nummer musst Du natürlich in den Code rein tun.
Du brauchst den ganzen Code von unten außer TestIt. In TestIt siehst Du wie Du den dann benutzen kannst.
cu, Bernd
--
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()
Dim SerialNumber As Long
GetVolumeInformationA "C:\", vbNullString, 0, SerialNumber, _
0, 0, vbNullString, 0
SerienNummer = SerialNumber
End Function
Sub TestIt()
If SerienNummer = -1273920244 Then
MsgBox "OK"
Else
MsgBox "NOT OK"
End If
End Sub