FoxPro/Visual FoxPro - Obtener serial o Id de la tarjeta madre

objWMI = Getobject("winmgmts:\\")

cCadWMI = "Select * from Win32_PhysicalMedia"

oSistema = objWMI.ExecQuery(cCadWMI)

For Each Disco In oSistema

     ? "Serial de fabrica :" + Disco.SerialNumber

Next

objWMI = Getobject("winmgmts:\\")

cCadWMI = "Select * from Win32_LogicalDisk"

oSistema = objWMI.ExecQuery(cCadWMI)

For Each Disco In oSistema

     ? "Unidad: " + Disco.Name + " Serial: " + Disco.VolumeSerialNumber

Next