Datos de procesador

[xavi]

Palabras clave: WMI, datos, procesador, fabricante
Autor: Eduardo Morcillo, Búho
Extraído de: La web del Búho

Pregunta
Que tal grupo, buenas tardes.

Mi interrogante es acerca de si conocen alguna api de windows, que me permita extraer si tengo Microsoft Office instalado en una pc y que numero de serie corresponde a ese office.
Mi otra interrogante es si conocen alguna api que me diga que tipo de procesador tengo en mi pc, ya utilice esta api Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) pero me trae que mi procesador es 586, pero lo q yo quiero es q me diga si es Pentium 4, AMD o el procesador que tenga y la velocidad del procesador.

Hola. Este código que propuso Eduardo Morcillo en las News de VB podría servirte(Supongo)
Nota: Agrega la referencia a Microsoft WMI Scripting. Si no tuvieras esa referencia puedes bajar el WMI de las páginas de Microsoft.

Código [Seleccionar] Expandir


Function Procesador()
Dim oWMI As SWbemServices
Dim oProcs As SWbemObjectSet
Dim oProc As SWbemObject

   Set oWMI = GetObject("WINMGMTS:")
   Set oProcs = oWMI.instancesof("Win32_Processor")

   For Each oProc In oProcs
      MsgBox oProc.DeviceID & vbCrLf & vbCrLf & _
             "Fabricante: " & oProc.Manufacturer & vbCrLf & _
             "Modelo: " & oProc.Name & vbCrLf & _
             "Descripcion: " & oProc.Description & vbCrLf & _
             "Velocidad: " & oProc.CurrentClockSpeed & vbCrLf & _
             "ID: " & oProc.ProcessorID & vbCrLf & _
             "ID Unico: " & oProc.UniqueID
   Next
End Function




Sigue el Buho...

...se me olvidaba...
Esta expresion la ruta donde está Access, si es que está instalado:
SysCmd(acSysCmdAccessDir)

y...por añadir un poco más

SysCmd(acSysCmdAccessVer)  te devuelve la version de access segun estas expresiones
8.0 será Access 97
9.0 será Access 2000
10.0 será Access XP
y....supongo que 11.0 será Access 2003 (Es que no le tengo instalado)
Application.Version  esta linea dará el mismo resultado que SysCmd(acSysCmdAccessVer) es decir, la version real del Access instalado(9, 10 etc)

Así tambien , por ejemplo:

DBEngine.Version dará la versión de la bibioteca DAO y en cuanto a  CurrentDb.Version

o sintaxis similares, en realidad dan la version del motor Jet.

Y el numero de licencia del Access instalado:

y creo haberla localizado en el reg, en la siguiente ruta
HKEY_LOCAL_MACHINE\Software\Microsoft\Office\Registration