how to get cpu serial number

[Jupiter-SL9]

there is a way to retrieve cpu serial number?
any api for this?

daniel

[Babbalouie]

Here's code to get the HARD DRIVE serial number...

BAS Module:

Private 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

Routine:

Public Function GetHardDriveSerialNumber() As Long

Dim strVolumeBuffer As String
Dim strSysName As String
Dim lngSerialNumber As Long
Dim lngSysFlags As Long
Dim lngComponentLen As Long
Dim lngResult As Long
    
    strVolumeBuffer$ = String$(256, 0)
    strSysName$ = String$(256, 0)
    lngResult = GetVolumeInformation("C:\", strVolumeBuffer$, 255, lngSerialNumber, lngComponentLen, lngSysFlags, strSysName$, 255)
                 
    GetHardDriveSerialNumber = lngSerialNumber

End Function

[hassan]

the only problem with Volume serial number is that when the harddisk formated, the serial number will change.

[amitabh]

Is there anything that remains constant even after a formatting and clean reload of OS