'================================================================== '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 ,"クイック起動にスタートメニューもどき(w) を削除だYO! (´・ω・`) ") 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