CompInfo UDF crash on some systems

[Kingpix]

Hello everyone, it's my first topic on these awesome forums.

I'm writing an installer for a program of mine that at the beginning checks the graphics card model.

To do so I'm using the CompInfo UDF.

While in my system it works just great, during the betatesting some other user had problems (the crash message says "The requested action with this object has failed").

This is the code that causes the crash:

$objWMIService = ObjGet("winmgmts:\\" & $cI_Compname & "\root\CIMV2")

If IsObj($objWMIService) = 1 Then
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_VideoController", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) Then
For $objItem In $colItems
ReDim $aVideoInfo[UBound($aVideoInfo) + 1][59]

I already tweaked the CompInfo UDF to solve a crash for the users that didn't have the WMI service running so the problem is another. During many test I concluded that the error comes from this specific line:

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_VideoController", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

The users that had problem were running vary O.S. (Win XP, Win7 and even Win8). One of them told me that he was running a system with two separate videocards (Intel integrated and nVidia dedicated chip). Could that cause the problem?

[water]

Add a COM error handler to your script. It will tell you the error code and error message. This will make debugging a lot easier.

Example code can be founf in the help file for ObjEvent.