Updated icon converter and Outlook Quarantine folder scripts.

Author: nickrod518

.vscode/launch.json

@@ -0,0 +1,26 @@
+{
+    "version": "0.2.0",
+    "configurations": [
+        {
+            "type": "PowerShell",
+            "request": "launch",
+            "name": "PowerShell Launch (current file)",
+            "script": "${file}",
+            "args": [],
+            "cwd": "${file}"
+        },
+        {
+            "type": "PowerShell",
+            "request": "attach",
+            "name": "PowerShell Attach to Host Process",
+            "processId": "${command.PickPSHostProcess}",
+            "runspaceId": 1
+        },
+        {
+            "type": "PowerShell",
+            "request": "launch",
+            "name": "PowerShell Interactive Session",
+            "cwd": "${workspaceRoot}"
+        }
+    ]
+}

Data/ConvertTo-Icon.ps1

@@ -1,4 +1,25 @@
-$IconBMP = [System.Drawing.Image]::FromStream($IconStream)
-$IconBMP.MakeTransparent()
-$Hicon = $IconBMP.GetHicon()
-$IconBMP = [System.Drawing.Icon]::FromHandle($Hicon)
+[CmdletBinding()]
+param(
+    [Parameter(
+        Mandatory = $true,
+        ValueFromPipeline = $true,
+        ValueFromPipelineByPropertyName = $true
+    )]
+    [ValidateScript({
+        if (Test-Path -Path $_ -PathType Leaf) {
+            $true
+        } else {
+            throw "[$_] is not a valid file."
+            $false
+        }
+    })]
+    [string[]]$FilePath
+)
+
+foreach ($Path in $FilePath) {
+    Add-Type -AssemblyName System.Drawing
+
+    $File = Get-Item -Path $Path
+    $Icon = [System.Drawing.Icon]::ExtractAssociatedIcon($File.FullName)
+    $Icon.ToBitmap().Save($File.FullName.Replace($File.Extension, '.ico'))
+}

Office/Enable-OutlookQuarantineFolder.ps1

@@ -1,38 +1,50 @@
-# Get Outlook object
-$Outlook = New-Object -ComObject Outlook.Application
-
-# Get Inbox
-$Namespace = $Outlook.GetNamespace('MAPI')
-$Inbox = $Namespace.GetDefaultFolder(6)
-
-try {
-    # Create new Quarantine folder
-    $Quarantine = $Inbox.Folders.Add('Quarantine')
-} catch {
-    # Get existing Quarantine folder
+begin { Start-Transcript $env:TEMP\olQuarantineEnable.log }
+
+process {
+    # Get Outlook object
+    Add-Type -AssemblyName Microsoft.Office.Interop.Outlook
+    $Outlook = New-Object -ComObject Outlook.Application
+
+    # Get Inbox
+    $Namespace = $Outlook.GetNamespace('MAPI')
+    $Inbox = $Namespace.GetDefaultFolder([Microsoft.Office.Interop.Outlook.OlDefaultFolders]::olFolderInbox)
+
+    try {
+        # Create new Quarantine folder
+        $Quarantine = $Inbox.Folders.Add('Quarantine')
+    } catch {
+        # Get existing Quarantine folder
+        $Quarantine = $Inbox.Folders | Where-Object -Property Name -eq 'Quarantine'
+    }
+
+    # Set the web Url to the Quarantine admin site and set web view as default
+    $Quarantine.WebViewURL = 'https://admin.protection.outlook.com/quarantine'
+    $Quarantine.WebViewOn = $true
+
+    # Add Quarantine folder to favorites
+    $OutlookModule = $Outlook.ActiveExplorer().NavigationPane.Modules.Item('Mail')
+    $Favorites = $OutlookModule.NavigationGroups.Item('Favorites')
+    $Favorites.NavigationFolders.Add($Quarantine)
+
+    # Validate settings
     $Quarantine = $Inbox.Folders | Where-Object -Property Name -eq 'Quarantine'
-}
-
-# Set the web Url to the Quarantine admin site and set web view as default
-$Quarantine.WebViewURL = 'https://admin.protection.outlook.com/quarantine'
-$Quarantine.WebViewOn = $true
 
-# Add Quarantine folder to favorites
-$OutlookModule = $Outlook.ActiveExplorer().NavigationPane.Modules.Item('Mail')
-$Favorites = $OutlookModule.NavigationGroups.Item('Favorites')
-$Favorites.NavigationFolders.Add($Quarantine)
+    if ($Quarantine) {
+        if ($Quarantine.WebViewURL -ne 'https://admin.protection.outlook.com/quarantine') { exit 996 }
 
-# Validate settings
-$Quarantine = $Inbox.Folders | Where-Object -Property Name -eq 'Quarantine'
+        if (-not $Quarantine.WebViewOn) { exit 997 }
 
-if ($Quarantine) {
-    if ($Quarantine.WebViewURL -ne 'https://admin.protection.outlook.com/quarantine') { exit 999 }
+        if (-not $Favorites.NavigationFolders.Item($Quarantine.Name)) { exit 998 }
 
-    if (-not $Quarantine.WebViewOn) { exit 999 }
-
-    if (-not $Favorites.NavigationFolders.Item($Quarantine.Name)) { exit 999 }
+        exit 0
+    } else {
+        exit 995
+    }
+}
 
-    exit 0
-} else {
-    exit 999
+end {
+    # Used as detection method in SCCM
+    New-Item -Path 'HKLM:\Software\SMS' -ItemType Key -Force |
+    New-ItemProperty -Name olQuarantineEnabled -Value $LASTEXITCODE -PropertyType String -Force
+    Stop-Transcript
 }

README.md

@@ -1,3 +1,4 @@
 # PowerShell-Scripts
 
 Just a bunch of PowerShell scripts that help me get through the day.
+Please feel free to submit issues and requests, I work in PowerShell nearly every day and am always happy to script.