Info del disco duro

Utiliza la clase Win32_PhysicalMedia:

Dim wmiclass As ManagementClass

wmiclass = New ManagementClass("root\cimv2:Win32_PhysicalMedia")

For Each obj As ManagementObject In wmiclass.GetInstances()
MessageBox.Show(obj.GetPropertyValue("SerialNumbre))
Next

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Hola Eduardo,

gracias nuevamente tu codigo funciona muy bien una ultima duda, este codigo
funciona en cualquier S.O. windows??? win98, win2000, winnt, winXp ? por q
en XP funciona muy bien

gracias nuevamente!!!!!



"Eduardo A. Morcillo [MS MVP VB]" <emorcilloATmvps.org> escribió en el
mensaje news:

Utiliza la clase Win32_PhysicalMedia:

Dim wmiclass As ManagementClass

wmiclass = New ManagementClass("root\cimv2:Win32_PhysicalMedia")

For Each obj As ManagementObject In wmiclass.GetInstances()
MessageBox.Show(obj.GetPropertyValue("SerialNumbre))
Next

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

gracias nuevamente tu codigo funciona muy bien una ultima duda, este
codigo funciona en cualquier S.O. windows??? win98, win2000, winnt,
winXp ? por q en XP funciona muy bien

Funcionar funciona (es decir no da error). Lo que no puedo asegurarte es que
devuelva el valor en todos los sistemas operativos ya que yo solo lo he
usado en XP y 2003 Server.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo