HD serial number![Resolved]

Printable View

Feb 14th, 2003, 02:22 PM
Pirate

HD serial number![Resolved]

How can I get the serial number of a Hard Drive ?
Feb 14th, 2003, 04:24 PM
Lunatic3

No .NET way for it. Look here , it has build a class library for it using GetVolumeInfroamtion API
Feb 14th, 2003, 04:29 PM
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 !

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

VB Code:

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

what is 'bi' in the code?

VB Code:

Dim bienu As ManagementObjectCollection.ManagementObjectEnumerator = bi.GetEnumerator

Hmmm, lets see :D

VB Code:

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)

Quote:

Originally posted by phrozeman
Hmmm, lets see :D

VB Code:

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 !:rolleyes:

Feb 16th, 2003, 12:08 PM
Iouri

Quote:

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

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
Feb 16th, 2003, 12:11 PM
Lunatic3

For me it throws this error
"index was outside the bounds of the array."
Feb 16th, 2003, 12:11 PM
Pirate

I did added a reference to "System.Management" .There error says :
Index was outside the bounds of array "
Feb 16th, 2003, 12:14 PM
Pirate

I can't see any declaration for any array . Maybe the func needs one or ....I dunno really .:confused:
Feb 16th, 2003, 12:21 PM
Iouri

Quote:

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

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
Feb 16th, 2003, 12:26 PM
Pirate

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

anyways , this api call will do it

VB Code:

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

Feb 16th, 2003, 12:34 PM
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????:rolleyes:
Feb 16th, 2003, 12:38 PM
Pirate

My code returns negative value , (-16579862.....).Is this possible !:rolleyes:
Feb 16th, 2003, 12:43 PM
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

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

VB Code:

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)

Feb 16th, 2003, 02:35 PM
Iouri

It still shows the empty string instead of Number
Feb 16th, 2003, 02:40 PM
phrozeman

Works fine here
Feb 16th, 2003, 02:43 PM
Iouri

pirate, what about you.
Can it be that my HD does not have serial #?
Feb 16th, 2003, 02:55 PM
Lunatic3

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

Pirate, didnt that class library work fine?

Quote:

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

VB Code:

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)????

Feb 16th, 2003, 10:10 PM
Pirate

Quote:

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 ?
Feb 17th, 2003, 03:26 AM
phrozeman

Every HD has an serial
Feb 17th, 2003, 10:53 AM
Iouri

Long Live WMI:mad:
Feb 17th, 2003, 02:24 PM
Pirate

aaaaah forget it .I will go for API better than this mess.
thanx anyways guys .:cool:
Aug 30th, 2004, 12:35 PM
frosted
Quote:
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

VB Code:

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") :ehh:

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.
Aug 30th, 2004, 09:37 PM
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
Aug 30th, 2004, 09:40 PM
Lunatic3

Quote:

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") :ehh:

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.
Aug 31st, 2004, 02:49 AM
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 :)
Aug 31st, 2004, 02:52 AM
Lunatic3

Some of the WMI methods are not available in all Windows. This is well documented by MS in MSDN library.
Aug 31st, 2004, 03:23 AM
NicoNel2000

Just curious (and stoopid too I guess..)....
Why would one want to retrieve you hd serial number in an app???
Aug 31st, 2004, 03:28 AM
Winanjaya

This is for security purpose and the code supports only Win XP.. I suggest to use dongle hardware for securing the app.
Aug 31st, 2004, 07:27 AM
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) .

:confused: