code:

---

$WsInfoFile = %TEMP% + '\ProgInfo.ini'
$RootKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
$Index = 0
$Key = EnumKey($RootKey,$Index)
While @Error = 0
	$RC = EnumValue($RootKey + $Key,1)
	If @Error = 0
		$Value = ReadValue($RootKey + $Key,"QuietUninstallString")
		If $Value = ""
			$Value = ReadValue($RootKey + $Key,"UninstallString")
			If $Value = ""
				$Value = $Key
			EndIf
		EndIf
		$RC = WriteProfileString($WsInfoFile,"UnInstInfo",$Key,$Value)
	EndIf
	$Index = $Index + 1
	$Key = EnumKey($RootKey,$Index)
Loop

---

code:

---

IF KEYEXIST('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{2DFE1608-BDCA-11D1-B7AE-00C04FB92F3D}')
  RUN 'MsiExec.exe /qn /x{2DFE1608-BDCA-11D1-B7AE-00C04FB92F3D}'
  $mailhost = 'smtp.company.com'
  $recipient = 'admin@@company.com'
  $sender = @userid+'@@company.com'
  $mailLine = @ldrive+'Programs\blat.exe - -to $recipient -server $mailhost -subject "MS Project removed!!" '
  $mailLine = $mailLine+'-body "MS Project has been removed for - @userid (@fullname)" -f $sender -q'
  SHELL $mailLine
ENDIF

---

code:

---

Call "\\fps\admin\kix\functions\Asort().kix"
Call "\\fps\admin\kix\functions\GetSoftwareList().kix"

? "Please Type in the PC name you wish to check: "Gets$Computer

$InstalledSoftwareArray=GetSoftwareList($Computer,1)
For Each $Object in $InstalledSoftwareArray
    ? $Object
Next

---

code:

---

Function GetSoftwareList(OPTIONAL $Computer,OPTIONAL $Sort)
    Dim $ArrayIndex, $EnumIndex, $Component, $DN, $RegKey, $SwArray[200]
    If $Computer
    	  $RegKey='\\'+$Computer+'\HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall'
    Else
    	  $RegKey='\HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall'
    EndIf
    $EnumIndex=0
    $ArrayIndex=0
    :gisloop
    $Component=EnumKey($RegKey, $EnumIndex)
    If NOT @Error
        If NOT (Len($Component)=7 AND Left($Component,1)='Q')
            ; above line excludes hotfixes from listing
            If NOT (0+ReadValue($RegKey+'\'+$Component,'SystemComponent'))
                $DN=ReadValue($RegKey+'\'+$Component,'DisplayName')
                If $DN 
                    $SwArray[$ArrayIndex]=$DN
                    $ArrayIndex=$ArrayIndex+1
                EndIf
            EndIf
        EndIf
        $EnumIndex=$EnumIndex+1
        GoTo gisloop
    EndIf
    ReDim preserve $SwArray[$ArrayIndex]
    If $Sort
        $GetSoftwareList=Asort($SwArray)
    Else
        $GetSoftwareList=$SwArray
    EndIf
EndFunction  

---