Skip to content

Instantly share code, notes, and snippets.

@UserUnknownFactor

UserUnknownFactor/Disable_Charms_Panel.reg

Last active January 8, 2024 07:26
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save UserUnknownFactor/4a6768f6079ea0b427a9346d34e21807 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save UserUnknownFactor/4a6768f6079ea0b427a9346d34e21807 to your computer and use it in GitHub Desktop.
Download ZIP
Various useful Windows batches
Raw
check_integrity.cmd
DISM.exe /Online /Cleanup-image /Restorehealth
sfc /scannow
rem Dism /Get-ImageInfo /imagefile:D:\install.wim
rem Dism /Online /Cleanup-Image /RestoreHealth /Source:wim:D:\install.wim:1 /limitaccess
rem or
rem powershell Repair-WindowsImage -Online -RestoreHealth -Source D:\install.wim:1
rem Create a virtual hard disk for unpacking the ISO image: Right mouse button:
rem Start button> Disk Management> Action> Create virtual hard disk>
rem determine the location and size (20 GB),
rem select Dynamically expanding> right click: "Disk 1"> Initialize disk >
rem right click: Not Allocated> Create Simple Volume
rem Dism /apply-image /imagefile:D:\install.wim /index:1 /ApplyDir:F:\
rem Repair hidden disks
rem mountvol /?
rem mountvol Y: \\?\Volume...
rem chkdsk /f Y:
rem mountvol Y: /d
rem Check bad clusters
rem fsutil fsinfo ntfsinfo c:
rem wmic partition get Index, Name, StartingOffset
rem set/a (Number - StartingOffset) / (Bytes Per Cluster / Bytes Per Sector)
rem fsutil volume querycluster C: <Calculated Cluster>
rem fsutil file queryextents <File Name>
rem victoria.exe @ hdd.by/victoria
rem nfi.exe \Device\Harddisk0\Partition0 <BadSectorLba>
rem nfi.exe \Device\Harddisk1\Partition0 <BadSectorLba>
Raw
check_wakeup_reasons.cmd
powercfg /devicequery wake_armed
powercfg /waketimers
powercfg /lastwake
Raw
clean_files.cmd
cleanmgr.exe /sageset:10
cleanmgr.exe /sagerun:10
rem Dism.exe /online /Cleanup-Image /StartComponentCleanup
rem Dism.exe /online /Cleanup-Image /StartComponentCleanup /ResetBase
rem If errors, check the logs for clues at:
rem findstr /c:"[SR]" %windir%\Logs\CBS\CBS.log >%userprofile%\Desktop\sfcdetails.log
rem C:\Windows\Logs\CBS\deepclean.log
Raw
clean_thumbs.cmd
taskkill /im explorer.exe /f
attrib -r -s -h "%userprofile%\AppData\Local\*.db"
attrib -r -s -h "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\*.db"
del "%userprofile%\AppData\Local\*.db"
del "%userprofile%\AppData\Local\Microsoft\Windows\Explorer\*.db"
explorer.exe
Raw
cleanup_dps_service.cmd
@echo off
echo ... Set DPS service start type to manual ...
echo.
sc config DPS start= demand
echo.
echo ... Find PID of DPS service ...
for /f "tokens=2 delims=[:]" %%f in ('sc queryex dps ^|find /i "PID"') do set PID=%%f
echo.
echo ... Kill DPS service
echo.
taskkill /f /pid %PID%
echo.
echo ... Delete sru Folder ...
echo.
rd /s "%windir%\system32\sru"
echo.
echo ... Set DPS service start type to auto ...
echo.
sc config DPS start= auto
echo.
echo ... Start DPS service ...
sc start DPS
echo.
pause
Raw
del_temp.ps1
Set-Location "C:\Windows\Temp"
Remove-Item * -recurse -force
Set-Location "c:\Users\UserName\AppData\Local\Temp\"
Remove-Item * -recurse -force
Raw
deny_upd_notify.cmd
cd /d "%Windir%\System32"
takeown /f musnotification.exe
icacls musnotification.exe /deny Everyone:(X)
takeown /f musnotificationux.exe
icacls musnotificationux.exe /deny Everyone:(X)
Raw
disable_background_defrag.cmd
reg add "HKLM\Software\Microsoft\Dfrg\BootOptimizeFunction" /v "Enable" /t REG_SZ /d "n" /f
reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\OptimalLayout" /v "EnableAutoLayout" /t REG_DWORD /d "0" /f
schtasks /Change /TN "Microsoft\Windows\Defrag\ScheduledDefrag" /Disable
sc config defragsvc start= disabled
net stop defragsvc /y
Raw
Disable_Charms_Panel.reg
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ImmersiveShell\EdgeUI]
"DisableCharmsHint"=dword:00000001
"DisableTRCorner"=dword:00000001
Raw
Disable_content_delivery_silent.reg
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\ContentDeliveryManager]
"SilentInstalledAppsEnabled"=dword:00000000
Raw
Disable_Login_Screen.reg
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\PasswordLess\Device]
"DevicePasswordLessBuildVersion"=dword:00000000
Raw
disable_tasks.cmd
schtasks /change /disable /TN "\Microsoft\Windows\Application Experience\Microsoft Compatibility Appraiser"
schtasks /change /disable /TN "\Microsoft\Windows\Application Experience\ProgramDataUpdater"
schtasks /change /disable /TN "\Microsoft\Windows\Application Experience\StartupAppTask"
schtasks /change /disable /TN "\Microsoft\Windows\CloudExperienceHost\CreateObjectTask"
schtasks /change /disable /TN "\Microsoft\Windows\Customer Experience Improvement Program\Consolidator"
schtasks /change /disable /TN "\Microsoft\Windows\Customer Experience Improvement Program\KernelCEIPTask"
schtasks /change /disable /TN "\Microsoft\Windows\Customer Experience Improvement Program\USBCEIP"
schtasks /change /disable /TN "\Microsoft\Windows\Autochk\Proxy"
rem schtasks /change /disable /TN "\Microsoft\Windows\Defrag\ScheduledDefrag"
schtasks /change /disable /TN "\Microsoft\Windows\Diagnosis\Scheduled"
schtasks /change /disable /TN "\Microsoft\Windows\DiskCleanup\SilentCleanup"
schtasks /change /disable /TN "\Microsoft\Windows\DiskDiagnostic\Microsoft-Windows-DiskDiagnosticDataCollector"
schtasks /change /disable /TN "\Microsoft\Windows\Feedback\Siuf\DmClient"
schtasks /change /disable /TN "\Microsoft\Windows\HelloFace\FODCleanupTask"
schtasks /change /disable /TN "\Microsoft\Windows\Location\Notifications"
schtasks /change /disable /TN "\Microsoft\Windows\Location\WindowsActionDialog"
schtasks /change /disable /TN "\Microsoft\Windows\Management\Provisioning\Cellular"
schtasks /change /disable /TN "\Microsoft\Windows\Feedback\Siuf\DmClientOnScenarioDownload"
schtasks /change /disable /TN "\Microsoft\Windows\Maps\MapsToastTask"
schtasks /change /disable /TN "\Microsoft\Windows\Maps\MapsUpdateTask"
schtasks /change /disable /TN "\Microsoft\Windows\Mobile Broadband Accounts\MNO Metadata Parser"
schtasks /change /disable /TN "\Microsoft\Windows\Ras\MobilityManager"
schtasks /change /disable /TN "\Microsoft\Windows\RemoteAssistance\RemoteAssistanceTask"
schtasks /change /disable /TN "\Microsoft\Windows\Servicing\StartComponentCleanup"
schtasks /change /disable /TN "\Microsoft\Windows\Speech\SpeechModelDownloadTask"
schtasks /change /disable /TN "\Microsoft\Windows\Windows Error Reporting\QueueReporting"
schtasks /change /disable /TN "\Microsoft\Windows\WindowsUpdate\sih"
schtasks /change /disable /TN "\Microsoft\Windows\Windows Media Sharing\UpdateLibrary"
schtasks /change /disable /TN "\Microsoft\Windows\WindowsUpdate\Automatic App Update"
schtasks /change /disable /TN "\Microsoft\Windows\WindowsUpdate\Scheduled Start"
schtasks /change /disable /TN "\Microsoft\Windows\AppID\SmartScreenSpecific"
takeown /F %SystemRoot%\System32\Tasks\Microsoft\Windows\UpdateOrchestrator /A /R
icacls %SystemRoot%\System32\Tasks\Microsoft\Windows\UpdateOrchestrator /grant *S-1-5-32-544:F /T
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\Refresh Settings"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\Report policies"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\Schedule scan"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\Schedule scan static task"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\UpdateModelTask"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\USO_UxBroker"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\Schedule work"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\Start Oobe Expedite Work"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\StartOobeAppsScan"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\StartOobeAppsScanAfterUpdate"
schtasks /change /disable /TN "\Microsoft\Windows\UpdateOrchestrator\UUS Failover Task"
schtasks /change /disable /TN "\Microsoft\Windows\Setup\EOSNotify"
schtasks /change /disable /TN "\Microsoft\Windows\SettingSync\BackgroundUploadTask"
schtasks /change /disable /TN "\Microsoft\Windows\SettingSync\NetworkStateChangeTask"
schtasks /change /disable /TN "\Microsoft\Windows\License Manager\TempSignedLicenseExchange"
schtasks /change /disable /TN "\Microsoft\Windows\PushToInstall\Registration"
schtasks /change /disable /TN "\Microsoft\Windows\Subscription\EnableLicenseAcquisition"
schtasks /change /disable /TN "\Microsoft\Windows\WindowsUpdate\Scheduled Start"
schtasks /end /TN "\MicrosoftEdgeUpdateTaskMachineCore"
schtasks /change /disable /TN "\MicrosoftEdgeUpdateTaskMachineCore"
schtasks /change /disable /TN "\MicrosoftEdgeUpdateTaskMachineUA"
schtasks /change /disable /TN "\Microsoft\XblGameSave\XblGameSaveTask"
rem netsh wfp set options netevents=off
Raw
enable_gpedit_whome.cmd
@echo off
pushd "%~dp0"
dir /b %SystemRoot%\servicing\Packages\Microsoft-Windows-GroupPolicy-ClientExtensions-Package~3*.mum >List.txt
dir /b %SystemRoot%\servicing\Packages\Microsoft-Windows-GroupPolicy-ClientTools-Package~3*.mum >>List.txt
for /f %%i in ('findstr /i . List.txt 2^>nul') do dism /online /norestart /add-package:"%SystemRoot%\servicing\Packages\%%i"
pause
Raw
Formatting_with_ReFS_Off.reg
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MiniNT]
"AllowRefsFormatOverNonmirrorVolume"=-
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem]
"RefsDisableLastAccessUpdate"=dword:00000001
Raw
Formatting_with_ReFS_On.reg
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MiniNT]
"AllowRefsFormatOverNonmirrorVolume"=dword:00000001
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem]
"RefsDisableLastAccessUpdate"=dword:00000000
Raw
install_gpedit_home.cmd
FOR %%F IN ("%%SystemRoot%%\servicing\Packages\Microsoft-Windows-GroupPolicy-ClientTools-Package~*.mum") DO (DISM /Online /NoRestart /Add-Package:"%%F")
FOR %%F IN ("%%SystemRoot%%\servicing\Packages\Microsoft-Windows-GroupPolicy-ClientExtensions-Package~*.mum") DO (DISM /Online /NoRestart /Add-Package:"%%F")
Raw
locale_emu_shortcuts.cmd
<# ::: Batch code starts here :::::::::::::::::::::::::::::::::::::::::::::::::
:
: Batch (*.BAT/*.CMD) wrapper for Powershell scripts
:
: Inspiration:
: - https://stackoverflow.com/questions/29645/#8597794
: - https://stackoverflow.com/questions/9074476/#9074483
:
: PowerShell arguments explained:
: -Sta Enables support for file drag'n'drop in Windows forms.
: -NoProfile Makes sure no PowerShell settings disrupts script execution.
: -ExecutionPolicy Bypass Makes sure no PowerShell settings disrupts script execution.
: -WindowStyle hidden Hides the console window.
@echo off
setlocal
:: Run :: Execute this file directly as a PowerShell script
:: No temporary files needed, but errors messages is harder to understand.
set POWERSHELL_BAT_ARGS=%0 %*
if defined POWERSHELL_BAT_ARGS set POWERSHELL_BAT_ARGS=%POWERSHELL_BAT_ARGS:"=\"%
if defined POWERSHELL_BAT_ARGS set POWERSHELL_BAT_ARGS=%POWERSHELL_BAT_ARGS:$=`$%
PowerShell -Sta -NoProfile -ExecutionPolicy Bypass -WindowStyle hidden -Command Invoke-Expression $('$args=@(^&{$args} %POWERSHELL_BAT_ARGS%);'+[String]::Join([char]10,$(Get-Content '%~f0')))
EXIT /B
:: Run DEBUG :: Execute a temporary copy of this file with a *.ps1 extension
:: By running a real *.ps1 file errors messages gets easier to understand.
set TMPFILE=%~d0%~p0%~n0.debug.ps1
COPY "%~f0" "%TMPFILE%" >NUL
PowerShell -Sta -NoProfile -ExecutionPolicy Bypass -File "%TMPFILE%" %*
DEL "%TMPFILE%" >NUL
PAUSE
EXIT /B
#>
## ::: PowerShell Code Starts here ::::::::::::::::::::::::::::::::::::::::::::
### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
### ###
### ============== Locale Emulator Shortcut Creator =============== ###
### ###
### Usage Instructions ###
### ------------------ ###
### Either launch the script normally to get a Graphical User Interface. ###
### The interface will let you create shortcuts that uses Locale ###
### Emulator. ###
### ###
### OR drag'n'drop files onto the script file to create shortcut files ###
### automatically without any graphical interface interaction. These ###
### shortcut files will be created in the same directory as the script ###
### file. ###
### ###
### ###
### Locale Emulator ###
### --------------- ###
### A software that can run applications (that has no Unicode support) ###
### with a different locale than the systems default. ###
### Usually used to run Japanese Games on non-Japanese versions of ###
### Windows. ###
### ###
### Exellent software, highly recommended. ###
### URL: https://pooi.moe/Locale-Emulator/ ###
### ###
### ###
### This Script ###
### ----------- ###
### Creates shortcut files for applications that will run them through ###
### Locale Emulator. ###
### ###
### ###
### Why? ###
### ---- ###
### Shortcut files created by Locale Emulator each requires their own ###
### config file. This config file is created simultaneously and stored ###
### in the targeted applications install directory. ###
### ###
### This script creates shortcut files that can use Locale Emulator ###
### without these extra config files. They instead uses Locale Emulator's ###
### global config file inside Locale Emulator's install directory. ###
### ###
### The script can also be used as a launcher for Locale Emulator. ###
### Applications can be launched directly from the Graphical User ###
### Interface. ###
### ###
### ###
### Author ###
### ------ ###
### Svintoo, 2018-10-11 ###
### ###
# Stop script on any error
$ErrorActionPreference = "Stop"
#REGION BEGIN Script File Location {
# Figure out the absolute path to this script
if (Test-Path -LiteralPath $MyInvocation.MyCommand.Definition) {
# Script file is run as a PowerShell (*.ps1) script.
# This method of finding the script file path is compatible with PowerShell V2 and up.
$script_path = $MyInvocation.MyCommand.Definition
$file_targets = $Args
} else {
# Script file is run as a Batch (*.cmd/*.bat) script.
# Script file path should be in the first argument.
$script_path, $file_targets = $Args
}
$script_file = Split-Path $script_path -Leaf
$script_dir = Split-Path $script_path -Parent
#ENDREGION Script File Location }
#REGION BEGIN Files {
$Files = New-Object PSObject -Property @{
Script = New-Object PSObject -Property @{
Config = Join-Path $script_dir ([IO.Path]::GetFileNameWithoutExtension($script_file) + ".config.xml")
}
LE = New-Object PSObject -Property @{
Runner = "LEProc.exe"
Config = "LEConfig.xml"
Editor = "LEGUI.exe"
}
}
#ENDREGION Files }
#REGION BEGIN Create Shortcut {
function Create-LEShortcutFile {
Param (
<## No Alias ##>[String]$Target, # Mandatory
[Alias("Args") ][String]$TargetArgs,
[Alias("LEPath") ][String]$LocaleEmulatorPath, # Mandatory
[Alias("LangName")][String]$LanguageName,
[Alias("LangID") ][String]$LanguageID, # Mandatory
[Alias("Path") ][String]$ShortcutFilePath, # Mandatory
[Alias("WorkDir") ][String]$WorkingDirectory
)
if (-Not $Target -Or -Not $LocaleEmulatorPath -Or -Not $LanguageID -Or -Not $ShortcutFilePath) {
throw "Create-LEShortcutFile: Missing arguments "
}
if (-Not $WorkingDirectory) { $WorkingDirectory = Split-Path $Target -Parent }
if ($LanguageName) {
$Description = "\(^-^)/ $LanguageName with Locale Emulator \(^-^)/"
} else {
$Description = "\(^-^)/ Run with Locale Emulator \(^-^)/"
}
if (-Not (Test-Path -LiteralPath $ShortcutFilePath)) {
New-Item -ItemType file $ShortcutFilePath | Out-Null
}
$Shell = New-Object -ComObject Shell.Application
$ShortcutDirectory = Split-Path $ShortcutFilePath -Parent
$ShortcutFilename = Split-Path $ShortcutFilePath -Leaf
$Shortcut = $Shell.NameSpace($ShortcutDirectory).ParseName($ShortcutFilename).GetLink
$Shortcut.Description = $Description
$Shortcut.Path = $LocaleEmulatorPath
$Shortcut.Arguments = "-runas `"$LanguageID`" `"$Target`" $TargetArgs".Trim()
$Shortcut.WorkingDirectory = $WorkingDirectory
$Shortcut.SetIconLocation($Target, 0)
$Shortcut.Save() | Out-Null
}
#ENDREGION Create Shortcut }
#REGION BEGIN Get Config {
<#
<?xml version="1.0" encoding="UTF-8" ?>
<Config>
<Language>$Language</Language>
<DefaultSaveDirectory>$DefaultSaveDirectory</DefaultSaveDirectory>
<LELocation>$LELocation</LELocation>
</Config>
#>
function Get-ConfigFile {
$ConfigPath = $Files.Script.Config
if (Test-Path -LiteralPath $ConfigPath -PathType Leaf -ErrorAction SilentlyContinue) {
$config = try{ ([Xml](Get-Content $ConfigPath)).Config } catch {}
}
# Return $Null if config file is not found or can not be parsed
return $config
}
#ENDREGION Get Config }
#REGION BEGIN FileSystem Paths {
<# # Explanation to why a Regular Expression solution is used for normalizing paths # #
# (Join-Path $path1 '') -Eq (Join-Path $path2 '')
# o Handles paths that doesn't exists: "C:\fake\" == "C:\fake\"
# o Handles both \ and /: "C:\asdf\" == "C:/asdf/"
# o Handles missing \ at end of line: "C:\asdf\" == "C:\asdf"
# o Handles multiple \ at end of line: "C:\asdf\" == "C:\asdf\\"
# x Doesn't handle multiple \ anywhere else: "C:\\asdf" != "C:\asdf"
# x Doesn't handle spaces before \ and end: "C: \asdf" != "C:\asdf" #NOTE: Only in PowerShell.
# "C:\asdf " != "C:\asdf" Not valid in Batch (cmd).
# (Get-ItemProperty -LiteralPath $path1).FullName -Eq (Get-ItemProperty -LiteralPath $path2).FullName
# x Doesn't handle paths that doesn't exists: "C:\fake\" != "C:\fake\"
# o Handles both \ and /: "C:\asdf\" == "C:/asdf/"
# x Doesn't handle missing \ at end of line: "C:\asdf\" != "C:\asdf"
# o Handles multiple \ at end of line: "C:\asdf\" == "C:\asdf\\"
# o Handles multiple \ anywhere else: "C:\\asdf" != "C:\asdf"
# o Handles spaces before \ and end: "C: \asdf" == "C:\asdf" #NOTE: Only in PowerShell.
# "C:\asdf " != "C:\asdf" Not valid in Batch (cmd).
# -Not (Compare-Object (Get-ItemProperty -LiteralPath $path1) (Get-ItemProperty -LiteralPath $path2))
# NO! Returns $Null if EQUAL. Code is hard to understand.
# AND doesn't handle paths that doesn't exists.
#>
# All strings that resolve to the same file system path are here normalized to the same string
function Normalize-Path([String]$path) {
# C:/path/somewhere => C:\path\somewhere
# C:\path\\somewhere => C:\path\somewhere
# C:\path\somewhere\ => C:\path\somewhere
# C:\path \somewhere => C:\path\somewhere # PowerShell ignores whitespaces at end of file/folder names
$path -Replace "/", "\" `
-Replace "\\\\+", "\" `
-Replace "\\$", "" `
-Replace " +\\", "\"
}
# Compare two or more file system paths
function Equal-Paths {
if ($Args.Count -LT 2) {
throw "Equal-Paths: At least two paths are needed for comparison"
}
$reference_path = Normalize-Path $Args[0]
for ($i = 1 ; $i -LT $Args.Count ; $i++) {
$path = Normalize-Path $Args[$i]
if ($path -NE $reference_path) {
return $False
}
}
return $True
}
#ENDREGION FileSystem Paths }
#REGION BEGIN Locale Emulator Functions {
function Verify-LEDirectory([String]$Directory) {
# Test-Path arguments '-ErrorAction SilentlyContinue' is ignored when:
# - using arguments '-PathType Container', OR
# - receiving an empty string ("") as path.
# Hence the try-catch.
$dir_exists = try { Test-Path -LiteralPath $Directory -PathType Container } catch { $False }
if (-Not $dir_exists) { return $False }
if (-Not (Test-Path -LiteralPath (Join-Path -Path $Directory -ChildPath $Files.LE.Runner))) { return $False }
if (-Not (Test-Path -LiteralPath (Join-Path -Path $Directory -ChildPath $Files.LE.Config))) { return $False }
return $True
}
function Get-LEDirectories {
Param (
[String]$ConfigLEDirectory = ""
)
$LEDirs = New-Object System.Collections.ArrayList
# Config directory
if ($ConfigLEDirectory) {
$DirectoryPath = $ConfigLEDirectory
$Valid = Verify-LEDirectory $DirectoryPath
$LEDirs.Add((New-Object PSObject -Property @{Path = $DirectoryPath; Valid = $Valid})) | Out-Null
}
# Script directory
$DirectoryPath = $script_dir
$Valid = Verify-LEDirectory $DirectoryPath
if ($Valid) {
$LEDirs.Add((New-Object PSObject -Property @{Path = $DirectoryPath; Valid = $Valid})) | Out-Null
}
# Install directory
if (-Not (Test-Path "HKCR:")) { New-PSDrive -Name HKCR -PSProvider Registry -Root HKEY_CLASSES_ROOT | Out-Null }
$regKeyName = "HKCR:\CLSID\{C52B9871-E5E9-41FD-B84D-C5ACADBEC7AE}\InprocServer32"
$regValueName = "CodeBase"
if (Test-Path $regKeyName) {
$regKey = Get-Item $regKeyName
$LE_DLLPath = [String](Get-ItemProperty $regKey.PSPath).$regValueName
if ($LE_DLLPath) {
#Ex: $LE_DLLPath = "file:///C:/path/to/Locale Emulator/LEContextMenuHandler.DLL"
$DirectoryPath = $LE_DLLPath -Replace '^file:///','' -Replace '/[^/]+$','' -Replace '/','\'
$Valid = Verify-LEDirectory $DirectoryPath
$LEDirs.Add((New-Object PSObject -Property @{Path = $DirectoryPath; Valid = $Valid})) | Out-Null
}
}
return ,$LEDirs
}
# Returns a list of the profiles in Locale Emulator's config file.
function Get-LELanguages([String]$Directory) {
[XML]$Config = Get-Content (Join-Path -Path $Directory -ChildPath $Files.LE.Config)
# ArrayList is used instead of Powershell arrays because:
# - Faster when changing the number of elements in the array.
# - required when used with ComboBoxes in Windows Forms.
$Languages = New-Object System.Collections.ArrayList
if ($Config.LEConfig.Profiles.Profile -Is [Xml.XmlLinkedNode]) {
# Only one <Profile> element in XML document
$Profiles = @($Config.LEConfig.Profiles.Profile)
} elseif ($Config.LEConfig.Profiles.Profile -Is [Array]) {
# Multiple <Profile> elements in XML document
$Profiles = $Config.LEConfig.Profiles.Profile
}
$Profiles | % {
if ($_.Name -And $_.Guid) {
$Language = New-Object PSObject -Property @{Name = $_.Name; Guid = $_.Guid}
$Languages.Add($Language) | Out-Null
}
}
return ,$Languages
}
#ENDREGION Locale Emulator Functions }
### ### ### ### ### The Automatic Part ### ### ### ### ###
### ###
### No user interaction here. ###
### ###
### File paths are received through script arguments ###
### (by drag'n'drop) and shortcuts are created ###
### automatically. ###
### ###
### NOTE: Settings in the config file are used here ###
### ###
#REGION BEGIN NoGUI {
Add-Type -AssemblyName PresentationFramework
if ($file_targets.Count -GT 0) {
# Verify that all targets exists
ForEach ($Target in $file_targets) {
$TargetExists = Test-Path -LiteralPath $Target -PathType Leaf -ErrorAction SilentlyContinue
if (-Not $TargetExists) {
[System.Windows.MessageBox]::Show("File not found: $Target")
Exit
}
}
# Parse config file (if it exists)
$Config = Get-ConfigFile
# Find Locale Emulator
if ($Config) {
$LEDirectories = Get-LEDirectories -ConfigLEDirectory $Config.LELocation
$LanguageName = $Config.Language
} else {
$LEDirectories = Get-LEDirectories
}
if ($LEDirectories.Count -Eq 0) {
[System.Windows.MessageBox]::Show("Can't find Locale Emulator")
Exit
}
$LEDirectory = $LEDirectories[0]
if (-Not $LEDirectory.Valid) {
[System.Windows.MessageBox]::Show("Configured path to Locale Emulator is invalid: ${$LEDirectory.Path}")
Exit
}
$LocaleEmulatorPath = Join-Path $LEDirectory.Path $Files.LE.Runner
# Fetch all available Languages (Profiles) configured in Locale Emulator
$Languages = Get-LELanguages $LEDirectory.Path
if ($Languages.Count -Eq 0) {
[System.Windows.MessageBox]::Show("Locale Emulator has no configured profiles: ${Join-Path $LEDirectory.Path $Files.LE.Config}")
Exit
}
# Select one language
if ($LanguageName) {
$Language = $Languages | Where { $_.Name -Eq $LanguageName } | Select -First 1
}
if (-Not $Language) { $Language = $Languages[0] }
# Create all shortcut files and save them to the script directory
ForEach ($Target in $file_targets) {
$ShortcutFilename = [IO.Path]::GetFileNameWithoutExtension($Target)
$ShortcutFilename = "(LE)" + $ShortcutFilename + ".lnk"
$ShortcutFilePath = Join-Path $script_dir $ShortcutFilename
Create-LEShortcutFile -Target $Target `
-LocaleEmulatorPath $LocaleEmulatorPath `
-LanguageName $Language.Name `
-LanguageID $Language.Guid `
-ShortcutFilePath $ShortcutFilePath
}
Exit
}
#ENDREGION NoGUI }
### ### ### ### ### The Interactive Part ### ### ### ### ###
### ###
### Displays a Graphical User Interface (GUI) ###
### ###
### A user can here select files and configure settings ###
### before deciding to either create shortcuts OR launch ###
### a selected file directly. ###
### ###
### Selected settings can be saved and remembered. ###
### ###
#REGION BEGIN GUI {
<# This form was created using POSHGUI.com a free online gui designer for PowerShell #>
Add-Type -AssemblyName System.Windows.Forms
[System.Windows.Forms.Application]::EnableVisualStyles()
#REGION BEGIN GUI Colors {
$TextBoxColors = New-Object PSObject -Property @{
None = [System.Drawing.Color]::Empty
Invalid = "255,235,238" # Light Pink (textbox bgcolor, used when text is invalid)
}
#ENDREGION GUI Colors }
#REGION BEGIN GUI Elements {
$Form = New-Object System.Windows.Forms.Form
$Form.ClientSize = New-Object System.Drawing.Size(400,400) #'400,400'
$Form.Text = "LE Shortcut Creator"
$Form.TopMost = $False
$Form.MaximizeBox = $False
$Form.SizeGripStyle = "Hide"
$Form.StartPosition = "CenterScreen" # Manual, CenterScreen, WindowsDefaultLocation, WindowsDefaultBounds, CenterParent
$Form.FormBorderStyle = 'FixedDialog' # None, FixedSingle, Fixed3D, FixedDialog, Sizable, FixedToolWindow, SizableToolWindow
$labels_x = 9
$browse_buttons_width = 74
$browse_buttons_height = 24
$browse_buttons_x = 316
$browse_textbox_width = 304
$browse_textbox_height = 22
$lang_buttons_width = 88
$lang_buttons_height = 26
$bottom_buttons_y = 360
$Target_Label = New-Object System.Windows.Forms.Label
$Target_Label.Text = "Target(s)"
$Target_Label.AutoSize = $True
$Target_Label.Width = 25
$Target_Label.Height = 10
$Target_Label.Location = New-Object System.Drawing.Point($labels_x,5)
$Target_TextBox = New-Object System.Windows.Forms.TextBox
$Target_TextBox.Multiline = $False
$Target_TextBox.Width = $browse_textbox_width
$Target_TextBox.Height = $browse_textbox_height
$Target_TextBox.Location = New-Object System.Drawing.Point(11,24)
Add-Member -InputObject $Target_TextBox -MemberType "NoteProperty" -Name "Targets" -Value @()
# Note that the initial directory fallback below is modified during execution
Add-Member -InputObject $Target_TextBox -MemberType "NoteProperty" -Name "FileBrowserInitialDirectoryFallback" `
-Value $script_dir
$Target_Button = New-Object System.Windows.Forms.Button
$Target_Button.Text = "Browse..."
$Target_Button.Width = $browse_buttons_width
$Target_Button.Height = $browse_buttons_height
$Target_Button.Location = New-Object System.Drawing.Point($browse_buttons_x,23)
$Args_Label = New-Object System.Windows.Forms.Label
$Args_Label.Text = "Target Arguments (optional)"
$Args_Label.AutoSize = $True
$Args_Label.Width = 25
$Args_Label.Height = 10
$Args_Label.Location = New-Object System.Drawing.Point($labels_x,59)
$Args_TextBox = New-Object System.Windows.Forms.TextBox
$Args_TextBox.Multiline = $False
$Args_TextBox.Width = $browse_textbox_width + $browse_buttons_width
$Args_TextBox.Height = $browse_textbox_height
$Args_TextBox.Location = New-Object System.Drawing.Point(11,78)
$Lang_Groupbox = New-Object System.Windows.Forms.Groupbox
$Lang_Groupbox.Height = 56
$Lang_Groupbox.Width = 378
$Lang_Groupbox.Text = "Language"
$Lang_Groupbox.Location = New-Object System.Drawing.Point(11,119)
$Lang_ComboBox = New-Object System.Windows.Forms.ComboBox
$Lang_ComboBox.Width = 266
$Lang_ComboBox.Height = 24
$Lang_ComboBox.Location = New-Object System.Drawing.Point(9,19)
$Lang_ComboBox.DropDownStyle = "DropDownList"
$Lang_ComboBox.DisplayMember = "Name"
$Lang_ComboBox.ValueMember = "Guid"
$Lang_ComboBox.DataSource = New-Object System.Collections.ArrayList(@(,@(New-Object PSObject -Property @{Name="";Guid=""})))
$Lang_Button_Edit = New-Object System.Windows.Forms.Button
$Lang_Button_Edit.Text = "Edit List"
$Lang_Button_Edit.Width = $lang_buttons_width
$Lang_Button_Edit.Height = $lang_buttons_height
$Lang_Button_Edit.Location = New-Object System.Drawing.Point(282,18)
$Lang_Button_Edit.Enabled = $False
$SaveSettings_Checkbox = New-Object System.Windows.Forms.Checkbox
$SaveSettings_Checkbox.Text = "Remember Settings"
$SaveSettings_Checkbox.AutoSize = $True
$SaveSettings_Checkbox.AutoCheck = $True
$SaveSettings_Checkbox.Location = New-Object System.Drawing.Point(($labels_x+2),187)
$SaveDir_Label = New-Object System.Windows.Forms.Label
$SaveDir_Label.Text = "Default Save directory"
$SaveDir_Label.AutoSize = $True
$SaveDir_Label.Width = 25
$SaveDir_Label.Height = 10
$SaveDir_Label.Location = New-Object System.Drawing.Point($labels_x,223)
$SaveDir_TextBox = New-Object System.Windows.Forms.TextBox
$SaveDir_TextBox.Multiline = $False
$SaveDir_TextBox.Width = $browse_textbox_width
$SaveDir_TextBox.Height = $browse_textbox_height
$SaveDir_TextBox.Location = New-Object System.Drawing.Point(11,242)
$SaveDir_TextBox.text = [Environment]::GetFolderPath("Desktop")
Add-Member -InputObject $SaveDir_TextBox -MemberType "NoteProperty" -Name "TextWas" -Value $SaveDir_TextBox.text
$SaveDir_Button = New-Object System.Windows.Forms.Button
$SaveDir_Button.Text = "Browse..."
$SaveDir_Button.Width = $browse_buttons_width
$SaveDir_Button.Height = $browse_buttons_height
$SaveDir_Button.Location = New-Object System.Drawing.Point($browse_buttons_x,241)
$LELocation_Label = New-Object System.Windows.Forms.Label
$LELocation_Label.Text = "Locale Emulator location"
$LELocation_Label.AutoSize = $True
$LELocation_Label.Width = 25
$LELocation_Label.Height = 10
$LELocation_Label.Location = New-Object System.Drawing.Point($labels_x,277)
$LELocation_TextBox = New-Object System.Windows.Forms.TextBox
$LELocation_TextBox.Multiline = $False
$LELocation_TextBox.Width = $browse_textbox_width
$LELocation_TextBox.Height = $browse_textbox_height
$LELocation_TextBox.BackColor = $TextBoxColors.Invalid
$LELocation_TextBox.Location = New-Object System.Drawing.Point(11,294)
Add-Member -InputObject $LELocation_TextBox -MemberType "NoteProperty" -Name "TextWas" -Value ""
Add-Member -InputObject $LELocation_TextBox -MemberType "NoteProperty" -Name "Valid" -Value $False
Add-Member -InputObject $LELocation_TextBox -MemberType "NoteProperty" -Name "NewValid" -Value $Null
$LELocation_Button = New-Object System.Windows.Forms.Button
$LELocation_Button.Text = "Browse..."
$LELocation_Button.Width = $browse_buttons_width
$LELocation_Button.Height = $browse_buttons_height
$LELocation_Button.Location = New-Object System.Drawing.Point($browse_buttons_x,293)
$Run_Button = New-Object System.Windows.Forms.Button
$Run_Button.Text = "Run Target"
$Run_Button.Width = 115
$Run_Button.Height = 30
$Run_Button.Location = New-Object System.Drawing.Point(10,$bottom_buttons_y)
$Run_Button.Enabled = $False
$Save_Button = New-Object System.Windows.Forms.Button
Add-Member -InputObject $Save_Button -MemberType "NoteProperty" -Name "TextSingular" -Value "Save Shortcut"
Add-Member -InputObject $Save_Button -MemberType "NoteProperty" -Name "TextPlural" -Value "Save Shortcuts"
$Save_Button.Text = $Save_Button.textSingular
$Save_Button.Width = 115
$Save_Button.Height = 30
$Save_Button.Location = New-Object System.Drawing.Point(142,$bottom_buttons_y)
$Save_Button.Enabled = $False
$Quit_Button = New-Object System.Windows.Forms.Button
$Quit_Button.Text = "Quit"
$Quit_Button.Width = 115
$Quit_Button.Height = 30
$Quit_Button.Location = New-Object System.Drawing.Point(275,$bottom_buttons_y)
$form_controls = @($Target_TextBox,$Target_Button,$Target_Label,$Args_TextBox,$Args_Label,$Lang_Groupbox,$SaveSettings_Checkbox,$SaveDir_TextBox,$SaveDir_Button,$SaveDir_Label,$LELocation_TextBox,$LELocation_Button,$LELocation_Label,$Run_Button,$Save_Button,$Quit_Button)
$lang_controls = @($Lang_ComboBox,$Lang_Button_Edit)
$controls = $form_controls + $lang_controls
$Form.controls.AddRange($form_controls)
$Lang_Groupbox.controls.AddRange($lang_controls)
#ENDREGION GUI Elements }
#REGION BEGIN GUI LELocations Elements }
$Form_LELocations = New-Object System.Windows.Forms.Form
$Form_LELocations.ClientSize = New-Object System.Drawing.Size(400,182)
$Form_LELocations.Text = "LE Locations"
$Form_LELocations.TopMost = $False
$Form_LELocations.MaximizeBox = $False
$Form_LELocations.SizeGripStyle = "Hide"
$Form_LELocations.StartPosition = "CenterScreen" # Manual, CenterScreen, WindowsDefaultLocation, WindowsDefaultBounds, CenterParent
$Form_LELocations.FormBorderStyle = 'FixedDialog' # None, FixedSingle, Fixed3D, FixedDialog, Sizable, FixedToolWindow, SizableToolWindow
Add-Member -InputObject $Form_LELocations -MemberType "NoteProperty" -Name "ButtonAction" -Value ""
$LELocations_Label = New-Object System.Windows.Forms.Label
$LELocations_Label.Text = "Which Locale Emultor do you want to use?"
$LELocations_Label.AutoSize = $True
$LELocations_Label.Height = 10
$LELocations_Label.Location = New-Object System.Drawing.Point(9,8)
$LELocations_ListBox = New-Object System.Windows.Forms.ListBox
$LELocations_ListBox.SelectionMode = "one"
$LELocations_ListBox.Sorted = $False
$LELocations_ListBox.HorizontalScrollbar = $True
$LELocations_ListBox.Width = 378
$LELocations_ListBox.Height = 100
$LELocations_ListBox.Location = New-Object System.Drawing.Point(11,32)
$LELocations_ListBox.DisplayMember = "Name"
$LELocations_ListBox.ValueMember = "Value"
$LELocations_ListBox.DataSource = New-Object System.Collections.ArrayList(@(,@(New-Object PSObject -Property @{Name=""; Value=""})))
Add-Member -InputObject $LELocations_ListBox -MemberType "NoteProperty" -Name "LastSelection" -Value ""
$LELocations_ButtonCancel = New-Object System.Windows.Forms.Button
$LELocations_ButtonCancel.Text = "Cancel"
$LELocations_ButtonCancel.width = 115
$LELocations_ButtonCancel.Height = 30
$LELocations_ButtonCancel.Location = New-Object System.Drawing.Point(10,142)
$LELocations_ButtonBrowse = New-Object System.Windows.Forms.Button
$LELocations_ButtonBrowse.Text = "Browse"
$LELocations_ButtonBrowse.Width = 115
$LELocations_ButtonBrowse.Height = 30
$LELocations_ButtonBrowse.Location = New-Object System.Drawing.Point(142,142)
$LELocations_ButtonSelect = New-Object System.Windows.Forms.Button
$LELocations_ButtonSelect.Text = "Select"
$LELocations_ButtonSelect.Width = 115
$LELocations_ButtonSelect.Height = 30
$LELocations_ButtonSelect.Location = New-Object System.Drawing.Point(275,142)
$lelocation_controls = @($LELocations_ListBox,$LELocations_Label,$LELocations_ButtonCancel,$LELocations_ButtonBrowse,$LELocations_ButtonSelect)
$Form_LELocations.controls.AddRange($lelocation_controls)
#ENDREGION GUI LELocations Elements }
#REGION BEGIN GUI Functions {
# Tries to find a valid absolute path in a string (best effort).
# Should return an empty string on failure.
function Find-ValidPath([String]$String) {
$Path = $String.Trim(' "') -Replace '^[^a-zA-Z]+',''
$Path = Normalize-Path $Path
#if ($Path.Length -LT 2 -Or $Path -Match '^[a-zA-Z][^:]') {
if ($Path.Length -LT 2 -Or -Not ($Path -Match '^[a-zA-Z]+:')) {
return ""
}
if ($Path) {
# Shorten the path until a valid one is found
while ($Path -NE "") {
# Test-Path arguments '-ErrorAction SilentlyContinue' is ignored when:
# - using arguments '-PathType Container', OR
# - receiving an empty string ("") as path.
# Hence the try-catch.
$valid_path = try { Test-Path -LiteralPath $Path -PathType Container } catch { $False }
if ($valid_path) { break }
$Path = Split-Path $Path -Parent
}
}
return $Path
}
function Show-SaveFileDialog {
Param (
[String]$Title = "",
[String]$InitialFilename = "",
[String]$InitialDirectory = "",
[String]$InitialDirectoryFallback = "",
[String]$Filter = "",
[Int] $FilterIndex = 0
)
$SaveFileDialog = New-Object -Typename System.Windows.Forms.SaveFileDialog
$SaveFileDialog.Title = $Title
$SaveFileDialog.Filter = $Filter
$SaveFileDialog.FilterIndex = $FilterIndex
$SaveFileDialog.FileName = $InitialFilename
$SaveFileDialog.ShowHelp = $True
if ($InitialDirectory -And ($InitialDirectory = Find-ValidPath $InitialDirectory)) {
$SaveFileDialog.InitialDirectory = $InitialDirectory
} elseif ($InitialDirectoryFallback) {
$SaveFileDialog.InitialDirectory = $InitialDirectoryFallback
}
$dialog_result = $SaveFileDialog.ShowDialog()
if ($dialog_result -Eq [System.Windows.Forms.DialogResult]::OK) {
return $SaveFileDialog.Filename
} else {
return $Null
}
}
function Show-OpenFileDialog {
Param (
[String]$InitialDirectory = "",
[String]$InitialDirectoryFallback = "",
[String]$Filter = "",
[Int] $FilterIndex = 0,
[Switch]$CheckFileExists,
[Switch]$Multiselect
)
$OpenFileDialog = New-Object System.Windows.Forms.OpenFileDialog
$OpenFileDialog.Filter = $Filter #"All files (*.*)| *.*|Applications (*.exe)| *.exe"
$OpenFileDialog.FilterIndex = $FilterIndex
$OpenFileDialog.CheckFileExists = $CheckFileExists
$OpenFileDialog.Multiselect = $Multiselect
$OpenFileDialog.ShowHelp = $True # OpenFileDialog won't show unless the help button is displayed
if ($InitialDirectory -And ($InitialDirectory = Find-ValidPath $InitialDirectory)) {
$OpenFileDialog.InitialDirectory = $InitialDirectory
} elseif ($InitialDirectoryFallback) {
$OpenFileDialog.InitialDirectory = $InitialDirectoryFallback
}
$dialog_result = $OpenFileDialog.ShowDialog()
if ($dialog_result -NE [System.Windows.Forms.DialogResult]::OK) {
return $Null
} elseif ($OpenFileDialog.FileNames.Count -Eq 1) {
return $OpenFileDialog.FileName
} else {
return '"' + ($OpenFileDialog.FileNames -Join '" "') + '"'
}
} #END Function Show-OpenFileDialog
function Show-FolderBrowserDialog([String]$Description, [bool]$ShowNewFolderButton = $False, [String]$InitialDirectory = "") {
$FolderBrowserDialog = New-Object System.Windows.Forms.FolderBrowserDialog
$FolderBrowserDialog.Description = $Description
$FolderBrowserDialog.RootFolder = "Desktop" # Desktop, MyComputer, MyDocuments, Favorites, Personal, DesktopDirectory
$FolderBrowserDialog.ShowNewFolderButton = $ShowNewFolderButton
if ($InitialDirectory -And ($InitialDirectory = Find-ValidPath $InitialDirectory)) {
$FolderBrowserDialog.SelectedPath = $InitialDirectory
} else {
$FolderBrowserDialog.SelectedPath = [Environment]::GetFolderPath("Desktop")
}
$dialog_result = $FolderBrowserDialog.ShowDialog()
if ($dialog_result -NE [System.Windows.Forms.DialogResult]::OK) {
return $Null
} else {
return $FolderBrowserDialog.SelectedPath
}
} #END Function Show-FolderBrowserDialog
function Show-LELocationDialog($LEPaths, $DefaultSelection) {
$Options = New-Object System.Collections.ArrayList
if (-Not $DefaultSelection) { $DefaultSelection = $LELocations_ListBox.LastSelection }
ForEach ($LEPath in $LEPaths) {
$Options.Add((New-Object PSObject -Property @{Name=$LEPath; Value=$LEPath})) | Out-Null
}
$LELocations_ListBox.DataSource = $Options
$Option = $LELocations_ListBox.DataSource | Where { $_.Value -Eq $DefaultSelection } | Select -First 1
if ($Option) { $LELocations_ListBox.SelectedItem = $Option }
#$Form_LELocations.Location = Get-NewGUIPosition $Form_LELocations
$Form_LELocations.ShowDialog() | Out-Null
Switch -Exact ($Form_LELocations.ButtonAction) {
"Select" { return $LELocations_ListBox.SelectedValue }
"Browse" { return "browse" }
"Cancel" { return $Null }
default { Throw "Fatal Error: This should never happen" }
}
}
function GUI-Update-LE {
GUI-Update-Languages
GUI-Update-RunCreate
}
function GUI-Disable-LE {
GUI-Disable-Languages
GUI-Disable-RunCreate
}
function GUI-Update-RunCreate {
if (-Not $LELocation_TextBox.Valid -Or -Not $Lang_ComboBox.Enabled) {
$Run_Button.Enabled = $False
$Save_Button.Enabled = $False
return
}
if ($Target_TextBox.Targets.Count -Eq 1) {
$Run_Button.Enabled = $True
$Save_Button.Enabled = $True
$Save_Button.Text = $Save_Button.TextSingular
} elseif ($Target_TextBox.Targets.Count -ge 2) {
$Run_Button.Enabled = $False
$Save_Button.Enabled = $True
$Save_Button.Text = $Save_Button.TextPlural
}
}
function GUI-Disable-RunCreate {
$Run_Button.Enabled = $False
$Save_Button.Enabled = $False
}
function GUI-Update-Languages {
$Languages = Get-LELanguages -Directory $LELocation_TextBox.Text
if ($Languages.Count -Eq 0) {
# ComboBox.DataSource must at all times be a
# System.Collections.ArrayList containing at least one PSObject.
# Otherwise it will start displaying the elements incorrectly in the GUI.
$empty_language = New-Object PSObject -Property @{Name=""; Guid=""}
$Languages.Add($empty_language) | Out-Null
$Lang_ComboBox.DataSource = $Languages
$Lang_ComboBox.Enabled = $False
return
}
$Lang_ComboBox.Enabled = $True
$language_differences = Compare-Object -Property Name,Guid $Languages $Lang_ComboBox.DataSource
$current_selection_name = $Lang_ComboBox.SelectedItem.Name
if ($language_differences) {
$Lang_ComboBox.DataSource = $Languages
# If possible, change the selection to the same language as before
$Language = $Lang_ComboBox.DataSource | Where { $_.Name -Eq $current_selection_name } | Select -First 1
if ($Language) { $Lang_ComboBox.SelectedItem = $Language }
}
$Lang_Button_Edit.Enabled = Test-Path -LiteralPath (Join-Path $LELocation_TextBox.Text $Files.LE.Editor)
}
function GUI-Disable-Languages {
$Lang_ComboBox.Enabled = $False
$Lang_Button_Edit.Enabled = $False
}
function Save-ConfigFile {
$Language = $Lang_ComboBox.SelectedItem.Name
$DefaultSaveDirectory = $SaveDir_TextBox.Text
$LELocation = $LELocation_TextBox.Text
$Config = @"
<?xml version="1.0" encoding="UTF-8" ?>
<Config>
<Language>$Language</Language>
<DefaultSaveDirectory>$DefaultSaveDirectory</DefaultSaveDirectory>
<LELocation>$LELocation</LELocation>
</Config>
"@
$ConfigPath = $Files.Script.Config
$Config | Out-File $ConfigPath
}
function Quit-Application {
if ($SaveSettings_Checkbox.Checked) {
Save-ConfigFile
} elseif (Test-Path -LiteralPath $Files.Script.Config -PathType Leaf -ErrorAction SilentlyContinue) {
Remove-Item -Path $Files.Script.Config
}
$Form.Close()
}
#ENDREGION GUI Functions }
#REGION BEGIN GUI Events {
# Here there be event code for the main window
# Mouse drop support
#NOTE: This requires that PowerShell was executed with: -Sta
$Form.AllowDrop = $True
$Form.Add_DragEnter({ $_.Effect = 'Copy' })
$Form.Add_DragDrop({
if ($_.Data.GetDataPresent([Windows.Forms.DataFormats]::Text)) {
# If the dropped data is: plain text
$Target_TextBox.Text = $_.Data.GetData([Windows.Forms.DataFormats]::Text)
} elseif ($_.Data.GetDataPresent([Windows.Forms.DataFormats]::FileDrop)) {
# If the dropped data is: one or more files
$Filenames = $_.Data.GetData([Windows.Forms.DataFormats]::FileDrop)
if ($Filenames.Count -Eq 1) {
$Target_TextBox.Text = $Filenames[0]
} else {
$Target_TextBox.Text = '"' + ($Filenames -Join '" "') + '"'
}
}
})
$Target_TextBox.Add_TextChanged({
# Normalize targets text string
$targets_text = $Target_TextBox.Text
$targets_text = $targets_text.Trim() # Remove surrounding whitespaces
# This script block is run if targets are deemed invalid
$targets_invalid_scriptblock = {
$Target_TextBox.Targets = @()
$Target_TextBox.BackColor = $TextBoxColors.Invalid
GUI-Disable-RunCreate
}
# If empty string
if ($targets_text -Eq "") {
Invoke-Command -ScriptBlock $targets_invalid_scriptblock
$Target_TextBox.BackColor = $TextBoxColors.None # No error color on empty string
return
}
# If NOT inside quotation marks
if ($targets_text -Match '^[^"]' -And $targets_text -Match '[^"]$') {
$targets_text = '"' + $targets_text + '"'
}
#TODO: Maybe this isn't needed?
if ($targets_text -Eq '""') {
Invoke-Command -ScriptBlock $targets_invalid_scriptblock
return
}
# If uneven number of double quotes (")
if ( ([Regex]::Matches($targets_text,'"')).Count % 2 -NE 0 ) {
Invoke-Command -ScriptBlock $targets_invalid_scriptblock
return
}
# Convert $targets_text to an array of strings
$Targets = [Regex]::Matches($targets_text,'"([^"])+"') | ForEach {$_.Value -Replace '"',''} | Select -Uniq
# Restore the array wrapping that PowerShell removes if it only contains one element
if ($Targets.GetType() -Eq [String]) {
$Targets = @($Targets)
}
# Check that all targets can be found
ForEach ( $Target in $Targets ) {
$valid_path = Test-Path -LiteralPath $Target -PathType Leaf -ErrorAction SilentlyContinue
if (-Not $valid_path) {
Invoke-Command -ScriptBlock $targets_invalid_scriptblock
return
}
}
# Save targets
$Target_TextBox.FileBrowserInitialDirectoryFallback = $Targets[0]
$Target_TextBox.Targets = $Targets
# Clear Background Color
$Target_TextBox.BackColor = $TextBoxColors.None
# Try to activate the "Run" and "Create Shortcut" buttons
GUI-Update-RunCreate
})
$Target_Button.Add_Click({
$Filenames = Show-OpenFileDialog -InitialDirectory $Target_TextBox.Text `
-InitialDirectoryFallback $Target_TextBox.FileBrowserInitialDirectoryFallback `
-Filter "All files (*.*)| *.*|Applications (*.exe)| *.exe" `
-FilterIndex 2 `
-CheckFileExists `
-Multiselect
if ($Filenames -NE $Null) { $Target_TextBox.Text = $Filenames }
})
$Lang_Button_Edit.Add_Click({
$Path = Join-Path $LELocation_TextBox.Text $Files.LE.Editor
if (-Not (Test-Path $Path)) {
$Title = "Unable to start editor"
$Message = "The Locale Emulator GUI seems to be missing.$([Environment]::NewLine
)File not found:$([Environment]::NewLine
)$Path"
$Buttons = "OK"
$Icon = "Error"
[System.Windows.MessageBox]::Show($Message,$Title,$Buttons,$Icon)
return
}
# Launch the LE Editor
#TODO: Prevent the GUI from being used until the LE Editor has exited
#$Form.Enabled = $False
$PS = New-Object System.Diagnostics.Process
$PS.StartInfo.Filename = $Path
$PS.Start()
while (-Not $PS.HasExited) {
[System.Windows.Forms.Application]::DoEvents() # IMPORTANT!!!
Start-Sleep -Milliseconds 100
}
#$Form.Enabled = $True
GUI-Update-Languages
})
$SaveDir_TextBox.Add_LostFocus({
# Test-Path arguments '-ErrorAction SilentlyContinue' is ignored when:
# - using arguments '-PathType Container', OR
# - receiving an empty string ("") as path.
# Hence the try-catch.
$dir_exists = try { Test-Path -LiteralPath $SaveDir_TextBox.Text -PathType Container } catch { $False }
if ($dir_exists) {
$SaveDir_TextBox.TextWas = $SaveDir_TextBox.Text
} else {
$SaveDir_TextBox.Text = $SaveDir_TextBox.TextWas
}
})
$SaveDir_Button.Add_Click({
$Directory = Show-FolderBrowserDialog -Description "Choose the default directory where to save shortcuts" `
-ShowNewFolderButton $True `
-InitialDirectory $SaveDir_TextBox.Text
if ($Directory -NE $Null) { $SaveDir_TextBox.Text = $Directory }
})
$LELocation_TextBox.Add_TextChanged({
$path = $LELocation_TextBox.Text
$path_was = $LELocation_TextBox.TextWas
$pre_verification_result = $LELocation_TextBox.NewValid
$LELocation_TextBox.TextWas = $LELocation_TextBox.Text
$LELocation_TextBox.NewValid = $Null
if (Equal-Paths $path $path_was) {
return
}
if ($pre_verification_result -NE $Null) {
$path_is_valid = $pre_verification_result
} else {
$path_is_valid = Verify-LEDirectory $path
}
if ($path_is_valid) {
$LELocation_TextBox.Valid = $True
$LELocation_TextBox.BackColor = $TextBoxColors.None
GUI-Update-LE
} else {
$LELocation_TextBox.Valid = $False
$LELocation_TextBox.BackColor = $TextBoxColors.Invalid
GUI-Disable-LE
}
})
## Select a folder containing Locale Emulator (LE)
# Normally show a Folder Browser Dialog.
# BUT: If one or more LE directories has been autodetected (that is not the
# same as $LELocation_TextBox.Text), then show a selection list instead.
$LELocation_Button.Add_Click({
# Fetch a list of autodetected LE directories (as a list of strings)
$Directories = $LEDirectories | Where { $_.Valid } | Select -ExpandProperty Path
# Restore the array wrapping that PowerShell removes if an array only contains one element
if (-Not($Directories -Is [Array])) {
$Directories = @($Directories)
}
$OnlyShowFolderBrowser = $Directories.Count -Eq 0 -Or `
($Directories.Count -Eq 1 -And (Equal-Paths $Directories[0] $LELocation_TextBox.Text))
# Sets the default selection in the Selection List dialog window
$DefaultSelection = $LELocation_TextBox.Text
while ($True) {
# Show-LELocationDialog
if (-Not($OnlyShowFolderBrowser)) {
$Directory = Show-LELocationDialog $Directories $DefaultSelection
$DefaultSelection = $Null # Do not use more than once.
# The Dialog Window will remember the last selection used automatically.
if ($Directory -Eq $Null) { break } # User cancelled
elseif ($Directory -NE "browse") { break } # User selected an LE directory
# User chose "browse": The execution continues
}
# Show-FolderBrowserDialog
while ($True) {
$Directory = Show-FolderBrowserDialog -Description "Where is Locale Emulator?" `
-initialDirectory $LELocation_TextBox.Text
if ($Directory -Eq $Null) { break } # User cancelled
if (Verify-LEDirectory $Directory) { break } # User selected a valid LE directory
# User selected an invalid directory: Display error message and try again
$Title = "Locale Emulator not found"
$Message = "Locale Emulator was not found in the selected folder."
$Buttons = "OK"
$Icon = "Error"
[System.Windows.MessageBox]::Show($Message,$Title,$Buttons,$Icon)
}
# If only FolderBrowserDialog is used: always break
# Else if user cancelled the FolderBrowserDialog: Return to LELocationDialog
if ($OnlyShowFolderBrowser -Or $Directory) { break }
}
if (-Not($Directory)) { return }
# Below code TRIGGERS: $LELocation_TextBox.Add_TextChanged()
$LELocation_TextBox.NewValid = $True
$LELocation_TextBox.Text = $Directory
})
# Click this button to run the selected executable
$Run_Button.Add_Click({
$LEProgram = Join-Path $LELocation_TextBox.Text $Files.LE.Runner
$LanguageID = $Lang_ComboBox.SelectedValue
$Target = $Target_TextBox.Targets[0]
$TargetArgs = $Args_TextBox.Text
Start-Process -FilePath $LEProgram `
-ArgumentList "-runas `"$LanguageID`" `"$Target`" $TargetArgs"
})
# Click here to create a shortcut file to the executable
$Save_Button.Add_Click({
$LEProgram = Join-Path $LELocation_TextBox.Text $Files.LE.Runner
$LanguageName = $Lang_ComboBox.SelectedItem.Name
$LanguageID = $Lang_ComboBox.SelectedValue
$TargetArgs = $Args_TextBox.Text
$DefaultSaveDir = $SaveDir_TextBox.Text
if ($Target_TextBox.Targets.Count -Eq 1) {
# One Target #
# Let the user decide both the directory and the filename.
$Target = $Target_TextBox.Targets[0]
# Generate a filename as a suggestion to the user
$InitialFilename = [IO.Path]::GetFileNameWithoutExtension($Target)
$InitialFilename = "(LE)" + $InitialFilename
$ShortcutFilePath = Show-SaveFileDialog -InitialFilename $InitialFilename `
-InitialDirectory $DefaultSaveDir `
-InitialDirectoryFallback [Environment]::GetFolderPath("Desktop") `
-Filter "Shortcuts| *.lnk"
if (-Not $ShortcutFilePath) {
return
}
if (-Not ($ShortcutFilePath -Match '\.lnk$')) {
$ShortcutFilePath += '.lnk'
}
Create-LEShortcutFile -Target $Target `
-Args $TargetArgs `
-LEPath $LEProgram `
-LangID $LanguageID `
-Path $ShortcutFilePath
} else {
# Multiple Targets #
# Only let the user decide the directory. Filenames are automatically generated.
$Targets = $Target_TextBox.Targets
$ShortcutDirectory = Show-FolderBrowserDialog -Description "Select the directory to where you want to save the shortcut files." `
-initialDirectory $DefaultSaveDir
if (-Not $ShortcutDirectory) {
return
}
ForEach ($Target in $Targets) {
$ShortcutFilename = [IO.Path]::GetFileNameWithoutExtension($Target)
$ShortcutFilename = "(LE)" + $ShortcutFilename + ".lnk"
$ShortcutFilePath = Join-Path $ShortcutDirectory $ShortcutFilename
Create-LEShortcutFile -Target $Target `
-Args $TargetArgs `
-LEPath $LEProgram `
-LangName $LanguageName `
-LangID $LanguageID `
-Path $ShortcutFilePath
}
}
})
# Escape key quits application
ForEach ($control in $controls) {
$control.Add_KeyDown({
if ($_.KeyCode -Eq "Escape") {
Quit-Application
}
})
}
# Quit button quits application
$Quit_Button.Add_Click({
Quit-Application
})
#ENDREGION GUI Events }
#REGION BEGIN GUI LELocations Events {
# Here there be event code for the LELocation window
# For more info, check out: $LELocation_Button.Add_Click
$Form_LELocations.Add_Shown({
$LELocations_ListBox.LastSelection = $LELocations_ListBox.SelectedValue
$LELocations_ListBox.Focus() # Give default focus to the ListBox
})
$LELocations_ListBox.Add_SelectedIndexChanged({
$LELocations_ListBox.LastSelection = $LELocations_ListBox.SelectedValue
})
# Escape key clicks the Cancel button
ForEach ($lelocation_control in $lelocation_controls) {
$lelocation_control.Add_KeyDown({
if ($_.KeyCode -Eq "Escape") {
$LELocations_ButtonCancel.PerformClick()
}
})
}
# Enter Key clicks the Select button (only if ListBox is in focus)
$LELocations_ListBox.Add_KeyDown({
if ($_.KeyCode -Eq "Enter") {
$LELocations_ButtonSelect.PerformClick()
}
})
$LELocations_ButtonCancel.Add_Click({
$Form_LELocations.ButtonAction = "Cancel"
$Form_LELocations.Close()
})
$LELocations_ButtonBrowse.Add_Click({
$Form_LELocations.ButtonAction = "Browse"
$Form_LELocations.Close()
})
$LELocations_ButtonSelect.Add_Click({
$Form_LELocations.ButtonAction = "Select"
$Form_LELocations.Close()
})
#ENDREGION GUI LELocations Events }
#REGION BEGIN GUI Show {
# Here we finally initialize the main window and display it
$Config = Get-ConfigFile
if ($Config) {
$SaveSettings_Checkbox.Checked = $True
$LEDirectories = Get-LEDirectories -ConfigLEDirectory $Config.LELocation
$dir_exists = try { Test-Path -LiteralPath $Config.DefaultSaveDirectory -PathType Container } catch { $False }
if ($dir_exists) { $SaveDir_TextBox.text = $Config.DefaultSaveDirectory }
} else {
$SaveSettings_Checkbox.Checked = $False
$LEDirectories = Get-LEDirectories
}
if ($LEDirectories.Count -GT 0) {
$LEDirectory = $LEDirectories[0]
# Below code TRIGGERS: $LELocation_TextBox.Add_TextChanged()
$LELocation_TextBox.NewValid = $LEDirectory.Valid
$LELocation_TextBox.Text = $LEDirectory.Path
}
if ($Config) {
#NOTE: $Lang_ComboBox.DataSource was maybe populated by triggering $LELocation_TextBox.Add_TextChanged() above
# If possible, change the selection to the same language as in the config
$Language = $Lang_ComboBox.DataSource | Where { $_.Name -Eq $Config.Language } | Select -First 1
if ($Language) { $Lang_ComboBox.SelectedItem = $Language }
}
# Show Application Window
#[void]$Form.ShowDialog()
[System.Windows.Forms.Application]::Run($Form)
#ENDREGION GUI Show }
#ENDREGION GUI }
Raw
passwordless_login_22h1.txt
How to disable all login screens Windows 10 22H1:
Disable_Login_Screen.reg
Command: netplwiz -> "Disable Ask for login/password..."
Settings>Accounts>Sign-in options -> Password -> Set -> Add any password -> Flip "Require Sign-in" and then "Never" -> Set back empty password
Raw
Power_Button_from_Start_Screen_Off.reg
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ImmersiveShell\Launcher]
"Launcher_ShowPowerButtonOnStartScreen"=dword:00000000
Raw
Power_Button_on_Start_Screen_On.reg
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ImmersiveShell\Launcher]
"Launcher_ShowPowerButtonOnStartScreen"=dword:00000001
Raw
rebuild_font_cache.cmd
@echo off
:: Stop and disable "Windows Font Cache Service" service
:FontCache
sc stop "FontCache"
sc config "FontCache" start=disabled
sc query FontCache | findstr /I /C:"STOPPED"
if not %errorlevel%==0 (goto FontCache)
:: Grant access rights to current user for "%WinDir%\ServiceProfiles\LocalService" folder and contents
icacls "%WinDir%\ServiceProfiles\LocalService" /grant "%UserName%":F /C /T /Q
:: Delete font cache
del /A /F /Q "%WinDir%\ServiceProfiles\LocalService\AppData\Local\FontCache\*FontCache*"
del /A /F /Q "%WinDir%\System32\FNTCACHE.DAT"
:: Enable and start "Windows Font Cache Service" service
sc config "FontCache" start=auto
sc start "FontCache"
Raw
Remove-Appx-AllUsers.ps1
<#
.SYNOPSIS
Remove built-in apps (modern apps) from Windows 11 for All Users.
.DESCRIPTION
This script will remove all built-in apps that are specified in the 'blacklistedapps' variable.
##WARNING##
Use with caution, restoring deleted provisioning packages is not a simple process.
##TIP##
If removing "MicrosoftTeams", also consider disabling the "Chat" icon on the taskbar, using INtune settingd catalog, as clicking this will re-install the appxpackage for the user.
.NOTES
FileName: Remove-Appx-AllUsers-CloudSourceList.ps1
###### Windows 11 Apps######
Microsoft.549981C3F5F10 (Cortana Search)
Microsoft.BingNews
Microsoft.BingWeather
Microsoft.DesktopAppInstaller
Microsoft.GamingApp
Microsoft.GetHelp
Microsoft.Getstarted
Microsoft.HEIFImageExtension
Microsoft.MicrosoftEdge.Stable
Microsoft.MicrosoftOfficeHub
Microsoft.People
Microsoft.PowerAutomateDesktop
Microsoft.ScreenSketch
Microsoft.SecHealthUI
Microsoft.StorePurchaseApp
Microsoft.Todos
Microsoft.VP9VideoExtensions
Microsoft.WebMediaExtensions
Microsoft.WebpImageExtension
Microsoft.Windows.Photos
Microsoft.WindowsAlarms
Microsoft.WindowsCalculator
Microsoft.WindowsCamera
microsoft.windowscommunicationsapps
Microsoft.WindowsFeedbackHub
Microsoft.WindowsMaps
Microsoft.WindowsNotepad
Microsoft.WindowsSoundRecorder
Microsoft.WindowsStore
Microsoft.WindowsTerminal
Microsoft.Xbox.TCUI
Microsoft.XboxGameOverlay
Microsoft.XboxGamingOverlay
Microsoft.XboxIdentityProvider
Microsoft.XboxSpeechToTextOverlay
Microsoft.YourPhone
Microsoft.ZuneMusic
Microsoft.ZuneVideo
MicrosoftTeams
MicrosoftWindows.Client.WebExperience
#>
Begin {
#Log Function
function Write-LogEntry {
param (
[parameter(Mandatory = $true)]
[ValidateNotNullOrEmpty()]
[string]$Value,
[parameter(Mandatory = $false)]
[ValidateNotNullOrEmpty()]
[string]$FileName = "AppXRemoval.log",
[switch]$Stamp
)
#Build Log File appending System Date/Time to output
$LogFile = Join-Path -Path $env:SystemRoot -ChildPath $("Temp\$FileName")
$Time = -join @((Get-Date -Format "HH:mm:ss.fff"), " ", (Get-WmiObject -Class Win32_TimeZone | Select-Object -ExpandProperty Bias))
$Date = (Get-Date -Format "MM-dd-yyyy")
If ($Stamp) {
$LogText = "<$($Value)> <time=""$($Time)"" date=""$($Date)"">"
}
else {
$LogText = "$($Value)"
}
Try {
Out-File -InputObject $LogText -Append -NoClobber -Encoding Default -FilePath $LogFile -ErrorAction Stop
}
Catch [System.Exception] {
Write-Warning -Message "Unable to add log entry to $LogFile.log file. Error message at line $($_.InvocationInfo.ScriptLineNumber): $($_.Exception.Message)"
}
}
#Function to Remove AppxProvisionedPackage
Function Remove-AppxProvisionedPackageCustom {
# Attempt to remove AppxProvisioningPackage
if (!([string]::IsNullOrEmpty($BlackListedApp))) {
try {
# Get Package Name
$AppProvisioningPackageName = Get-AppxProvisionedPackage -Online | Where-Object { $_.DisplayName -like $BlackListedApp } | Select-Object -ExpandProperty PackageName -First 1
Write-Host "$($BlackListedApp) found. Attempting removal ... " -NoNewline
Write-LogEntry -Value "$($BlackListedApp) found. Attempting removal ... "
# Attempt removeal
$RemoveAppx = Remove-AppxProvisionedPackage -PackageName $AppProvisioningPackageName -Online -AllUsers
#Re-check existence
$AppProvisioningPackageNameReCheck = Get-AppxProvisionedPackage -Online | Where-Object { $_.DisplayName -like $BlackListedApp } | Select-Object -ExpandProperty PackageName -First 1
If ([string]::IsNullOrEmpty($AppProvisioningPackageNameReCheck) -and ($RemoveAppx.Online -eq $true)) {
Write-Host @CheckIcon
Write-Host " (Removed)"
Write-LogEntry -Value "$($BlackListedApp) removed"
}
}
catch [System.Exception] {
Write-Host " (Failed)"
Write-LogEntry -Value "Failed to remove $($BlackListedApp)"
}
}
}
Write-LogEntry -Value "##################################"
Write-LogEntry -Stamp -Value "Remove-Appx Started"
Write-LogEntry -Value "##################################"
#OS Check
$OS = (Get-CimInstance -ClassName Win32_OperatingSystem).BuildNumber
# Black List of Appx Provisioned Packages to Remove for All Users
$BlackListedApps = $null
$BlackListedApps = New-Object -TypeName System.Collections.ArrayList
$BlackListedApps.AddRange(@(
"Microsoft.BingNews",
"Microsoft.GamingApp",
"Microsoft.MicrosoftSolitaireCollection",
"Microsoft.WindowsCommunicationsApps",
"Microsoft.WindowsFeedbackHub",
"Microsoft.XboxGameOverlay",
"Microsoft.XboxGamingOverlay",
"Microsoft.XboxIdentityProvider",
"Microsoft.XboxSpeechToTextOverlay",
"Microsoft.YourPhone",
"Microsoft.ZuneMusic",
"Microsoft.ZuneVideo",
"MicrosoftTeams"
))
#Define Icons
$CheckIcon = @{
Object = [Char]8730
ForegroundColor = 'Green'
NoNewLine = $true
}
#Define App Count
[int]$AppCount = 0
}
Process {
If ($($BlackListedApps.Count) -ne 0) {
Write-Output `n"The following $($BlackListedApps.Count) apps were targeted for removal from the device:-"
Write-LogEntry -Value "The following $($BlackListedApps.Count) apps were targeted for removal from the device:-"
Write-LogEntry -Value "Apps marked for removal:$($BlackListedApps)"
Write-Output ""
$BlackListedApps
#Initialize list for apps not targeted
$AppNotTargetedList = New-Object -TypeName System.Collections.ArrayList
# Get Appx Provisioned Packages
Write-Output `n"Gathering installed Appx Provisioned Packages..."
Write-LogEntry -Value "Gathering installed Appx Provisioned Packages..."
Write-Output ""
$AppArray = Get-AppxProvisionedPackage -Online | Select-Object -ExpandProperty DisplayName
# Loop through each Provisioned Package
foreach ($BlackListedApp in $BlackListedApps) {
# Function call to Remove Appx Provisioned Packages defined in the Black List
if (($BlackListedApp -in $AppArray)) {
$AppCount ++
Try {
Remove-AppxProvisionedPackageCustom -BlackListedApp $BlackListedApp
}
Catch {
Write-Warning `n"There was an error while attempting to remove $($BlakListedApp)"
Write-LogEntry -Value "There was an error when attempting to remove $($BlakListedApp)"
}
}
else {
$AppNotTargetedList.AddRange(@($BlackListedApp))
}
}
#Update Output Information
If (!([string]::IsNullOrEmpty($AppNotTargetedList))) {
Write-Output `n"The following apps were not removed. Either they were already removed or the Package Name is invalid:-"
Write-LogEntry -Value "The following apps were not removed. Either they were already removed or the Package Name is invalid:-"
Write-LogEntry -Value "$($AppNotTargetedList)"
Write-Output ""
$AppNotTargetedList
}
If ($AppCount -eq 0) {
Write-Output `n"No apps were removed. Most likely reason is they had been removed previously."
Write-LogEntry -Value "No apps were removed. Most likely reason is they had been removed previously."
}
}
else {
Write-Output "No Black List Apps defined in array"
Write-LogEntry -Value "No Black List Apps defined in array"
}
}
Raw
remove_oobe.cmd
takeown /s %computername% /u %username% /f "%WINDIR%\System32\oobe\UserOOBEBroker.exe"
icacls "%WINDIR%\System32\oobe\UserOOBEBroker.exe" /inheritance:r /grant:r %username%:F
taskkill /im UserOOBEBroker.exe /f
ren "%WINDIR%\System32\oobe\UserOOBEBroker.exe" "UserOOBEBroker.exe~"
Raw
remove_smb.ps1
Dism /online /Disable-Feature /FeatureName:"SMB1Protocol"
Dism /online /Disable-Feature /FeatureName:"SMB1Protocol-Client"
Dism /online /Disable-Feature /FeatureName:"SMB1Protocol-Server"
Set-SmbServerConfiguration –EnableSMB1Protocol $false
Set-SmbServerConfiguration –EnableSMB2Protocol $false
Raw
remove_telemetry.cmd
@echo off
echo Install latest windows updates before this
pause
echo Removing KBs...
wusa /uninstall /kb:3065988 /quiet /norestart
wusa /uninstall /kb:3083325 /quiet /norestart
wusa /uninstall /kb:3083324 /quiet /norestart
wusa /uninstall /kb:2976978 /quiet /norestart
wusa /uninstall /kb:3075853 /quiet /norestart
wusa /uninstall /kb:3065987 /quiet /norestart
wusa /uninstall /kb:3050265 /quiet /norestart
wusa /uninstall /kb:3050267 /quiet /norestart
wusa /uninstall /kb:3075851 /quiet /norestart
wusa /uninstall /kb:2902907 /quiet /norestart
wusa /uninstall /kb:3068708 /quiet /norestart
wusa /uninstall /kb:3022345 /quiet /norestart
wusa /uninstall /kb:2952664 /quiet /norestart
wusa /uninstall /kb:2990214 /quiet /norestart
wusa /uninstall /kb:3035583 /quiet /norestart
wusa /uninstall /kb:971033 /quiet /norestart
wusa /uninstall /kb:3021917 /quiet /norestart
wusa /uninstall /kb:3044374 /quiet /norestart
wusa /uninstall /kb:3046480 /quiet /norestart
wusa /uninstall /kb:3075249 /quiet /norestart
wusa /uninstall /kb:3080149 /quiet /norestart
wusa /uninstall /kb:2977759 /quiet /norestart
wusa /uninstall /kb:3083710 /quiet /norestart
wusa /uninstall /kb:3083711 /quiet /norestart
wusa /uninstall /kb:3112336 /quiet /norestart
wusa /uninstall /kb:3123862 /quiet /norestart
wusa /uninstall /kb:4023057 /quiet /norestart
echo Removing services...
sc stop DiagTrack
sc stop dmwappushservice
sc delete DiagTrack
sc delete dmwappushservice
echo Run Windows Update and disable any updates that will pop up now.
echo "" > C:\ProgramData\Microsoft\Diagnosis\ETLLogs\AutoLogger\AutoLogger-Diagtrack-Listener.etl
Raw
reset_winupdate.cmd
@ECHO OFF
echo Resetting Windows Update
PAUSE
echo.
net stop wuauserv
net stop CryptSvc
net stop BITS
attrib -h -r -s %systemroot%\system32\catroot2
attrib -h -r -s %systemroot%\system32\catroot2\*.*
@echo Remove SoftwareDistribution.old, catroot2.old, downloader.old after restart manually
ren %systemroot%\system32\catroot2 catroot2.old
ren %systemroot%\SoftwareDistribution SoftwareDistribution.old
ren "%ALLUSERSPROFILE%\application data\Microsoft\Network\downloader" downloader.old
net Start BITS
net start CryptSvc
net start wuauserv
echo Finished
PAUSE
Raw
Take_Ownership_From_Context_Menu_Off.reg
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\*\shell\TakeOwnership]
[-HKEY_CLASSES_ROOT\*\shell\runas]
[-HKEY_CLASSES_ROOT\Directory\shell\TakeOwnership]
[-HKEY_CLASSES_ROOT\Drive\shell\runas]
Raw
Take_Ownership_To_Context_Menu_On.reg
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\*\shell\TakeOwnership]
[-HKEY_CLASSES_ROOT\*\shell\runas]
[HKEY_CLASSES_ROOT\*\shell\TakeOwnership]
@="Take Ownership"
"Extended"=-
"HasLUAShield"=""
"NoWorkingDirectory"=""
"NeverDefault"=""
[HKEY_CLASSES_ROOT\*\shell\TakeOwnership\command]
@="powershell -windowstyle hidden -command \"Start-Process cmd -ArgumentList '/c takeown /f \\\"%1\\\" && icacls \\\"%1\\\" /grant *S-1-3-4:F /t /c /l' -Verb runAs\""
"IsolatedCommand"= "powershell -windowstyle hidden -command \"Start-Process cmd -ArgumentList '/c takeown /f \\\"%1\\\" && icacls \\\"%1\\\" /grant *S-1-3-4:F /t /c /l' -Verb runAs\""
[HKEY_CLASSES_ROOT\Directory\shell\TakeOwnership]
@="Take Ownership"
"AppliesTo"="NOT (System.ItemPathDisplay:=\"C:\\Users\" OR System.ItemPathDisplay:=\"C:\\ProgramData\" OR System.ItemPathDisplay:=\"C:\\Windows\" OR System.ItemPathDisplay:=\"C:\\Windows\\System32\" OR System.ItemPathDisplay:=\"C:\\Program Files\" OR System.ItemPathDisplay:=\"C:\\Program Files (x86)\")"
"Extended"=-
"HasLUAShield"=""
"NoWorkingDirectory"=""
"Position"="middle"
[HKEY_CLASSES_ROOT\Directory\shell\TakeOwnership\command]
@="powershell -windowstyle hidden -command \"Start-Process cmd -ArgumentList '/c takeown /f \\\"%1\\\" /r /d y && icacls \\\"%1\\\" /grant *S-1-3-4:F /t /c /l /q' -Verb runAs\""
"IsolatedCommand"="powershell -windowstyle hidden -command \"Start-Process cmd -ArgumentList '/c takeown /f \\\"%1\\\" /r /d y && icacls \\\"%1\\\" /grant *S-1-3-4:F /t /c /l /q' -Verb runAs\""
[HKEY_CLASSES_ROOT\Drive\shell\runas]
@="Take Ownership"
"Extended"=-
"HasLUAShield"=""
"NoWorkingDirectory"=""
"Position"="middle"
"AppliesTo"="NOT (System.ItemPathDisplay:=\"C:\\\")"
[HKEY_CLASSES_ROOT\Drive\shell\runas\command]
@="cmd.exe /c takeown /f \"%1\\\" /r /d y && icacls \"%1\\\" /grant *S-1-3-4:F /t /c"
"IsolatedCommand"="cmd.exe /c takeown /f \"%1\\\" /r /d y && icacls \"%1\\\" /grant *S-1-3-4:F /t /c"
Raw
Take_Ownership_With_Pause_To_Context_Menu_On.reg
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\*\shell\TakeOwnership]
[-HKEY_CLASSES_ROOT\*\shell\runas]
[HKEY_CLASSES_ROOT\*\shell\TakeOwnership]
@="Take Ownership"
"Extended"=-
"HasLUAShield"=""
"NoWorkingDirectory"=""
"NeverDefault"=""
[HKEY_CLASSES_ROOT\*\shell\TakeOwnership\command]
@="powershell -windowstyle hidden -command \"Start-Process cmd -ArgumentList '/c takeown /f \\\"%1\\\" && icacls \\\"%1\\\" /grant *S-1-3-4:F /t /c /l & pause' -Verb runAs\""
"IsolatedCommand"= "powershell -windowstyle hidden -command \"Start-Process cmd -ArgumentList '/c takeown /f \\\"%1\\\" && icacls \\\"%1\\\" /grant *S-1-3-4:F /t /c /l & pause' -Verb runAs\""
[HKEY_CLASSES_ROOT\Directory\shell\TakeOwnership]
@="Take Ownership"
"AppliesTo"="NOT (System.ItemPathDisplay:=\"C:\\Users\" OR System.ItemPathDisplay:=\"C:\\ProgramData\" OR System.ItemPathDisplay:=\"C:\\Windows\" OR System.ItemPathDisplay:=\"C:\\Windows\\System32\" OR System.ItemPathDisplay:=\"C:\\Program Files\" OR System.ItemPathDisplay:=\"C:\\Program Files (x86)\")"
"Extended"=-
"HasLUAShield"=""
"NoWorkingDirectory"=""
"Position"="middle"
[HKEY_CLASSES_ROOT\Directory\shell\TakeOwnership\command]
@="powershell -windowstyle hidden -command \"Start-Process cmd -ArgumentList '/c takeown /f \\\"%1\\\" /r /d y && icacls \\\"%1\\\" /grant *S-1-3-4:F /t /c /l /q & pause' -Verb runAs\""
"IsolatedCommand"="powershell -windowstyle hidden -command \"Start-Process cmd -ArgumentList '/c takeown /f \\\"%1\\\" /r /d y && icacls \\\"%1\\\" /grant *S-1-3-4:F /t /c /l /q & pause' -Verb runAs\""
[HKEY_CLASSES_ROOT\Drive\shell\runas]
@="Take Ownership"
"Extended"=-
"HasLUAShield"=""
"NoWorkingDirectory"=""
"Position"="middle"
"AppliesTo"="NOT (System.ItemPathDisplay:=\"C:\\\")"
[HKEY_CLASSES_ROOT\Drive\shell\runas\command]
@="cmd.exe /c takeown /f \"%1\\\" /r /d y && icacls \"%1\\\" /grant *S-1-3-4:F /t /c & Pause"
"IsolatedCommand"="cmd.exe /c takeown /f \"%1\\\" /r /d y && icacls \"%1\\\" /grant *S-1-3-4:F /t /c & Pause"
Raw
vstudio_telemetry.cmd
@echo off
fltmc >nul 2>&1 || (
echo This batch script requires administrator privileges. Right-click on
echo the script and select "Run as administrator".
goto :die
)
rem Change this path if you are using Community or Professional editions
set "VS_INSTALL_DIR=%ProgramFiles(x86)%\Microsoft Visual Studio\2019\Community"
if not defined ProgramFiles(x86) (
set "VS_INSTALL_DIR=%ProgramFiles%\Microsoft Visual Studio\2019\Community"
)
set "VS_POLICIES_KEY=HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\VisualStudio"
set "VS_POLICIES_FEEDBACK_KEY=%VS_POLICIES_KEY%\Feedback"
set "VS_POLICIES_SQM_KEY=%VS_POLICIES_KEY%\SQM"
set "VS_TELEMETRY_KEY=HKEY_CURRENT_USER\Software\Microsoft\VisualStudio\Telemetry"
rem Disable feedback in Visual Studio
reg add "%VS_POLICIES_FEEDBACK_KEY%" /v DisableFeedbackDialog /t REG_DWORD /d 1 /f
reg add "%VS_POLICIES_FEEDBACK_KEY%" /v DisableEmailInput /t REG_DWORD /d 1 /f
reg add "%VS_POLICIES_FEEDBACK_KEY%" /v DisableScreenshotCapture /t REG_DWORD /d 1 /f
rem Disable PerfWatson
reg add "%VS_POLICIES_SQM_KEY%" /v OptIn /t REG_DWORD /d 0 /f
rem Disable telemetry
reg add "%VS_TELEMETRY_KEY%" /v TurnOffSwitch /t REG_DWORD /d 1 /f
rem Also consider adding these to your C:\Windows\system32\drivers\etc\hosts
rem 127.0.0.1 vortex.data.microsoft.com
rem 127.0.0.1 dc.services.visualstudio.com
rem 127.0.0.1 visualstudio-devdiv-c2s.msedge.net
rem 127.0.0.1 az667904.vo.msecnd.net
rem 127.0.0.1 az700632.vo.msecnd.net
rem 127.0.0.1 sxpdata.microsoft.com
rem 127.0.0.1 sxp.microsoft.com
rem Delete telemetry directories
rmdir /s /q "%AppData%\vstelemetry" 2>nul
rmdir /s /q "%LocalAppData%\Microsoft\VSApplicationInsights" 2>nul
rmdir /s /q "%ProgramData%\Microsoft\VSApplicationInsights" 2>nul
rmdir /s /q "%Temp%\Microsoft\VSApplicationInsights" 2>nul
rmdir /s /q "%Temp%\VSFaultInfo" 2>nul
rmdir /s /q "%Temp%\VSFeedbackIntelliCodeLogs" 2>nul
rmdir /s /q "%Temp%\VSFeedbackPerfWatsonData" 2>nul
rmdir /s /q "%Temp%\VSFeedbackVSRTCLogs" 2>nul
rmdir /s /q "%Temp%\VSRemoteControl" 2>nul
rmdir /s /q "%Temp%\VSTelem" 2>nul
rmdir /s /q "%Temp%\VSTelem.Out" 2>nul
rem Disable the default extensions you don't actually use, for example:
rem - VS Live Share
rem - Dotnet Extensions for Test Explorer
rem - Microsoft Studio Test Platform
rem - Test Adapter for Google Tests
rem - Test Adapter for Boost.Test
:die
echo.
pause
exit
Raw
Windows_Defender_Off_in_Windows.reg
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender]
"DisableAntiSpyware"=dword:00000001
"DisableRealtimeMonitoring"=dword:00000001
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection]
"DisableBehaviorMonitoring"=dword:00000001
"DisableOnAccessProtection"=dword:00000001
"DisableScanOnRealtimeEnable"=dword:00000001
Raw
Windows_Defender_On_in_Windows.reg
Windows Registry Editor Version 5.00
[-HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment