'==================================================================
'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_CreateQuickStartMenu.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")

'***  ***
'strName = ""
'strCLSID = "{}"
'MyCreateFolder

MyKakunin

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

'*** プログラム ***
objShell.Run "cmd.exe /c if not exist ""%AppData%\Microsoft\Internet Explorer\Quick Launch\プログラム"" mklink /J ""%AppData%\Microsoft\Internet Explorer\Quick Launch\プログラム"" ""%AppData%\Microsoft\Windows\Start Menu\Programs"""

'*** プログラム AllUsers ***
objShell.Run "cmd.exe /c if not exist ""%AppData%\Microsoft\Internet Explorer\Quick Launch\プログラム AllUsers"" mklink /J ""%AppData%\Microsoft\Internet Explorer\Quick Launch\プログラム AllUsers"" ""%ProgramData%\Microsoft\Windows\Start Menu\Programs"""

'*** コントロール パネル ***
strName = "コントロール パネル"
strCLSID = "{21EC2020-3AEA-1069-A2DD-08002B30309D}"
MyCreateFolder

'*** コンピューター ***
strName = "コンピューター"
strCLSID = "{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
MyCreateFolder

'*** ライブラリ ***
strName = "ライブラリ"
strCLSID = "{031E4825-7B94-4dc3-B131-E946B44C8DD5}"
MyCreateFolder

'*** デバイスとプリンター ***
strName = "デバイスとプリンター"
strCLSID = "{2227A280-3AEA-1069-A2DE-08002B30309D}"
MyCreateFolder

'*** ネットワーク接続 ***
strName = "ネットワーク接続"
strCLSID = "{992CFFA0-F557-101A-88EC-00DD010CCC48}"
MyCreateFolder

'*** 管理ツール ***
strName = "管理ツール"
strCLSID = "{D20EA4E1-3957-11d2-A40B-0C5020524153}"
MyCreateFolder

'*** ネットワーク ***
strName = "ネットワーク"
strCLSID = "{208D2C60-3AEA-1069-A2D7-08002B30309D}"
MyCreateFolder

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

Set objTxt = Nothing
Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
Set objShell = Nothing

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

'*********************************************************
' Sub
'*********************************************************
Sub MyCreateFolder
'フォルダが存在するなら何もしない、なければ作成
strNewFolder = QuickLaunch & "\" & strName
If Not objFSO.FolderExists(strNewFolder) Then
    objFSO.CreateFolder strNewFolder
	Else
	Exit Sub
End If

' desktop.ini 作成
strINI = strNewFolder & "\" & INIFile
Set objTxt = objFSO.OpenTextFile(strINI, ForWriting, true, -2)
objTxt.WriteLine "[.ShellClassInfo]"
objTxt.WriteLine "CLSID=" & strCLSID
objTxt.Close
'ファイルにシステム・隠し属性
Set objFile = objFSO.GetFile(strINI)
objFile.Attributes = objFile.Attributes + 6
'フォルダにシステム属性
Set objFolder = objFSO.GetFolder(strNewFolder)
objFolder.Attributes = objFolder.Attributes + 4

End Sub

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

'End Sub