'==================================================================
'Windows 8, 10 のスタートメニューもどきを削除しちゃいますYO！
'http://d.hatena.ne.jp/palm84/20150823/1440328044
'http://d.hatena.ne.jp/palm84/20121028/1351419637
'http://www10.plala.or.jp/palm84/wsh.html
'http://www10.plala.or.jp/palm84/archives/wsh/Windows_DeleteQuickStartMenu.vbs.txt
'https://eu7w9wsmf6a74xyjdfzl3q-on.drv.tw/archives/wsh/Windows_DeleteQuickStartMenu.vbs.txt
'==================================================================
'Update		2017.10.22 01:20	Fall Creators Update ReleaseID 1709 対応, 「管理ツール」を修正
'Update		2018.12.26 			October 2018 Update (ReleaseID 1809) 対応
Set objShell = WScript.CreateObject("WScript.Shell")
'FileSystemObject オブジェクトを作成
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

'*** 定数 ***
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const INIFile = "desktop.ini"

'*** 環境変数とか取得 ***
QuickLaunch = objShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Internet Explorer\Quick Launch")

'***  ***
'strNewFolder = QuickLaunch & "\" & strName
'strINI = strNewFolder & "\" & INIFile
'strCLSID = "{}"
'MyCreateFolder

MyKakunin

'*** お気に入り ***
objShell.Run "cmd.exe /c if exist ""%AppData%\Microsoft\Internet Explorer\Quick Launch\お気に入り"" rmdir ""%AppData%\Microsoft\Internet Explorer\Quick Launch\お気に入り"""

'*** 最近使った項目 ***
objShell.Run "cmd.exe /c if exist ""%AppData%\Microsoft\Internet Explorer\Quick Launch\最近使った項目"" rmdir ""%AppData%\Microsoft\Internet Explorer\Quick Launch\最近使った項目"""

'*** プログラム ***
objShell.Run "cmd.exe /c if exist ""%AppData%\Microsoft\Internet Explorer\Quick Launch\プログラム"" rmdir  ""%AppData%\Microsoft\Internet Explorer\Quick Launch\プログラム"""

'*** プログラム AllUsers ***
objShell.Run "cmd.exe /c if exist ""%AppData%\Microsoft\Internet Explorer\Quick Launch\プログラム AllUsers"" rmdir ""%AppData%\Microsoft\Internet Explorer\Quick Launch\プログラム AllUsers"""

'*** コントロール パネル ***
strName = "コントロール パネル (menu)"
MyDeleteFolder
strName = "コントロール パネル"
MyDeleteFolder

'*** コンピューター ***
strName = "コンピューター"
MyDeleteFolder

'*** ライブラリ ***
strName = "ライブラリ"
MyDeleteFolder

'*** デバイスとプリンター ***
strName = "デバイスとプリンター"
MyDeleteFolder

'*** プリンターと FAX ***
strName = "プリンターと FAX"
MyDeleteFolder

'*** ネットワーク接続 ***
strName = "ネットワーク接続 (menu)"
MyDeleteFolder

'*** 管理ツール ***
strName = "管理ツール"
MyDeleteFolder

'*** Windows 管理ツール ***
strName = "Administrative Tools"
MyDeleteFolder

'*** ネットワーク ***
strName = "ネットワーク"
MyDeleteFolder

'*** GodMode ***
strName = "GodMode (menu)"
MyDeleteFolder

'*** コントロール パネル ***
Title = "コントロール パネル"
MyDeleteFile

'*** GodMode ***
Title = "GodMode"
MyDeleteFile

'*** Windows Update ***
Title = "Windows Update"
MyDeleteFile

'*** ネットワーク接続 ***
Title = "ネットワーク接続"
MyDeleteFile

'*** 設定 ***
Title = "設定"
MyDeleteFile

'*** PC設定 ***
Title = "PC設定"
MyDeleteFile

'*** ネットワークと共有センター ***
Title = "ネットワークと共有センター"
MyDeleteFile

'*** Windows Defender セキュリティ センター ***
Title = "Windows Defender セキュリティ センター"
MyDeleteFile

'*** Windows セキュリティ センター ***
Title = "Windows セキュリティ"
MyDeleteFile

MsgBox "クイック起動スタートメニューもどきを削除しました YO！",64 ,"(´･ω･`) クマー！ "

Set objFSO = Nothing
Set objShell = Nothing

'*********************************************************
'Sub MyKakunin
'*********************************************************
Sub MyKakunin
Kakunin = MsgBox ("クイック起動スタートメニューもどきを削除しますのん？ (´･ω･`)" & vbcrlf & vbcrlf & "　※ ジャンクションはコマンド プロンプトで削除するので" & vbcrlf & "　　　窓がチラチラ出ます", 49 ,"クイック起動にスタートメニューもどきを削除するＹＯ！  (´･ω･`) ") 
If Kakunin = 2 Then
	WScript.Quit
End If
End Sub

'*********************************************************
' Sub MyDeleteFolder
'*********************************************************
Sub MyDeleteFolder
strNewFolder = QuickLaunch & "\" & strName
'フォルダが存在するなら削除
If objFSO.FolderExists(strNewFolder) Then
	objFSO.DeleteFolder(strNewFolder)
End If
End Sub

'*********************************************************
' Sub MyDeleteFile
'*********************************************************
Sub MyDeleteFile
'ファイルが存在するなら削除
If objFSO.FileExists(strFile) Then
	objFSO.DeleteFile(strFile)
End If

strShortCut = QuickLaunch & "\" & Title & ".lnk"
strShortCut2 = Desktop & "\" & Title & ".lnk"
'ファイルが存在するなら削除
If objFSO.FileExists(strShortCut) Then
	objFSO.DeleteFile(strShortCut)
End If
If objFSO.FileExists(strShortCut2) Then
	objFSO.DeleteFile(strShortCut2)
End If
End Sub

'*********************************************************
' Sub
'*********************************************************
'Sub

'End Sub