COM Error

[MadBoy]

Some of the ppl using my program are getting the COM error with DOM. The function that is used i've attached below. However the function works just fine on my PC's so i am wondering where's the error and how i can prevent it. Anyone has idea or some comments why it is happening?

Com Error with DOM

err.description is:

err.windescription is : evises..

err.number is: 80041013

err.lastdllerror is : 0

err. scriptline is: -1

err.sourse is:

err helpfile is:

err.helpcontext is:

Code that errors out is this:

expandcollapse popup

Func _GatherAdvancedInfo()
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = "localhost" 
    $output = ""
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    _UpdateStatusBar("Busy", "Discovering information about all system devices..")
    _AddLineBox("Discovering advanced information about all system devices..")
    SplashTextOn("Loader", "Loading...", 200, 50, -1, -1, 33, "Arial", 15, 500)
    $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_PnPSignedDriver", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    
    If IsObj($colItems) Then
        For $objItem In $colItems
            _HashF_Put ($objItem.DeviceID, $objItem.CompatID, $Hardware_CompatID)
            _HashF_Put ($objItem.DeviceID, $objItem.DeviceClass, $Hardware_DeviceClass)
            _HashF_Put ($objItem.DeviceID, $objItem.DeviceName, $Hardware_DeviceName)
            _HashF_Put ($objItem.DeviceID, WMIDateStringToDate($objItem.DriverDate), $Hardware_DriverDate)
            _HashF_Put ($objItem.DeviceID, $objItem.DriverName, $Hardware_DriverName)
            _HashF_Put ($objItem.DeviceID, $objItem.DriverProviderName, $Hardware_DriverProviderName)
            _HashF_Put ($objItem.DeviceID, $objItem.DriverVersion, $Hardware_DriverVersion)
            _HashF_Put ($objItem.DeviceID, $objItem.FriendlyName, $Hardware_DriverName)
            _HashF_Put ($objItem.DeviceID, $objItem.HardWareID, $Hardware_HardWareID)
            _HashF_Put ($objItem.DeviceID, $objItem.InfName, $Hardware_InfName)
            _HashF_Put ($objItem.DeviceID, $objItem.IsSigned, $Hardware_IsSigned)
            _HashF_Put ($objItem.DeviceID, $objItem.Location, $Hardware_DeviceLocation)
            _HashF_Put ($objItem.DeviceID, $objItem.Manufacturer, $Hardware_DriverManufacturer)
            _HashF_Put ($objItem.DeviceID, $objItem.PDO, $Hardware_PDO)
            _HashF_Put ($objItem.DeviceID, $objItem.Signer, $Hardware_Signer)
            If StringInStr($objItem.DeviceID, "ROOT\", 1, 1) Then
                _HashF_Put ($objItem.DeviceID, "No", $Hardware_IsEssential)
            Else
                _HashF_Put ($objItem.DeviceID, "Yes", $Hardware_IsEssential)
            EndIf
        Next
    Else
        MsgBox(0, "WMI Error", "No WMI Objects Found. WMI must be installed in order for program to work.")
    EndIf
    _ArraySort($Array_DeviceID)
    _UpdateStatusBar("Ready", "Waiting for user interaction..")
EndFunc   ;==>_GatherAdvancedInfo

[MadBoy]

I'll bump it once. Anyone have any idea?

[DaleHohm]

Google 80041013 WMI -- you'll find a lot to get you started.

Dale