Aca encontre una forma de de hacer lo que necesitaba ..modifique el codigo y lo reduje lo mas posible para que fuera aplicada en los labels, ya que el original enviava todo en un msg box .. y usaba un modulo bas ..el problema es que para
win 98 se necesita una referencia de wmi scripting , al momento de ejecutar el . exe de la aplicacion envia un error
"No se encontro el nombre de archivo o la clase durante la operacion de Automatizacion"
envio el codigo: y la referencia es Microsoft wmi Scripting si alguien me puede ayudar con lo de win 98 lo Agradeceria.
Private Sub Form_Load()
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
Label1.Caption = oProc.Manufacturer
Label2.Caption = oProc.Name
Label3.Caption = oProc.Description
Label4.Caption = oProc.CurrentClockSpeed & " " & "MHz"
Next
End Sub
G
gracias