Funciona bien, tanto en 98 como en XP, vista , windows 7, pero en sistemas de 64 no me devuelve nada.
La función que utilizo es esta:
Código:
Hay que referenciar la clase Imports System.ManagementPrivate Function ObtenerIdPlacaBase() As String Dim mc As New ManagementClass("Win32_BaseBoard") Dim moc As ManagementObjectCollection = mc.GetInstances() Dim Serial As String = [String].Empty For Each mo As ManagementObject In moc If Serial = [String].Empty Then Serial = mo("SerialNumber").ToString() End If mo.Dispose() Next Serial = Serial.Replace(".", "") Return Serial End Function
¿Alguna idea? He estado buscando por google, pero no he encontrado nada

Gracias.