'==================================================================
'Windows 8 のスタートメニューもどきを削除しちゃいますYO！
'http://www10.plala.or.jp/palm84/wsh.html
'http://d.hatena.ne.jp/palm84/20121028/1351419637
'http://www10.plala.or.jp/palm84/archives/wsh/Windows_DeleteQuickStartMenu.vbs.txt
'==================================================================
'Shell オブジェクトを作成
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\プログラム"""

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

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

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

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

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

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

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

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

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

MsgBox "クイック起動スタートメニューもどきを削除しました YO！"  & vbcrlf & vbcrlf & Title,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
'*********************************************************
Sub MyDeleteFolder
strNewFolder = QuickLaunch & "\" & strName
'フォルダが存在するなら削除
If objFSO.FolderExists(strNewFolder) Then
	objFSO.DeleteFolder(strNewFolder)
End If
End Sub

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

'End Sub