Getting hard disk firmware serial no

[nikhilele]

hdd firmware serial number source code

Manufacturer assigned Hard-Disk Firmware Serial Number is essential for many reasons
One, you can create a Machine constant which do not change with Operating System Changes
or HDD Formatting. This machine constant can be used to base your product licensing. 

There are many methods to retrieve HDD Firmware Serial Number. Some require Administrative logins only, some require WMI (Windows Management Instrumentation) to determine HDD Serial.

This code works on Win-NT, Win-2000, Win-XP, for IDE Hard-disk Types Only, does not require Administrative logins, or WMI (Windows Management Instrumentation), Utilizes the Windows API to arrive at HDD Firmware Serial Number. It is a lightweight code of few lines only. Retrieves HDD Firmware Serial Number, HDD Model Number, Drive Controller Revision Number and other details. The Source Code is in Visual Basic 6.0, VB.NET, and C#

More Information on this code: [I]**broken link removed**[/I]

By the way, Complete Source Code for Licensing is available at [url]http://www.wnode.com/wlock.html[/url]

This does not work in windows 98
so what to do is there any trick to do is in win98 and dos

 

[Microemission]

getvolumeinformationa diskid32

An example of this is here:
**broken link removed**
Tried on Windows Millenium=98 and it works fine.

Best Regards

 

[nikhilele]

api saber firware hdd de visual basic

actually i am looking for the code which can be used with VB
I got few but they work only in xp not in 98

 

[newelltech]

api firware hdd de visual basic

Your answer doesn't make sense.
Microemission gave you an excellent link to a VB program that does exactly what you want. He tested it with Millenium and 98.
Did you even try it?

 

[nikhilele]

hdd firmware serial number

a nice and reliable software which was built using vc++

gave me this ouput

Drive Model Number________________: ST380011A
Drive Serial Number_______________: 4JV1P583
Drive Controller Revision Number__: 8.01
Controller Buffer Size on Drive___: 2097152 bytes
Drive Type________________________: Fixed
Drive Size________________________: 80026361856 bytes

many other software gave me
serial no as: 4JV1P583
this is hardisk serial no

but the Microemission code is giving me volume serial no
1126437887

serial no : 4JV1P583 wont change even if i format my hardisk

but other serial no will change.

So i am looking
To get the real HDD serial number (the unchangable one written on the HDD )not just volume serial number which can be changed if you formated your hdd.

for VB for VC++ i have got it
from
https://www.winsim.com/diskid32/diskid32.html

 

[scr_wld]

hard drive firmware c#

hi!
look this is from https://www.elguille.info/default.aspx

'---------------------------------------------------------------------------
'Form de prueba para leer la etiqueta y el número de serie de un disco.
' (18/Feb/97)
'---------------------------------------------------------------------------
Option Explicit

'Declaración de la función, sólo está en el API de 32 bits api function
'
Private Declare Function GetVolumeInformation Lib "Kernel32" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long


Private Sub Command1_Click()
'Acción
Dim lVSN As Long, n As Long, s1 As String, s2 As String
Dim unidad As String
Dim sTmp As String

On Local Error Resume Next

'Se debe especificar el directorio raiz
unidad = Trim$(Text1)

'Reservar espacio para las cadenas que se pasarán al API
s1 = String$(255, Chr$(0))
s2 = String$(255, Chr$(0))
n = GetVolumeInformation(unidad, s1, Len(s1), lVSN, 0, 0, s2, Len(s2))
's1 será la etiqueta del volumen
'lVSN tendrá el valor del Volume Serial Number (número de serie del volumen)
's2 el tipo de archivos: FAT, etc.

'Convertirlo a hexadecimal para mostrarlo como en el Dir.
sTmp = Hex$(lVSN)

Label3(0) = s1
Label3(1) = Left$(sTmp, 4) & "-" & Right$(sTmp, 4)
Label3(2) = s2
End Sub


Private Sub Command2_Click()
Unload Me
End
End Sub


Private Sub Form_Unload(Cancel As Integer)
'Asegurarnos de "liberar" la memoria.
Set Form1 = Nothing
End Sub
give a serial number in hex, name o volumen of hdd and system file (fat,fat32)
best regard