Numero de serie del disco duro

Dim disco As New
ManagementObject("Win32_PhysicalMedia='\\.\PHYSICALDRIVE0'")
msgbox(disco.Properties("SerialNumber").Value.ToString())
No olvides añadir una referencia a System.Management. Tambien por comodidad,
incluye un Imports a System.Management.

Ojo que con algunos SO no tira, salu2.

"Jorge Serrano [MVP VB]"
escribió
en el mensaje news:

Para leer el volúmen de un disco duro, emplea un código similar a:

Dim disco As New
System.Management.ManagementObject("Win32_LogicalDisk.DeviceId='C:'")
MessageBox.Show("VolumeSerialNumber = " & disco("VolumeSerialNumber"))

Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"HighSoft" wrote:

Como se puede saber el numero de serie del disco duro.


Saludos y gracias

"HighSoft" escribió:

Probé con estas lineas pero no funciona

Hola:

El código correcto para leer el número de serie del disco duro (el número
que viene de fábrica), es el que te ha indicado el usuario Cid, a saber:

Dim disco As New _
System.Management.ManagementObject( _
"Win32_PhysicalMedia='\\.\PHYSICALDRIVE0'")

Try
MessageBox.Show(disco.Properties("SerialNumber").Value.ToString, _
"Número de Serie", _
MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

Si no puedes leer el número de serie, y el código fuente lo estás ejecutando
en un sistema basado en Windows NT, como por ejemplo Windows XP, tienes que
procurar ejecutarlo con una cuenta de Administrador, o con otra cuenta de
usuario que tenga los suficientes permisos para leer el número de serie. Con
una cuenta de usuario normal o avanzado, no podrás leer el número de serie
del disco duro.

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Funcionó perfectamente!!!!

Muchas gracias


"SoftJaén" escribió en el mensaje
news:%

"HighSoft" escribió:

Probé con estas lineas pero no funciona

Hola:

El código correcto para leer el número de serie del disco duro (el número
que viene de fábrica), es el que te ha indicado el usuario Cid, a saber:

Dim disco As New _
System.Management.ManagementObject( _
"Win32_PhysicalMedia='\\.\PHYSICALDRIVE0'")

Try
MessageBox.Show(disco.Properties("SerialNumber").Value.ToString, _
"Número de Serie", _
MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

Si no puedes leer el número de serie, y el código fuente lo estás
ejecutando
en un sistema basado en Windows NT, como por ejemplo Windows XP, tienes
que
procurar ejecutarlo con una cuenta de Administrador, o con otra cuenta de
usuario que tenga los suficientes permisos para leer el número de serie.
Con
una cuenta de usuario normal o avanzado, no podrás leer el número de serie
del disco duro.

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado
o
sugerido en el presente mensaje.

Hola de nuevo,

quizás la siguiente información te de una pista.

http://www.codeproject.com/csharp/h...rialNo.asp

Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"HighSoft" wrote:

Probé con estas lineas pero no funciona

Dim disco As New
System.Management.ManagementObject("Win32_PhysicalMedia='C:'")

MessageBox.Show("SerialNumber = " & disco("SerialNumber"))





"Eduardo A. Morcillo [MS MVP VB]" <emorcillo .AT. mvps.org> escribió en el
mensaje news:Ol7C%
> El codigo seria similiar pero usarias la clase Win32_PhysicalMedia y su
> propiedad SerialNumber.
>
> Eduardo A. Morcillo [MS MVP VB]
> http://www.mvps.org/emorcillo
> http://mvp.support.microsoft.com/pr...4EF5A4191C
>