[VB.NET] Numero serie hard disk

[Abraxas606]

Ciao a tutti,
c'è qualcuno di voi che sà come si riesce ad ottenere il numero seriale del proprio hard disk attraverso VB.NET????

Danke.
Ciao

[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:\")

[Rplus]

interessante questa cosa..è possibile sapere la fonte?

[Abraxas606]

Grazie per la risposta, ma lavoro in ambiente VB.NET, questo non è VB6?

[Mychy]

Non so se puoi riuscire tramite
Enviroment.GetEnviromentVariable("nomevariabile")

[cassano]

bè anche in vb.net si possono usare le api,casomai aggiusti un po il codice per vb.net.

[ans]

Imports System.Management

Dim drive As String = "C"
Dim disk As ManagementObject = New ManagementObject("Win32_Logicaldisk="
+ "\"" + drive + ":\"")

Dim SerialNumber As String =
disk.Properties("Volumeserialnumber").Value.ToStri ng()


That's all.

[oregon]

Ma intendevi avere il numero di serie del costruttore o il volume serial number assegnato dopo una formattazione?

Il primo e' una caratteristica unica del device, l'altro e' un semplice valore modificabile in seguito ad una nuova formattazione.

[Jc_]

Originariamente inviato da ans
Imports System.Management

Dim drive As String = "C"
Dim disk As ManagementObject = New ManagementObject("Win32_Logicaldisk="
+ "\"" + drive + ":\"")

Dim SerialNumber As String =
disk.Properties("Volumeserialnumber").Value.ToStri ng()


That's all.

Per funzionare devi avere Windows Management Interface (WMI) installato nella macchina. WMI può essere installato su Windows 2003,Windows XP e Windows 2000 SP4.0.
Su NT4.0 e precedenti non funziona

[Abraxas606]

Mi servirebbe il numero seriale unico del costruttore, NON quello del volume.

Qualcuno sà ottenerlo?