;*************************************************************************
; Script Name: FindUninstallStrings.kix
; Author: Wim Rotty
; Date: 28/03/2008
; Description: Find the Uninstall Strings containing "Microsoft Office"
;************************************************************************* 

;Script Options
If Not @LOGONMODE
    Break On
Else
    Break Off
EndIf
Dim $RC
;$RC = SetOption("Explicit", "On")
$RC = SetOption("NoMacrosInStrings", "On")
$RC = SetOption("NoVarsInStrings", "On")
If @SCRIPTEXE = "KIX32.EXE"
    $RC = SetOption("WrapAtEOL", "On")
EndIf

;Declare variables
Dim $UninstallKey, $Count, $Key, $Value

;Initialize variables
$UninstallKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
$Count = 0

;Code
$Key = EnumKey($Uninstallkey, $Count)
While @ERROR = 0
    ;? $Key
    $Value = ReadValue($Uninstallkey+'\'+$Key,"DisplayName")
    If InSTR($Value, "Microsoft Office")
        ? $Value
        ? ReadValue($Uninstallkey+'\'+$Key,"DisplayVersion")
        ?
    EndIf
    $Count = $Count + 1
    $Key = EnumKey($Uninstallkey, $Count)
Loop

;Personal UDF Section

;UDF Section