Extraer numero de Serie del HD

[miguelillo2]

Hola nuevamente!!!

Estoy intentando sacar el numero de serie de un disco duro de una pc a travéz del vb.net 2005 pero no logró, lo que he llegado a obtener es el numero de serie del volumen(volumen de serie logico cambiante) , pero a mi lo que me interesa es conocer el numero de serie del disco duro(el no. de serie fisico)...

He estado checando las clases, bueno de hecho hice este ejemplo que encontre y namas me sale error: les pongo el code para que se den una idea...

Código:

Dim strSN As String = ""
        Dim strQuery As String = "SELECT * FROM Win32_PhysicalMedia"
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)
        Dim queryCollection As ManagementObjectCollection = query.Get()
        Dim mo As ManagementObject

        For Each mo In queryCollection
            strSN = mo("SerialNumber").ToString()
        Next

        TextBox1.Text = strSN

Espero sus respuestas.... De antemano mil gracias...

Bits...Miguel--in--

[GeoAvila]

Iniciado por miguelillo2

Hola nuevamente!!!

Estoy intentando sacar el numero de serie de un disco duro de una pc a travéz del vb.net 2005 pero no logró, lo que he llegado a obtener es el numero de serie del volumen(volumen de serie logico cambiante) , pero a mi lo que me interesa es conocer el numero de serie del disco duro(el no. de serie fisico)...

He estado checando las clases, bueno de hecho hice este ejemplo que encontre y namas me sale error: les pongo el code para que se den una idea...

Código:

Dim strSN As String = ""
        Dim strQuery As String = "SELECT * FROM Win32_PhysicalMedia"
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)
        Dim queryCollection As ManagementObjectCollection = query.Get()
        Dim mo As ManagementObject

        For Each mo In queryCollection
            strSN = mo("SerialNumber").ToString()
        Next

        TextBox1.Text = strSN

Espero sus respuestas.... De antemano mil gracias...

Bits...Miguel--in--

creo que es algo así

Código:

        Dim strQuery As String = "SELECT * FROM Win32_PhysicalMedia"
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)
Dim i As Integer = 0

        For Each mo As ManagementObject In query.[Get]()
If mo("SerialNumber") is Nothing then
strSN =strSN &" "& "N/A Serial"
else
            strSN =strSN & " " & mo("SerialNumber").ToString()
end if     
   i += 1
Next

        TextBox1.Text = strSN

Bueno creo que allí te debería de funcionar y revisa si ya agregaste la refenrencia y también el Imports

te dejo un ejemplo
http://geoavila.com/?p=63

Nos vemos.

[miguelillo2]

Hola Geoavila!!!!

De el Link que pusiste tome el código, de hecho lo descargue y lo ejecute, mi hd es de tipo SCSI y me manda al correr el programa que esta en el lenguaje C que mi hd es de tipo IDE y no me manda el numero de serial... Se supone que es el código original y debería de mostrarme el No. Serial del Hd, pero nomas no...

En mi app que esta en vb 2005 ya puse el código que pusiste y uso lo siguiente:

Imports...

Imports System.Management
Imports System.Collections
Imports system

En la parte del button pongo el codigo que me pasaste.... y queda así

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim strSN As String = ""
Dim strQuery As String = "SELECT * FROM Win32_PhysicalMedia"
Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)
Dim i As Integer = 0

For Each mo As ManagementObject In query.[Get]()
If mo("SerialNumber") Is Nothing Then
strSN = strSN & " " & "N/A Serial"
Else
strSN = strSN & " " & mo("SerialNumber").ToString()
End If
i += 1
Next

TextBox1.Text = strSN
End Sub

Y siempre trae mo("SerialNumber") como nothing.....
Un favor grandote Geoavila,puedes poner tu código completo ; te lo agradecería bastante....

De antemano mil gracias....

Bitss---Miguel--in

[erick_arcini]

FAQ

Prueba este código, te obtiene todos los seriales de todos los discos que tengas conectados en tu PC, si es solo uno pues no importa:

Código:

using System.Management;
string[] discos=new string[####];//cantidad de discos en la computadora
int aum = 0;
try
{
 ManagementObjectSearcher dispositivo = new ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive"); 
 foreach (ManagementObject lector in dispositivo.Get()) 
 {
  discos[aum] = Convert.ToString(lector["SerialNumber"]); aum++;
 }
}
catch(ManagementException ex)
{
 MessageBox.Show("Error: " + ex.Message);
}

la clase Win32_diskdrive te puede ayudar en mucho

[miguelillo2]

Hola erik!!!!

El problema esta en que esas clases Win32_DiskDrive y Win32_PhysicalMedia funcionan para los hd tipo IDE y SCSI pero no para los sata.

Ya probe mi code y si funciona en una pc con hd ide pero no en los sata .

Cualquier sugerencia es bienvenida.....

De antemano mil gracias.........

[miguelillo2]

hola a todos!!!!

Solucionado amigos.... Para esto tuve que agregar un libreria de nombre HDSNLib.dll la cual agregas como referencia y nada mas pones lo siguiente en el vb.net 2005

Código:

Dim h = New HDSNLib.HDSN

        With h
            MsgBox("Serial" & .CurrentDrive & " (" & .GetModelNumber & ") " & .GetSerialNumber)
           End With

        h = Nothing

Ahhh para que te reconozca el windows esta libreria vete a inicio - ejecutar
y pones lo siguiente:

Código:

REGSVR32 c:\Rutaenlaqueesta\HDSNLib.dll

Nota: Antes de agregar la referencia ejecuta este comando...
Y listo....

[fox0256]

Iniciado por miguelillo2

hola a todos!!!!

Solucionado amigos.... Para esto tuve que agregar un libreria de nombre HDSNLib.dll la cual agregas como referencia y nada mas pones lo siguiente en el vb.net 2005

Código:

Dim h = New HDSNLib.HDSN

        With h
            MsgBox("Serial" & .CurrentDrive & " (" & .GetModelNumber & ") " & .GetSerialNumber)
           End With

        h = Nothing

Ahhh para que te reconozca el windows esta libreria vete a inicio - ejecutar
y pones lo siguiente:

Código:

REGSVR32 c:\Rutaenlaqueesta\HDSNLib.dll

Nota: Antes de agregar la referencia ejecuta este comando...
Y listo....

hola , yo tambien estoy buscando eso de ver las series de los hd sata, podrias mandarme esa dll a mi correo [email protected], espero tu ayuda, gracias

[miguelillo2]

Ok Amigo!!!

Te lo enviaré a tu mail.....

[arkofdan]

Puedes poorfavor tambien enviarme esa libreria? si? esta HDSNLib.dll que tambien ando buscando como hacer eso
gracias

mi correo: [email protected]

de nuevo gracias

------------

Creo que la encontre pero no estoy seguro

http://rapidshare.com/files/82843739/HDSNLib.rar.html

[Jose_minglein2]

De donde la descargaste?

[miguelillo2]

Hola amigos!

Perdón por no haber contestado antes.

Acabo de subir la dll a rapidshare. Así que pueden descargarla de ahi.

http://rapidshare.com/files/143983675/HDSNLib.dll.html

Espero no sea demasiado tarde; y aun les sirva.

Saludos cordiales....

Bites;;;;;

[pablek]

Buenos días,

*** NO USEIS LA LIBRERIA: HDSNLib.dll

Es curioso, pero si buscas el nombre de la DLL "HDSNLib.dll" en google (bueno, yo uso www.negroogle.net , pero es lo mismo), sólo salen dos paginas de resultados, en las cuales 1 es este mismo foro, y el resto son paginas de seguridad alertando de que dicha DLL es un virus.

un saludo a todxs!