How to Retrieve Uninstall Apps Remotely?

CriscoLeet — Tue, 16 Oct 2012 05:00:00 GMT

Hello there,

I am a beginner at Powershell and I attempting to write a script to retrieve uninstall software.

Here is what I have so far...


[void][System.Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic')
$PCName = [Microsoft.VisualBasic.Interaction]::InputBox("Enter IP or name of computer to check for Installed Applications (leave blank to check local system).

Remote checking only from NT type OS to NT type OS with same Admin level UID & PW", "PS Installed Apps")

Invoke-Command -ScriptBlock {$RegLoc = Get-ChildItem HKLM:\Software\Microsoft\Windows\CurrentVersion\Uninstall
$Programs = $RegLoc | foreach {Get-ItemProperty $_.PsPath}

Foreach ($Name in $Programs | Sort-Object DisplayName) `
{Write-Host $Name.Displayname
}} -ComputerName $PCName
Pause

Now I like the above code however I am trying to exclude any thing with Security Update for Windows*, however I have been unsuccessful.

I have found another online which does what I need however I cannot get it to run remotely...


$updates=@{}

$unistallPath = "\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
   $unistallWow6432Path = "\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\"
   @(
   if (Test-Path "HKLM:$unistallWow6432Path" ) { Get-ChildItem "HKLM:$unistallWow6432Path"}
   if (Test-Path "HKLM:$unistallPath" ) { Get-ChildItem "HKLM:$unistallPath" }
   if (Test-Path "HKCU:$unistallWow6432Path") { Get-ChildItem "HKCU:$unistallWow6432Path"}
   if (Test-Path "HKCU:$unistallPath" ) { Get-ChildItem "HKCU:$unistallPath" }
   ) |
   ForEach-Object { Get-ItemProperty $_.PSPath } |
   Where-Object {
     $_.DisplayName -and !$_.SystemComponent -and !$_.ReleaseType -and !$_.ParentKeyName -and ($_.UninstallString -or $_.NoRemove)
   } |  % {$updates[$_.DisplayName.ToString()]+=@($_)}

$DisplayNames = $updates.Keys | Sort-Object | Out-GridView -Title "Installed Applications"

Any Help is greatly appreciated.

Re: How to get MS Office product key

Aleksandar — Mon, 18 May 2009 05:00:00 GMT

This script will give you a nice object with ComputerName, ProductName (tested on Office and Visio), and ProductKey.

Works against the local and a remote computer. You can pass an array of computer names.

function Get-MSOfficeProductKey {
    param(
    [string[]]$computerName = "."
    )

    $product = @()
    $hklm = 2147483650
    $path = "SOFTWARE\Microsoft\Office"

    foreach ($computer in $computerName) {

        $wmi = [WMIClass]"\\$computer\root\default:stdRegProv"

        $subkeys1 = $wmi.EnumKey($hklm,$path)
        foreach ($subkey1 in $subkeys1.snames) {
            $subkeys2 = $wmi.EnumKey($hklm,"$path\$subkey1")
            foreach ($subkey2 in $subkeys2.snames) {
                $subkeys3 = $wmi.EnumKey($hklm,"$path\$subkey1\$subkey2")
                foreach ($subkey3 in $subkeys3.snames) {
                    $subkeys4 = $wmi.EnumValues($hklm,"$path\$subkey1\$subkey2\$subkey3")
                    foreach ($subkey4 in $subkeys4.snames) {
                        if ($subkey4 -eq "digitalproductid") {
                            $temp = "" | select ComputerName,ProductName,ProductKey
                            $temp.ComputerName = $computer
                            $productName = $wmi.GetStringValue($hklm,"$path\$subkey1\$subkey2\$subkey3","productname")
                            $temp.ProductName = $productName.sValue

                            $data = $wmi.GetBinaryValue($hklm,"$path\$subkey1\$subkey2\$subkey3","digitalproductid")
                            $valueData = ($data.uValue)[52..66]

                            # decrypt base24 encoded binary data 
                            $productKey = ""
                            $chars = "BCDFGHJKMPQRTVWXY2346789"
                            for ($i = 24; $i -ge 0; $i--) { 
                                $r = 0 
                                for ($j = 14; $j -ge 0; $j--) { 
                                    $r = ($r * 256) -bxor $valueData[$j] 
                                    $valueData[$j] = [math]::Truncate($r / 24)
                                    $r = $r % 24 
                                } 
                                $productKey = $chars[$r] + $productKey 
                                if (($i % 5) -eq 0 -and $i -ne 0) { 
                                    $productKey = "-" + $productKey 
                                } 
                            } 
                            $temp.ProductKey = $productKey
                            $product += $temp
                        }
                    }
                }
            }
        }
    }
    $product
}

# Example:
# Get-MSOfficeProductKey Serv01,Serv02 | Format-Table * -auto

# Get-MSOfficeProductKey -computerName (Get-Content servers.txt)

Search results for 'app:forums' matching tags 'remote' and 'Registry'

How to Retrieve Uninstall Apps Remotely?

Re: How to get MS Office product key