Created W10DebloaterGUI.ps1

This will be the newer version going forward. Any feedback is appreciated. This is still in development.

W10DebloaterGUI.ps1

@@ -0,0 +1,264 @@
+<# This form was created using POSHGUI.com  a free online gui designer for PowerShell
+.NAME
+    Untitled
+#>
+
+#This will self elevate the script so with a UAC prompt since this script needs to be run as an Administrator in order to function properly.
+
+<#$ErrorActionPreference = 'SilentlyContinue'
+
+$Button = [System.Windows.MessageBoxButton]::YesNoCancel
+$ErrorIco = [System.Windows.MessageBoxImage]::Error
+$Ask = 'Do you want to run this as an Administrator?
+
+        Select "Yes" to Run as an Administrator
+
+        Select "No" to not run this as an Administrator
+        
+        Select "Cancel" to stop the script.'
+
+If (!([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole]'Administrator')) {
+    $Prompt = [System.Windows.MessageBox]::Show($Ask, "Run as an Administrator or not?", $Button, $ErrorIco) 
+    Switch ($Prompt) {
+        #This will debloat Windows 10
+        Yes {
+            Write-Host "You didn't run this script as an Administrator. This script will self elevate to run as an Administrator and continue."
+            Start-Process PowerShell.exe -ArgumentList ("-NoProfile -ExecutionPolicy Bypass -File `"{0}`"" -f $PSCommandPath) -Verb RunAs
+            Exit
+        }
+        No {
+            Break
+        }
+    }
+}#>
+
+$DebloatFolder = "C:\Temp\Windows10Debloater"
+If (Test-Path $DebloatFolder) {
+    Write-Host "${DebloatFolder} exists." 
+
+    Remove-Item -name 
+}
+Else {
+    Write-Host "The folder ${DebloatFolder} doesn't exist. This folder will be used for storing logs created after the script runs. Creating now."
+    Start-Sleep 1
+    New-Item -Path "${DebloatFolder}" -ItemType Directory
+    Write-Host "The folder ${DebloatFolder} was successfully created."
+}
+
+Start-Transcript -OutputDirectory "${DebloatFolder}"
+
+Add-Type -AssemblyName System.Windows.Forms
+[System.Windows.Forms.Application]::EnableVisualStyles()
+
+$Form = New-Object system.Windows.Forms.Form
+$Form.ClientSize = '875,616'
+$Form.text = "Windows 10 Debloater"
+$Form.TopMost = $false
+
+$ListBox1 = New-Object system.Windows.Forms.ListBox
+$ListBox1.text = "listBox"
+$ListBox1.width = 300
+$ListBox1.height = 494
+$ListBox1.location = New-Object System.Drawing.Point(3, 116)
+$ListBox1.SelectionMode = 'MultiExtended'
+
+
+$TextBox1 = New-Object system.Windows.Forms.RichTextBox
+$TextBox1.multiline = $True
+$TextBox1.width = 535
+$TextBox1.height = 400
+$TextBox1.location = New-Object System.Drawing.Point(325, 200)
+$TextBox1.Font = 'Microsoft Sans Serif,10'
+
+
+$Button1 = New-Object system.Windows.Forms.Button
+$Button1.text = "Uninstall"
+$Button1.width = 80
+$Button1.height = 30
+$Button1.location = New-Object System.Drawing.Point(5, 80)
+$Button1.Font = 'Microsoft Sans Serif,10'
+
+$Button2 = New-Object system.Windows.Forms.Button
+$Button2.text = "Apply Checkbox Changes"
+$Button2.width = 175
+$Button2.height = 30
+$Button2.location = New-Object System.Drawing.Point(685, 165)
+$Button2.Font = 'Microsoft Sans Serif,10'
+
+$Label1                          = New-Object system.Windows.Forms.Label
+$Label1.text                     = "-----------------------------------------------------------------------------------------------------------------"
+$Label1.AutoSize                 = $true
+$Label1.width                    = 50
+$Label1.height                   = 10
+$Label1.location                 = New-Object System.Drawing.Point(305,108)
+$Label1.Font                     = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
+
+$CheckBox1                       = New-Object system.Windows.Forms.CheckBox
+$CheckBox1.text                  = "Enable Cortana"
+$CheckBox1.AutoSize              = $false
+$CheckBox1.width                 = 125
+$CheckBox1.height                = 20
+$CheckBox1.location              = New-Object System.Drawing.Point(325,175)
+$CheckBox1.Font                  = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
+
+$CheckBox2                       = New-Object system.Windows.Forms.CheckBox
+$CheckBox2.text                  = "Disable Cortana"
+$CheckBox2.AutoSize              = $false
+$CheckBox2.width                 = 125
+$CheckBox2.height                = 20
+$CheckBox2.location              = New-Object System.Drawing.Point(325,150)
+$CheckBox2.Font                  = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
+
+$CheckBox3                       = New-Object system.Windows.Forms.CheckBox
+$CheckBox3.text                  = "Uninstall OneDrive"
+$CheckBox3.AutoSize              = $false
+$CheckBox3.width                 = 140
+$CheckBox3.height                = 20
+$CheckBox3.location              = New-Object System.Drawing.Point(475,150)
+$CheckBox3.Font                  = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
+
+$CheckBox4                       = New-Object system.Windows.Forms.CheckBox
+$CheckBox4.text                  = "Unpin Tiles From Start Menu"
+$CheckBox4.AutoSize              = $false
+$CheckBox4.width                 = 200
+$CheckBox4.height                = 20
+$CheckBox4.location              = New-Object System.Drawing.Point(475,175)
+$CheckBox4.Font                  = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
+
+
+$Form.controls.AddRange(@($ListBox1, $Button1, $Button2, $TextBox1, $CustomizeBlacklists, $CustomizeForm, $SaveList, $CustomizeBlacklists, $Checkbox1, $Checkbox2, $CheckBox3, $CheckBox4, $Label1))
+
+$global:Bloatware = @(
+    "Microsoft.PPIProjection"
+    "Microsoft.BingNews"
+    "Microsoft.GetHelp"
+    "Microsoft.Getstarted"
+    "Microsoft.Messaging"
+    "Microsoft.Microsoft3DViewer"
+    "Microsoft.MicrosoftOfficeHub"
+    "Microsoft.MicrosoftSolitaireCollection"
+    "Microsoft.NetworkSpeedTest"
+    "Microsoft.News"                                    # Issue 77
+    "Microsoft.Office.Lens"                             # Issue 77
+    "Microsoft.Office.OneNote"
+    "Microsoft.Office.Sway"
+    "Microsoft.OneConnect"
+    "Microsoft.People"
+    "Microsoft.Print3D"
+    "Microsoft.RemoteDesktop"                           # Issue 120
+    "Microsoft.SkypeApp"
+    "Microsoft.StorePurchaseApp"
+    "Microsoft.Office.Todo.List"                        # Issue 77
+    "Microsoft.Whiteboard"                              # Issue 77
+    "Microsoft.WindowsAlarms"
+    "microsoft.windowscommunicationsapps"
+    "Microsoft.WindowsFeedbackHub"
+    "Microsoft.WindowsMaps"
+    "Microsoft.WindowsSoundRecorder"
+    "Microsoft.Xbox.TCUI"
+    "Microsoft.XboxApp"
+    "Microsoft.XboxGameOverlay"
+    "Microsoft.XboxGamingOverlay"
+    "Microsoft.XboxIdentityProvider"
+    "Microsoft.XboxSpeechToTextOverlay"
+    "Microsoft.ZuneMusic"
+    "Microsoft.ZuneVideo"
+
+    #Sponsored Windows 10 AppX Apps
+    #Add sponsored/featured apps to remove in the "*AppName*" format
+    "EclipseManager"
+    "ActiproSoftwareLLC"
+    "AdobeSystemsIncorporated.AdobePhotoshopExpress"
+    "Duolingo-LearnLanguagesforFree"
+    "PandoraMediaInc"
+    "CandyCrush"
+    "BubbleWitch3Saga"
+    "Wunderlist"
+    "Flipboard"
+    "Twitter"
+    "Facebook"
+    "Spotify"                                           # Issue 123
+    "Minecraft"
+    "Royal Revolt"
+    "Sway"                                              # Issue 77
+    "Dolby"                                             # Issue 78
+
+    #Optional: Typically not removed but you can if you need to for some reason
+    #"Microsoft.Advertising.Xaml_10.1712.5.0_x64__8wekyb3d8bbwe"
+    #"Microsoft.Advertising.Xaml_10.1712.5.0_x86__8wekyb3d8bbwe"
+    #"Microsoft.BingWeather"
+)
+
+#$Windows10AppsFolder = Get-Item -path "C:\Program Files\WindowsApps\*"
+foreach ($Bloat in $Bloatware) {
+    
+    #$Apps = $App.Trim("C:\Program Files\WindowsApps\")
+    $ListBox1.Items.Add($Bloat)
+    $ListBox1.Sorted = $True
+    
+}
+
+$SelectedBloatware = $ListBox1.SelectedItems
+$Button1.Add_Click( {
+        
+
+        ForEach ($Selected in $SelectedBloatware) {
+            $TextBox1.AppendText("Trying to remove $Selected...
+")
+
+            Try {
+                If (Test-Path "C:\Program Files\WindowsApps\*$Selected*") {
+                    Get-AppxPackage | Where-Object { ($_.Name -match $Selected) } | Remove-AppxPackage
+                    Get-AppxProvisionedPackage -Online | Where-Object { ($_.Name -match $Selected) } | Remove-AppxProvisionedPackage -Online
+                    Get-AppxPackage -AllUsers | Where-Object { ($_.Name -match $Selected) } | Remove-AppxPackage
+
+                    $TextBox1.AppendText("Successfully removed $Selected!
+                    
+")
+}
+                Else {
+    
+                    If (!(Test-Path "C:\Program Files\WindowsApps\*$Selected*")) {
+                        $TextBox1.AppendText("$Selected doesn't exist on this machine! 
+
+")
+                    }
+          
+                }
+
+            }
+
+            Catch {
+                $TextBox1.AppendText("$_")
+    
+            }
+        }
+    
+} )
+
+<#$CheckBox1.Add_CheckedChanged( {
+
+    #Enables Cortana to be used as part of your Windows Search Function
+        $Textbox1.AppendText("Re-enabling Cortana to be used in your Windows Search")
+        $Search = "HKLM:\SOFTWARE\Policies\Microsoft\Windows\Windows Search"
+        If (Test-Path $Search) {
+            Set-ItemProperty $Search  AllowCortana -Value 1 
+        }
+
+} ) #>
+
+$Button2.Add_Click( { 
+
+    If ($CheckBox1.Checked) {
+    
+       $Textbox1.AppendText("Re-enabling Cortana to be used in your Windows Search")
+        $Search = "HKLM:\SOFTWARE\Policies\Microsoft\Windows\Windows Search"
+        If (Test-Path $Search) {
+            Set-ItemProperty $Search  AllowCortana -Value 1 
+        } 
+    
+    }
+
+} )
+
+[void]$Form.ShowDialog()