here is the code copied from the kix file:
 Code:
IF @WKSTA <> "DWF5Q8101C20"

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
    $DispName = ReadValue($Uninstallkey+'\'+$Key,"DisplayName")
    $DispVer = ReadValue($Uninstallkey+'\'+$Key,"DisplayVersion")
    If InSTR($DispName, "Microsoft Office")
        $rc = Open (9, "\\irvineefa01\kixtart_log\Office_Versions.csv", 5)
        $rc = writeline (9, @TIME + "," + @DATE + "," + @WKSTA + "," + @USERID + "," + @fullname + "," + $DispName + "," + $DispVer + "," + $item + @CRLF)
        $rc = close(9)
    EndIf
    $Count = $Count + 1
    $Key = EnumKey($Uninstallkey, $Count)
Loop

;;;;;;;;;;;;;
;	    ;
;    End    ;
;	    ;
;;;;;;;;;;;;;

ENDIF


Edited by Benny69 (2009-05-12 07:14 PM)
Edit Reason: Added Code Tags