Hard Drive

[scorpion53061]

There is a unique identifying number of each hard drive. There is suppose to
be a way of picking up that number. Does anyone hear remeber how to do that?

[Herfried K. Wagner [MVP]]

* "scorpion53061" <sc****************************@yahoo.com> scripsit:

There is a unique identifying number of each hard drive. There is suppose to
be a way of picking up that number. Does anyone hear remeber how to do that?

AFAIK it's not a unique number, but you can determine the
'VolumeSerialNumber' (a string) using WMI:

Add a reference to "System.Management.dll":

\\\
Dim disk As New ManagementObject( _
"Win32_LogicalDisk.DeviceID=""C:""" _
)
Dim diskProperty As PropertyData
For Each diskProperty In disk.Properties
Console.WriteLine( _
"{0} = {1}", _
diskProperty.Name, _
diskProperty.Value _
)
Next diskProperty
///

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[scorpion53061]

Thanks herfried........I used to remeber.... :(

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:bo*************@ID-208219.news.uni-berlin.de...

* "scorpion53061" <sc****************************@yahoo.com> scripsit:

There is a unique identifying number of each hard drive. There is suppose to be a way of picking up that number. Does anyone hear remeber how to do

that?
AFAIK it's not a unique number, but you can determine the
'VolumeSerialNumber' (a string) using WMI:

Add a reference to "System.Management.dll":

\\\
Dim disk As New ManagementObject( _
"Win32_LogicalDisk.DeviceID=""C:""" _
)
Dim diskProperty As PropertyData
For Each diskProperty In disk.Properties
Console.WriteLine( _
"{0} = {1}", _
diskProperty.Name, _
diskProperty.Value _
)
Next diskProperty
///

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>