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.

