Getting ODBC driver info

[Jewtus]

I've been trying to figure out a way to query a machine on the network to get the installed programs and drivers available on the machine. I was able to figure out the programs part but I'm struggling with the ODBC Driver list. This is what I've done and it works without any notable issues:

Func GetMachineInstalls($strComputer="localhost")
    local $aReturn[0][2],$colItems
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Product", "WQL", _
                                              $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

    If IsObj($colItems) then
       For $objItem In $colItems
          $sName = $objItem.Name
          $sVersion = $objItem.Version
          _ArrayAdd($aReturn,$sName&"|"&$sVersion,0)
       Next
       Return $aReturn
    Else
       return -1
    Endif
EndFunc

 

I tracked down this article that talks about how to do this. This is the block I need to modify to work in autoit:

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = “.”
Set objRegistry = GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)
strKeyPath = “SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers”
objRegistry.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrValueNames, arrValueTypes
For i = 0 to UBound(arrValueNames)
    strValueName = arrValueNames(i)
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
    Wscript.Echo arrValueNames(i) & ” — ” & strValue
Next

Does anyone understand the block above and how I can adapt it to work? I'm also trying to figure out how to get the OS Type(32/64)/name/version using similar logic if anyone is aware of a UDF.

Edited October 5, 2016 by Jewtus

[jguinch]

You have to use the registry functions, like RegRead or RegEnumXxx

[spudw2k]

The WMI method or native Reg* Funcs should be able to do what you want.  One may perform "better" than the other...not sure, and I'm not at a place where I can test; but I do recall the Reg funcs support remote machines.  Otherwise, it's pretty trivial to adapt the vb code to AutoIt.  You are already half way there with your working WMI example.  There also appear to be ODBC WMI classes, but I'm not as familiar with them.

The Win32_OperatingSystem WMI class seems to have the OS info you need:
OSArchitecture
Caption
Version
BuildNumber
OperatingSystemSKU
 

[water]

Check "ScriptoMatic" in the Example Scripts forum. This tool generates AutoIt code for you to query WMI.

[Jewtus]

20 minutes ago, water said:

Check "ScriptoMatic" in the Example Scripts forum. This tool generates AutoIt code for you to query WMI.

How is it that you always have the droids I'm looking for?

Thanks a lot all, This will be very helpful. I'll share my script when I'm finished.

[Jewtus]

Ok, so I'm a little confused... I used scriptomatic to generate some code and tweaked it to make it fit into what I already build but I'm not actually getting back any values:

 

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ODBCDriverSpecification", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
   For $objItem In $colItems
      ConsoleWrite($objItem.Driver& @CRLF)
      ConsoleWrite($objItem.Description& @CRLF)
      ConsoleWrite($objItem.Name& @CRLF)
      ConsoleWrite($objItem.Version & @CRLF)
      ConsoleWrite("=========================="& @CRLF)
   Next
Endif

When I run this, the objects are there in the $colItems, but nothing gets printed to the console. I checked the data types and the fields I'm grabbing are all strings and I'm using the correct namespace... 

 

I tried a few things out of scriptomatic and I had the same results (nothing writes to the console).

 

Anyone know what I'm doing wrong?

 

EDIT:

This one works but not the ODBC one

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
   For $objItem In $colItems
      ConsoleWrite($objItem.OSArchitecture& @CRLF)
      ConsoleWrite($objItem.Caption& @CRLF)
      ConsoleWrite($objItem.Version& @CRLF)
      ConsoleWrite($objItem.BuildNumber& @CRLF)
      ConsoleWrite($objItem.OperatingSystemSKU & @CRLF)
      ConsoleWrite("=========================="& @CRLF)
   Next
Endif

 

Edited October 5, 2016 by Jewtus

[spudw2k]

I also get no results from the ODBC WMI query, but do get (some) data using the registry method.  If the registry has the data you need/want, then it may be the better way to go.

 

[Jewtus]

I've been trying to figure out how to do the registry method, but I'm grasping at straws (a lot of this WMI and installed software stuff is new to me).

If I do this:

$sVar = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers","")

I get a result, but I'm not sure how to pull the "Name" from the registry.

I feel like this is a really simple step I'm missing. 

[mLipok]

@water you forgot about ado.au3 ?

; #FUNCTION# ====================================================================================================================
; Name ..........: _ADO_GetProvidersList
; Description ...: This tool lists all available providers installed on the computer.
; Syntax ........: _ADO_GetProvidersList()
; Parameters ....: None
; Return values .: $aResult - a list of all available providers installed on the computer
; Author ........: water
; Modified ......: mLipok
; Remarks .......: based on: _ADO_OLEDBProvidersList
; Related .......:
; Link ..........: https://www.autoitscript.com/wiki/ADO_Tools
; Example .......: No
; ===============================================================================================================================
Func _ADO_GetProvidersList()
....
....
....

 

Edited October 5, 2016 by mLipok

[Jewtus]

@mLipok I took a look at that script and It does execute and pull back OLE DB providers, but I need ODBC providers.  I made some minor tweaks to it to see if I could adapt it, but I don't know enough about registry stuff.

I tried this, but I'm getting no results:

 

EDIT: I put the wrong HK ref in so I fixed it and the progress bar gets stuck at 0%

expandcollapse popup

Func _ADO_GetProvidersList()
    Local $sKey = "HKLM\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers" ; HKLM not HKMH
    Local $iIndexReg = 1, $iIndexResult = 0
    Local $iMax = 100000, $iMin = 1, $iPrevious = $iMin, $iCurrent = $iMax / 2
    Local $aResult[200][3]

    ProgressOn("", "Processing the Registry", "", Default, Default, $DLG_MOVEABLE)

    ; Count the number of keys
    While 1
        RegEnumKey($sKey, $iCurrent)
        If @error = -1 Then ; Requested subkey (key instance) out of range
            $iMax = $iCurrent
            $iCurrent = Int(($iMin + $iMax) / 2)
            $iPrevious = $iMax
        Else
            If $iPrevious <= ($iCurrent + 1) And $iPrevious >= ($iCurrent - 1) Then ExitLoop
            $iMin = $iCurrent
            $iCurrent = Int(($iMin + $iMax) / 2)
            $iPrevious = $iMin
        EndIf
    WEnd

    Local $iPercent = 0
    Local $sKeyValue = '', $sSubKey = ''
    ; Process registry
    While 1
        If Mod($iIndexReg, 10) = 0 Then
            $iPercent = Int($iIndexReg * 100 / $iCurrent)
            ProgressSet($iPercent, $iIndexReg & " keys of " & $iCurrent & " processed (" & $iPercent & "%)")
        EndIf
        $sSubKey = RegEnumKey($sKey, $iIndexReg)
        If @error Then ExitLoop

        $sKeyValue = RegRead($sKey & "\" & $sSubKey, "REG_SZ")
        If @error = 0 Then
            $aResult[$iIndexResult][0] = $sKey & "\" & $sSubKey
            $aResult[$iIndexResult][1] = RegRead($sKey & "\" & $sSubKey, "")
            $iIndexResult += 1
        EndIf

        $iIndexReg += 1
    WEnd

    ProgressOff()
    ReDim $aResult[$iIndexResult][3]

    Return SetError("", "", $aResult)
EndFunc

 

Edited October 5, 2016 by Jewtus

[PACaleala]

; List of the ODBC Drivers installed on this computer
Local $HKEY_LOCAL_MACHINE = 0x80000002
Local $strComputer = "."
Local $objRegistry = ObjGet("winmgmts:\\" & $strComputer & "\root\default:StdRegProv")
Local $strKeyPath = "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers"
Local $arrValueNames, $arrValueTypes, $strValue
$objRegistry.EnumValues($HKEY_LOCAL_MACHINE, $strKeyPath, $arrValueNames, $arrValueTypes)
For $i = 0 to UBound($arrValueNames) - 1
    $strValueName = $arrValueNames[$i]
    $objRegistry.GetStringValue($HKEY_LOCAL_MACHINE,$strKeyPath,$strValueName,$strValue)
    ConsoleWrite($arrValueNames[$i] & " -- " & $strValue & @CRLF)
Next
Exit

[water]

13 hours ago, Jewtus said:

How is it that you always have the droids I'm looking for?

By accident

[water]

10 hours ago, mLipok said:

@water you forgot about ado.au3 ?

No, I didn't
But I noticed that the user was asking for ODBC drivers not OLE providers. So I remained silent

[Jewtus]

10 hours ago, PACaleala said:

; List of the ODBC Drivers installed on this computer
Local $HKEY_LOCAL_MACHINE = 0x80000002
Local $strComputer = "."
Local $objRegistry = ObjGet("winmgmts:\\" & $strComputer & "\root\default:StdRegProv")
Local $strKeyPath = "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers"
Local $arrValueNames, $arrValueTypes, $strValue
$objRegistry.EnumValues($HKEY_LOCAL_MACHINE, $strKeyPath, $arrValueNames, $arrValueTypes)
For $i = 0 to UBound($arrValueNames) - 1
    $strValueName = $arrValueNames[$i]
    $objRegistry.GetStringValue($HKEY_LOCAL_MACHINE,$strKeyPath,$strValueName,$strValue)
    ConsoleWrite($arrValueNames[$i] & " -- " & $strValue & @CRLF)
Next
Exit

That'll do

Thanks everyone. I'll post the full script in a few.

[Jewtus]

For anyone interested:

Pass it a host name and get an array back. Crude but functional.

expandcollapse popup

Func GetMachineInstalls($strComputer="localhost")
    local $aReturn[0][2],$colItems
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Product", "WQL", _
                                              $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

    If IsObj($colItems) then
       For $objItem In $colItems
          $sName = $objItem.Name
          $sVersion = $objItem.Version
          _ArrayAdd($aReturn,$sName&"|"&$sVersion,0)
       Next
       Return $aReturn
    Else
       return -1
    Endif
EndFunc

Func GetMachineODBC($strComputer="localhost")
    $HKEY_LOCAL_MACHINE = 0x80000002
    $objRegistry = ObjGet("winmgmts:\\" & $strComputer & "\root\default:StdRegProv")
    $strKeyPath = "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers"
    Local $arrValueNames, $arrValueTypes, $strValue, $aReturn[0][2]
    $objRegistry.EnumValues($HKEY_LOCAL_MACHINE, $strKeyPath, $arrValueNames, $arrValueTypes)
    For $i = 0 to UBound($arrValueNames) - 1
        $strValueName = $arrValueNames[$i]
        $objRegistry.GetStringValue($HKEY_LOCAL_MACHINE,$strKeyPath,$strValueName,$strValue)
        _ArrayAdd($aReturn,$arrValueNames[$i]&"|"&$strValue)
    Next
    If UBound($aReturn)>0 then
        Return $aReturn
    Else
        Return -1
    EndIf
EndFunc   

Func GetMachineOS($strComputer="localhost")
    local $aReturn[0][5],$colItems
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _
                                              $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

    If IsObj($colItems) then
       For $objItem In $colItems
          $sArch = $objItem.OSArchitecture
          $sName = $objItem.Caption
          $sVersion = $objItem.Version
          $sBuild = $objItem.BuildNumber
          $sSKU = $objItem.OperatingSystemSKU
          _ArrayAdd($aReturn,$sArch&"|"&$sName&"|"&$sVersion&"|"&$sBuild&"|"&$sSKU,0)
       Next
       Return $aReturn
    Else
       return -1
    Endif
EndFunc

 

Edited October 6, 2016 by Jewtus