problema con Tipo
Publicado por Edwin Thomas (4 intervenciones) el 26/01/2006 18:02:12
De antemano, gracias por tu interés.
Estoy usando el siguiente codigo para saber el procesador del pc.
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
Pero me da el errorsiguiente:
"No se ha definido el tipo definido por el usuario" y me sombrea "oWMI As SWbemServices" (es la primera linea). No se como declarar ese tipo. Este codigo me lo baje pero parece como si esta incompleto o debo de hacer algo mas. Ya baje el WMI para Win98(que es el que tengo).
Si me puedes ayudar te lo agradecere mucho. Saludos.
Estoy usando el siguiente codigo para saber el procesador del pc.
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
Pero me da el errorsiguiente:
"No se ha definido el tipo definido por el usuario" y me sombrea "oWMI As SWbemServices" (es la primera linea). No se como declarar ese tipo. Este codigo me lo baje pero parece como si esta incompleto o debo de hacer algo mas. Ya baje el WMI para Win98(que es el que tengo).
Si me puedes ayudar te lo agradecere mucho. Saludos.
Valora esta pregunta


0