[VB.NET] Numero serie hard disk

[cassano]

con il framework 1.1 mi pare nn ci sia una classe apposita,devi usare le api di windows

Conoscere il numero di serie dell'Hard Disk

Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long

Function GetSerialNumber(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), SerialNum, 0,
0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function

Esempio di utilizzo :
(se voglio il serial number del disco C)
Call MsgBox GetSerialNumber("C:\")