<#
	.Synopsis
		Turn on and of the old menu in Windows 8
	.Description
		Turn on and of the old menu in Windows 8
		Will create shortcut on desktop for easy access
		
		Due to slow desktop update in Windows 8 you might
		need to hit F5 after the script
	.Notes
		NAME:      	menuWin8
		VERSION:	1.00
		AUTHOR:    	Fredrik Wall, fredrik@poweradmin.se
		COPYRIGHT:	Fredrik Wall, 2011 (c).
		BLOG:		poweradmin.se/blog
		TWITTER:	walle75
#>
cls

$RPEnabled = Get-ItemProperty "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer" -Name "RPEnabled"
$RPEnabled = $RPEnabled.RPEnabled

if ($RPEnabled -eq "1") {
	Set-ItemProperty "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer" -name "RPEnabled" -Value "0"

	$shell = New-Object -comObject Wscript.Shell
	$desktop = [System.Environment]::GetFolderPath('Desktop')

	Remove-Item "$desktop\Turn on old menu.lnk" -ErrorAction SilentlyContinue -force

	$shortcut = $shell.CreateShortCut("$desktop\Turn on new menu.lnk")
	$shortcut.TargetPath = "PowerShell.exe"
	$shortcut.Arguments = "c:\scripts\menuwin8.ps1"
	$shortcut.IconLocation = "shell32.dll,39"
	$shortcut.Save()
}

　

if ($RPEnabled -eq "0") {
	Set-ItemProperty "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer" -name "RPEnabled" -Value "1"

	$shell = New-Object -comObject Wscript.Shell
	$desktop = [System.Environment]::GetFolderPath('Desktop')

	Remove-Item "$desktop\Turn on new menu.lnk" -ErrorAction SilentlyContinue -force

	$shortcut = $shell.CreateShortCut("$desktop\Turn on old menu.lnk")
	$shortcut.TargetPath = "PowerShell.exe"
	$shortcut.Arguments = "c:\scripts\menuwin8.ps1"
	$shortcut.IconLocation = "shell32.dll,39"
	$shortcut.Save()
}