HD serial number![Resolved]

[Pirate]

How can I get the serial number of a Hard Drive ?

[Lunatic3]

No .NET way for it. Look here , it has build a class library for it using GetVolumeInfroamtion API

[Pirate]

That's what I was afraid of !
I know it can be done through API easily but ...
that's alright , Thanx for the help Lunatic3 !

[phrozeman]

Found this code, maby usefull? Will display your HD Serial

Imports System.Management
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim bienu As ManagementObjectCollection.ManagementObjectEnumerator = bi.GetEnumerator
        bienu.MoveNext()
        MsgBox(bienu.Current.Properties("SerialNumber").Value.ToString)
    End Sub
End Class

[Lunatic3]

what is 'bi' in the code?

Dim bienu As ManagementObjectCollection.ManagementObjectEnumerator = bi.GetEnumerator

[phrozeman]

Hmmm, lets see

Dim biClass As New ManagementClass("Win32_BIOS")
        Dim bi As ManagementObjectCollection = biClass.GetInstances()
        Dim bienu As ManagementObjectCollection.ManagementObjectEnumerator = bi.GetEnumerator
 
Msgbox("Serial No: " & bienu.Current.Properties("SerialNumber").Value.ToString)

[Pirate]

Originally posted by phrozeman
Hmmm, lets see

Dim biClass As New ManagementClass("Win32_BIOS")
        Dim bi As ManagementObjectCollection = biClass.GetInstances()
        Dim bienu As ManagementObjectCollection.ManagementObjectEnumerator = bi.GetEnumerator
 
Msgbox("Serial No: " & bienu.Current.Properties("SerialNumber").Value.ToString)

This code is throwing error . What's wrong !

[Iouri]

Originally posted by Pirate
This code is throwing error . What's wrong !

I don't have an error but it does not show the SerialNumber.


If it throws an error - did you add the reference to the WMI

It is under NET tab System.Management
Also you have to import
System.Management

[Lunatic3]

For me it throws this error
"index was outside the bounds of the array."

[Pirate]

I did added a reference to "System.Management" .There error says :
Index was outside the bounds of array "

[Pirate]

I can't see any declaration for any array . Maybe the func needs one or ....I dunno really .

[Iouri]

Originally posted by Pirate
I can't see any declaration for any array . Maybe the func needs one or ....I dunno really .

I also had the same message. I added bienu.MoveNext() and message disappeared. I think that this is an array that you get after ennumeration

[Pirate]

I think this code has nothing to do with HD serial .

[Pirate]

anyways , this api call will do it

Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Short, ByRef lpVolumeSerialNumber As Integer, ByRef lpMaximumComponentLength As Integer, ByRef lpFileSystemFlags As Integer, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer
 
    Function GetSerialNumber(ByRef strDrive As String) As Integer
        Dim SerialNum As Integer
        Dim Res As Integer
        Dim Temp1 As String
        Dim Temp2 As String
        '
        Temp1 = New String(Chr(0), 255)
        Temp2 = New String(Chr(0), 255)
        Res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
        GetSerialNumber = SerialNum
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("" & GetSerialNumber("C:\"), MsgBoxStyle.OKOnly, "HD  Serial Number")
    End Sub

[Iouri]

Hard to say. THe whole WMI stuff is very strange. I have manged to write plenty of codes about different devices with WMI. But still cannot get it to the full extent. Check this site. Looks beautiful, but what the heck is that????

[Pirate]

My code returns negative value , (-16579862.....).Is this possible !

[Iouri]

I don't think that HD serial Nmber can be negative. My code does not return anything. I think that we might have different collection returnd by ennumeration. And when we use MoveNext I go to something without number and you are moving to something with negative number. Try to add another MoveNext and see if you will get something different

[phrozeman]

Oke Guys, forgot the movenext line, to go to the first HD
It will work, but don't ask how :P

Imports System.Management
 
Dim biClass As New ManagementClass("Win32_BIOS")
        Dim bi As ManagementObjectCollection = biClass.GetInstances()
        Dim bienu As ManagementObjectCollection.ManagementObjectEnumerator = bi.GetEnumerator
        bienu.MoveNext()
        MsgBox("Serial No: " & bienu.Current.Properties("SerialNumber").Value.ToString)

[Iouri]

It still shows the empty string instead of Number

[phrozeman]

Works fine here

[Iouri]

pirate, what about you.
Can it be that my HD does not have serial #?

[Lunatic3]

With MoveNext it returns "0000000' here, not sure about the number of 0s

Pirate, didnt that class library work fine?

[Pirate]

Originally posted by phrozeman
Oke Guys, forgot the movenext line, to go to the first HD
It will work, but don't ask how :P

Imports System.Management
 
Dim biClass As New ManagementClass("Win32_BIOS")
        Dim bi As ManagementObjectCollection = biClass.GetInstances()
        Dim bienu As ManagementObjectCollection.ManagementObjectEnumerator = bi.GetEnumerator
        bienu.MoveNext()
        MsgBox("Serial No: " & bienu.Current.Properties("SerialNumber").Value.ToString)

It returns value but can this be a serial number(1234567890)????

[Pirate]

Originally posted by Iouri
pirate, what about you.
Can it be that my HD does not have serial #?

Try my api call , to verify you have serial ?

[phrozeman]

Every HD has an serial

[Iouri]

Long Live WMI

[Pirate]

aaaaah forget it .I will go for API better than this mess.
thanx anyways guys .

[frosted]

Originally posted by phrozeman
Oke Guys, forgot the movenext line, to go to the first HD
It will work, but don't ask how :P

Imports System.Management
 
Dim biClass As New ManagementClass("Win32_BIOS")
        Dim bi As ManagementObjectCollection = biClass.GetInstances()
        Dim bienu As ManagementObjectCollection.ManagementObjectEnumerator = bi.GetEnumerator
        bienu.MoveNext()
        MsgBox("Serial No: " & bienu.Current.Properties("SerialNumber").Value.ToString)

Err do you know what you are talking about?

This brings your BIOS Serial #, NOT the HD serial number. (If your BIOS support it, of course.)

No wonder why the parameter is ("Win32_BIOS")

However, I only have the VB6 version to get the *REAL* HD serial number (once again, when it is supported too), not the Volume serial number.

[Winanjaya]

That API code is only used for getting the O/S Serial No., you will get other O/S No. when the HDD formatted..

Regards
Winan

[Lunatic3]

Originally posted by frosted
Err do you know what you are talking about?

This brings your BIOS Serial #, NOT the HD serial number. (If your BIOS support it, of course.)

No wonder why the parameter is ("Win32_BIOS")

However, I only have the VB6 version to get the *REAL* HD serial number (once again, when it is supported too), not the Volume serial number.

Have you read this post?
You should use Win32_PhysicalMedia instead of Win32_BIOS.

[alextyx]

Hi Lunatic3, I'm curious, so I read the post you link, but if I well understand your solution is good only for XP, or I misunderstood your words, or there were some news on this?
Thanks in advance

[Lunatic3]

Some of the WMI methods are not available in all Windows. This is well documented by MS in MSDN library.

[NicoNel2000]

Just curious (and stoopid too I guess..)....
Why would one want to retrieve you hd serial number in an app???

[Winanjaya]

This is for security purpose and the code supports only Win XP.. I suggest to use dongle hardware for securing the app.

[Pirate]

Can we stop this discussion and let this old thread float down.Digging in old threads is very stupid esp when the thread is marked [Resolved] (regardless whether true or not) .