Getting hard disk firmware serial no

hdd firmware serial number source code



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

getvolumeinformationa diskid32

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

Best Regards

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

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?

hdd firmware serial number

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

gave me this ouput


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

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