Find specific program using WMI

[BrewManNH]

Another brain fart on my part. StringInStr will return the POSITION of the substring, $Model will NEVER equal the return of StringInStr, so that's why it was failing. You need to rewrite that line to If StringInStr($Model,"Latitude D830") Or StringInStr($Model,"HP Compaq 6710b") Then.

[jazzyjeff]

Excellent! This works.

Here is the final result in case it helps someone else.

expandcollapse popup

#include <ExplorerCopy.au3>
$intelChk = False
$PCChk = False
Global $Model,$PCChk

_PCChk()
_IntelChk()

If $PCChk = False Then
    Exit
Else
    _Intel()
EndIf

Func _Intel()
    If $intelChk = False Then
        MsgBox(0,"Intel PROSet Wireless","The Intel PROSet Wireless application is out of date." & @CR & "The latest version will now be installed in the background." & @CR & "NOTE: You will lose wireless connectivity during this up date. Users on docking stations will notice no connectivity issues.",8)
        _ExplorerCopy("\\app2\k-12$\Intel Wireless\Intel PROSet Wireless.msi","C:\Windows\!DriverCache\Intel 3945 ABG Drivers and Wireless Profile\",BitOR($FOF_SIMPLEPROGRESS,$FOF_NOERRORUI,$FOF_NOCOPYSECURITYATTRIBS,$FOF_NOCONFIRMMKDIR,$FOF_NOCONFIRMATION))
        MsgBox(0,"Intel PROSet Wireless","The Intel PROSet Wireless installation is about to begin.",5)
        RunWait('msiexec /i "C:\Windows\!DriverCache\Intel 3945 ABG Drivers and Wireless Profile\Intel PROSet Wireless.msi" /qb /norestart ADDLOCAL=WIFI_Driver,WIFI_Software,WIFI_UI,WIFI_SSO,WIFI_PLC,WIFI_Simple_Config,WIFI_Troubleshooter,WIFI_Help,WIFI_Custom_Help')
        MsgBox(0,"Intel PROSet Wireless","The Intel PROSet Wireless application has now been updated.")
        Exit
    Else
        MsgBox(0,"Intel PROSet Wireless","The Intel PROSet Wireless application is already installed.")
        Exit
    EndIf
EndFunc

Func _PCChk()
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = "localhost"

    $Output=""
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\")
    $colItems2 = $objWMIService.ExecQuery('SELECT Model FROM Win32_ComputerSystem', "WQL", _
                                              $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

    If IsObj($colItems2) Then
        For $objItem2 In $colItems2
            $Model = $objItem2.Model
            If StringInStr($Model,"Latitude D830") Or StringInStr($Model,"HP Compaq 6710b") Then
                $PCChk = True
            EndIf
            ExitLoop
        Next
    Else
        Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_Product" )
    Endif
EndFunc

Func _IntelChk()
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = "localhost"


    $Output=""
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\")
    $colItems = $objWMIService.ExecQuery("SELECT Name, Version FROM Win32_Product WHERE Name = 'Intel(R) PROSet/Wireless WiFi Software' and Version = '13.03.0000'", "WQL", _
                                              $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

    If IsObj($colItems) Then
        For $objItem In $colItems
            $Output1 = $objItem.Name
            $Output2 = $objItem.Version
            If $Output1 = "Intel(R) PROSet/Wireless WiFi Software" And $Output2 = "13.03.0000" Then
                $intelChk = True
            EndIf
            ExitLoop
        Next
    Else
        Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_Product" )
    Endif
EndFunc

Thanks for your help!

[BrewManNH]

I'm glad it's finally working for you. Monday mornings are not a great time to be thinking for me.