check for installed apps on remote pc

[gcue]

this should populate a list.. or does $prog have to be an array?

i checked the help and it didnt show that it needed to be

For $j = 1 To 100
            $key = RegEnumKey("\\" & $asset & "\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $j)
            $prog = RegRead("\\" & $asset & "\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $key, "DisplayName")
            If @error <> 0 Then ContinueLoop
            
            Local $aText[3] = ["Check Installed Programs", @TAB & "Status", @TAB & @TAB & "Writing results to file"]
            Local $aParts[3] = [200, 175, -1]
            $dSTATUS = _GUICtrlStatusBar_Create($dGUI, $aParts, $aText)

            FileWrite($file, '' & @CRLF & _
                    $asset_label & "," & $prog & "," & $status)
        Next

[Danny35d]

Big_Daddy Uninstall Apps may give you some ideas.

Edit:

I remember I did an UDF _InstalledSoftware()

Edited June 17, 2008 by Danny35d

[gcue]

awesome!

thank you VERY much!

Edited June 17, 2008 by gcue