OpenHardwareMonitorLib.dll COM problem

[j0kky]

Hi guys,

I'm trying to use the Open Hardware Monitor library to read some values about the hardware. I know that I could run directly OpenHardwareMonitor.exe and read from WMI but I want to use the library.

It is written in C# but I've read from >this topic I can use RegAsm to register the types in the registry so I could run the classes in the library as COM objects.

I've downloaded the source, changed COMVISIBLE property to TRUE and compiled the library with MSBuild.exe

I would convert this (or this) script to Autoit but after some lines of code I get an error: "Invalid pointer".

I don't understand why I get that error, I don't think it's cause RegAsm because it gives me a warning but then it does its job registering the types.

#RequireAdmin
$RegAsm_path = "C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm" ; CHECK YOUR VERSION!!!
$foo = Run($RegAsm_path & " /codebase /nologo OpenHardwareMonitorlib.dll", "", @SW_HIDE, 0x2 + 0x4)
$std = _Read_Std($foo)
MsgBox(0,$foo,$std)

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

$cp = ObjCreate("OpenHardwareMonitor.Hardware.Computer")
If IsObj($cp) Then MsgBox(0,"OpenHardwareMonitor.Hardware.Computer","Object created")
$cp.Open() ; <--------------- ERROR

RunWait($RegAsm_path & " /nologo /unregister OpenHardwareMonitorlib.dll", "", @SW_HIDE)

Func MyErrFunc()
    $HexNumber=hex($oMyError.number,8)
    Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
        "Number is: " & $HexNumber & @CRLF & _
        "Windescription is: " & $oMyError.windescription & @CRLF & _
        "Source is: " & $oMyError.source & @CRLF & _
        "Description is: " & $oMyError.description & @CRLF & _
        "Script line is: " & $oMyError.scriptline)
    RunWait($RegAsm_path & " /nologo /unregister OpenHardwareMonitorlib.dll", "", @SW_HIDE)
    Exit
Endfunc

Func _Read_Std($handle)
    Local $s
    While 1
        $s &= StdoutRead($handle)
        If @error Then ExitLoop
        $s &= StderrRead($handle)
        If @error Then ExitLoop
    WEnd
    Return $s
EndFunc 

I'll attach the compiled dll but you need to check .NET Framework folder first.

Thank you at all.

Edited February 24, 2015 by j0kky

[mLipok]

Add msgbox after $CP.Open

Edit: and say what you notice

Edited June 29, 2014 by mLipok

[j0kky]

nothing, nothing can happen... COM error handling function contains an "exit" statement and the script ends before executing everything after $cp.Open (that generates the COM error)

[mLipok]

;~ $cp = ObjCreate("OpenHardwareMonitor.Hardware.Computer")
$cp = ObjCreate("OpenHardwareMonitorLib")

[j0kky]

"Invalid Class String" COM error.

In fact this is what RegAsm adds to the registry: 

expandcollapse popup

REGEDIT4

[HKEY_CLASSES_ROOT\Record\{1FD2DBF2-D8C3-3E57-B448-37196EB12D9C}\0.6.0.11]
"Class"="OpenHardwareMonitor.Hardware.ControlMode"
"Assembly"="OpenHardwareMonitorLib, Version=0.6.0.11, Culture=neutral, PublicKeyToken=null"
"RuntimeVersion"="v2.0.50727"
"CodeBase"="file:///C:/Users/gianluca/Desktop/lavoro/openhardwaremonitorlib.dll"

[HKEY_CLASSES_ROOT\OpenHardwareMonitor.Hardware.Computer]
@="OpenHardwareMonitor.Hardware.Computer"

[HKEY_CLASSES_ROOT\OpenHardwareMonitor.Hardware.Computer\CLSID]
@="{5E652471-D269-3567-BB38-DCEBFF5669CF}"

[HKEY_CLASSES_ROOT\CLSID\{5E652471-D269-3567-BB38-DCEBFF5669CF}]
@="OpenHardwareMonitor.Hardware.Computer"

[HKEY_CLASSES_ROOT\CLSID\{5E652471-D269-3567-BB38-DCEBFF5669CF}\InprocServer32]
@="mscoree.dll"
"ThreadingModel"="Both"
"Class"="OpenHardwareMonitor.Hardware.Computer"
"Assembly"="OpenHardwareMonitorLib, Version=0.6.0.11, Culture=neutral, PublicKeyToken=null"
"RuntimeVersion"="v2.0.50727"
"CodeBase"="file:///C:/Users/gianluca/Desktop/lavoro/openhardwaremonitorlib.dll"

[HKEY_CLASSES_ROOT\CLSID\{5E652471-D269-3567-BB38-DCEBFF5669CF}\InprocServer32\0.6.0.11]
"Class"="OpenHardwareMonitor.Hardware.Computer"
"Assembly"="OpenHardwareMonitorLib, Version=0.6.0.11, Culture=neutral, PublicKeyToken=null"
"RuntimeVersion"="v2.0.50727"
"CodeBase"="file:///C:/Users/gianluca/Desktop/lavoro/openhardwaremonitorlib.dll"

[HKEY_CLASSES_ROOT\CLSID\{5E652471-D269-3567-BB38-DCEBFF5669CF}\ProgId]
@="OpenHardwareMonitor.Hardware.Computer"

[HKEY_CLASSES_ROOT\CLSID\{5E652471-D269-3567-BB38-DCEBFF5669CF}\Implemented Categories\{62C8FE65-4EBB-45E7-B440-6E39B2CDBF29}]

[HKEY_CLASSES_ROOT\Record\{E4E64F96-C708-381E-8380-93DF59B324B0}\0.6.0.11]
"Class"="OpenHardwareMonitor.Hardware.HardwareType"
"Assembly"="OpenHardwareMonitorLib, Version=0.6.0.11, Culture=neutral, PublicKeyToken=null"
"RuntimeVersion"="v2.0.50727"
"CodeBase"="file:///C:/Users/gianluca/Desktop/lavoro/openhardwaremonitorlib.dll"

[HKEY_CLASSES_ROOT\Record\{DFC56287-93E1-3B82-8F95-5F4268CB0401}\0.6.0.11]
"Class"="OpenHardwareMonitor.Hardware.SensorType"
"Assembly"="OpenHardwareMonitorLib, Version=0.6.0.11, Culture=neutral, PublicKeyToken=null"
"RuntimeVersion"="v2.0.50727"
"CodeBase"="file:///C:/Users/gianluca/Desktop/lavoro/openhardwaremonitorlib.dll"

[HKEY_CLASSES_ROOT\Record\{6042D116-95C1-3C8A-B8DC-D0E6C8F5BA07}\0.6.0.11]
"Class"="OpenHardwareMonitor.Hardware.SensorValue"
"Assembly"="OpenHardwareMonitorLib, Version=0.6.0.11, Culture=neutral, PublicKeyToken=null"
"RuntimeVersion"="v2.0.50727"
"CodeBase"="file:///C:/Users/gianluca/Desktop/lavoro/openhardwaremonitorlib.dll"

And I've attached an image of what OLEView shows.

[j0kky]

New issue thanks to this patch I could write a new version of OpenHardwareMonitorLib.dll, now I can run my script without errors, till I try to enumerate a collection: then Autoit crashes without errors.
It seems to be an Autoit managing-object related issue and not an external library issue, I'll attach the new version of the library.
Have you got any idea?

expandcollapse popup

#RequireAdmin
$RegAsm_path = "C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm" ; CHECK YOUR VERSION!!!
$foo = Run($RegAsm_path & " /codebase /nologo OpenHardwareMonitorlib.dll", "", @SW_HIDE, 0x2 + 0x4)
Sleep(1000)

$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

$cp = ObjCreate("OpenHardwareMonitor.Hardware.Computer")
If IsObj($cp) Then
    MsgBox(0, "OpenHardwareMonitor.Hardware.Computer", "Object created")
    $cp.Open()
    $cp.GPUEnabled = True
    $cp.CPUEnabled = True
    $a = $cp.Hardware
    MsgBox(0,"Var type",VarGetType($a))

    For $HWItem In $a ;---------> error
        MsgBox(0, 1, "hello")
    Next
Else
    MsgBox(16, "ERROR", "Object not created")
EndIf


RunWait($RegAsm_path & " /nologo /unregister OpenHardwareMonitorlib.dll", "", @SW_HIDE)

Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    MsgBox(0, "", "We intercepted a COM Error !" & @CRLF & _
            "Number is: " & $HexNumber & @CRLF & _
            "Windescription is: " & $oMyError.windescription & @CRLF & _
            "Source is: " & $oMyError.source & @CRLF & _
            "Description is: " & $oMyError.description & @CRLF & _
            "Script line is: " & $oMyError.scriptline)
    RunWait($RegAsm_path & " /nologo /unregister OpenHardwareMonitorlib.dll", "", @SW_HIDE)
    Exit
EndFunc   ;==>MyErrFunc

Func _Read_Std($handle)
    Local $s
    While 1
        $s &= StdoutRead($handle)
        If @error Then ExitLoop
        $s &= StderrRead($handle)
        If @error Then ExitLoop
    WEnd
    Return $s
EndFunc   ;==>_Read_Std

P.S: extract the dll in the same directory of the script and check your .NET Framework version 

EDIT:

I adjusted the code formatting

OpenHardwareMonitorLib.zip

Edited February 24, 2015 by j0kky

[j0kky]

UP!

[water]

We need more information to track down the error:

Which version of AutoIt?

What's the result of VarGetType($a)?

Do you get any messages from the COM error handler?

[j0kky]

Autoit v3.3.12.0

VarGetType($a) = "Object"

No error from internal COM error handler, it is an hard crash ("Autoit v3 script has stopped working" in english):

Useless crash data:

Descrizione:
  Stopped working

Firma problema:
  Nome evento problema: APPCRASH
  Application Name: autoit3.exe
  Application Version:  3.3.12.0
  Application Timestamp:    538b6694
  Fault Module Name:    autoit3.exe
  Fault Module Version: 3.3.12.0
  Fault Module Timestamp:   538b6694
  Exception Code:   c0000005
  Exception Offset: 0005bb71
  Versione SO:  6.1.7601.2.1.0.768.3
  ID impostazioni locali:   1040

[water]

The history for the latest AutoIt beta version doesn't list fixes for COM problems so I fear installing the latest beta won't help.

[j0kky]

Any suggest about how to handle - fix - understand that error?

Edited February 28, 2015 by j0kky

[water]

If $a.count returns a value you could loop through the collection like an array. Maybe this works.

[j0kky]

Count method is not exported by the library and the COM error handler reports a NULL pointer error if I try to do $a.Count.

This is what ILSpy shows about method and properties exported with Computer Class (on the left) and the source code of Hardware method (on the right):

[JohnOne]

c0000005 usually occurs when an app ties to read memory it has no business reading.

[j0kky]

"Business reading"? Ehm... what?

EDIT:

I tried something about c0000005: http://stackoverflow.com/a/17169463/3812399

But it doesn't really help until I will inspect $a to see if it is empty or something else.

Edited February 28, 2015 by j0kky

[j0kky]

Just a clarification, the library works without problems if I don't try to enumerate that collection, for example if you run this script it works:

expandcollapse popup

#RequireAdmin
$RegAsm_path = "C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm" ; CHECK YOUR VERSION!!!
$foo = Run($RegAsm_path & " /codebase /nologo OpenHardwareMonitorlib.dll", "", @SW_HIDE, 0x2 + 0x4)
Sleep(1000)

$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

$cp = ObjCreate("OpenHardwareMonitor.Hardware.Computer")
If IsObj($cp) Then
    MsgBox(0, "OpenHardwareMonitor.Hardware.Computer", "Object created")
    $cp.Open()
    $cp.GPUEnabled = True
    $cp.CPUEnabled = True
    $a = $cp.Hardware
    MsgBox(0,"Var type",VarGetType($a))
    FileWrite(@DesktopDir & "\log.txt", $cp.GetReport)

Else
    MsgBox(16, "ERROR", "Object not created")
EndIf


RunWait($RegAsm_path & " /nologo /unregister OpenHardwareMonitorlib.dll", "", @SW_HIDE)

Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    MsgBox(0, "", "We intercepted a COM Error !" & @CRLF & _
            "Number is: " & $HexNumber & @CRLF & _
            "Windescription is: " & $oMyError.windescription & @CRLF & _
            "Source is: " & $oMyError.source & @CRLF & _
            "Description is: " & $oMyError.description & @CRLF & _
            "Script line is: " & $oMyError.scriptline)
    RunWait($RegAsm_path & " /nologo /unregister OpenHardwareMonitorlib.dll", "", @SW_HIDE)
    Exit
EndFunc   ;==>MyErrFunc

Func _Read_Std($handle)
    Local $s
    While 1
        $s &= StdoutRead($handle)
        If @error Then ExitLoop
        $s &= StderrRead($handle)
        If @error Then ExitLoop
    WEnd
    Return $s
EndFunc   ;==>_Read_Std

But GetReport method returns a string, not an array as .Hardware method.

Is there any way to look into $a (other else than Count)?

[JohnOne]

I mean, trying to read a memory address which is outside of the process bounds.