From 2b745dc0d4a69cdb685107f8d41a39cb657c060e Mon Sep 17 00:00:00 2001
From: Ben Hays <benhays@benhays.org>
Date: Sat, 18 Nov 2023 22:46:32 -0500
Subject: [PATCH] Add Program Installation Detection

---
 Get-Programs.ps1 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 Get-Programs.ps1

diff --git a/Get-Programs.ps1 b/Get-Programs.ps1
new file mode 100644
index 0000000..5d2e949
--- /dev/null
+++ b/Get-Programs.ps1
@@ -0,0 +1,15 @@
+# Get-Programs.ps1
+# (c) Ben Hays, 2023
+# Description: Get a list of installed programs for backup purposes
+
+$FinalList = @()
+
+# Grab list from common directories
+$ProgramDirs = "C:\Program Files", "C:\Program Files (x86)"
+$FinalList += Get-ChildItem $ProgramDirs | Where-Object { $_.PSIsContainer } | Select-Object -ExpandProperty Name -Unique | Sort-Object
+
+# Grab list from Windows Registry
+$FinalList += Get-ItemProperty -Path "HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\*" | Where-Object { $_.DisplayName } | Select-Object -ExpandProperty DisplayName -Unique
+$FinalList += Get-ItemProperty -Path "HKLM:\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\*" | Where-Object { $_.DisplayName } | Select-Object -ExpandProperty DisplayName -Unique
+
+Write-Output $FinalList
\ No newline at end of file