'==================================================================
' Windows 8 のモダンUIアプリのショートカットをデスクトップに作成しますYO！
'http://d.hatena.ne.jp/palm84/20150915/1442247626
'http://www10.plala.or.jp/palm84/wsh.html
'http://www10.plala.or.jp/palm84/archives/wsh/Win8_CreateModernUIAppsShortCut.vbs.txt
'https://eu7w9wsmf6a74xyjdfzl3q-on.drv.tw/archives/wsh/Win8_CreateModernUIAppsShortCut.vbs.txt
'==================================================================
'Shell オブジェクトを作成
Set objShell = WScript.CreateObject("WScript.Shell")
'FileSystemObject オブジェクトを作成
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

Const Reg_ProductName = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName"
myOS = objShell.RegRead(Reg_ProductName)
If InStr(myOS, "Windows 8") = 0 Then 
		MsgBox "Windows 8 専用クマー (´；ω；`) ",48 ,"I am Sorry, ヒゲソ..（ｒｙ"
		WScript.Quit
End If

MyKakunin

'*** 環境変数とか取得 ***
Desktop = objShell.SpecialFolders("Desktop")
AppsFolder = "shell:AppsFolder\"

'*** path ***
'*** ショートカット基本設定 ***
strFile = "%windir%\explorer.exe"
myFolder = Desktop & "\ModernUIShortcuts"
If Not objFSO.FolderExists(myFolder) Then
	objFSO.CreateFolder(myFolder)
End IF
strWorkingDirectory = ""
strIcon = "%windir%\ImmersiveControlPanel\SystemSettings.exe, 0"

'*** アプリ設定 ***
Dim strTitle(30), AppsName(30), AppsIcon(30)
strTitle(0) = "マネー"
AppsName(0) = "Microsoft.BingFinance_8wekyb3d8bbwe!AppexFinance"
AppsIcon(0) = "%windir%\ImmersiveControlPanel\SystemSettings.exe, 0"
strTitle(1) = "フード＆レシピ"
AppsName(1) = "Microsoft.BingFoodAndDrink_8wekyb3d8bbwe!AppexFoodAndDrink"
AppsIcon(1) = ""
strTitle(2) = "ヘルスケア"
AppsName(2) = "Microsoft.BingHealthAndFitness_8wekyb3d8bbwe!AppexHealthAndFitness"
AppsIcon(2) = ""
strTitle(3) = "地図"
AppsName(3) = "Microsoft.BingMaps_8wekyb3d8bbwe!AppexMaps"
AppsIcon(3) = ""
strTitle(4) = "ニュース"
AppsName(4) = "Microsoft.BingNews_8wekyb3d8bbwe!AppexNews"
AppsIcon(4) = ""
strTitle(5) = "スポーツ"
AppsName(5) = "Microsoft.BingSports_8wekyb3d8bbwe!AppexSports"
AppsIcon(5) = ""
strTitle(6) = "MSN トラベル"
AppsName(6) = "Microsoft.BingTravel_8wekyb3d8bbwe!AppexTravel"
AppsIcon(6) = ""
strTitle(7) = "天気"
AppsName(7) = "Microsoft.BingWeather_8wekyb3d8bbwe!App"
AppsIcon(7) = ""
strTitle(8) = "ヘルプ+使い方"
AppsName(8) = "Microsoft.HelpAndTips_8wekyb3d8bbwe!HelpAndTips"
AppsIcon(8) = ""
strTitle(9) = "OneNote"
AppsName(9) = "Microsoft.Office.OneNote_8wekyb3d8bbwe!microsoft.onenoteim"
AppsIcon(9) = ""
strTitle(10) = "リーダー"
AppsName(10) = "Microsoft.Reader_8wekyb3d8bbwe!Microsoft.Reader"
AppsIcon(10) = ""
strTitle(11) = "Skype"
AppsName(11) = "Microsoft.SkypeApp_kzf8qxf38zg5c!App"
AppsIcon(11) = ""
strTitle(12) = "アラーム&クロック"
AppsName(12) = "Microsoft.WindowsAlarms_8wekyb3d8bbwe!App"
AppsIcon(12) = ""
strTitle(13) = "電卓"
AppsName(13) = "Microsoft.WindowsCalculator_8wekyb3d8bbwe!App"
AppsIcon(13) = ""
strTitle(14) = "カレンダー"
AppsName(14) = "microsoft.windowscommunicationsapps_8wekyb3d8bbwe!Microsoft.WindowsLive.Calendar"
AppsIcon(14) = ""
strTitle(15) = "メール"
AppsName(15) = "microsoft.windowscommunicationsapps_8wekyb3d8bbwe!Microsoft.WindowsLive.Mail"
AppsIcon(15) = ""
strTitle(16) = "People"
AppsName(16) = "microsoft.windowscommunicationsapps_8wekyb3d8bbwe!Microsoft.WindowsLive.People"
AppsIcon(16) = ""
strTitle(17) = "リーディング リスト アプリ"
AppsName(17) = "Microsoft.WindowsReadingList_8wekyb3d8bbwe!Microsoft.WindowsReadingList"
AppsIcon(17) = ""
strTitle(18) = "スキャン"
AppsName(18) = "Microsoft.WindowsScan_8wekyb3d8bbwe!App"
AppsIcon(18) = ""
strTitle(19) = "サウンド レコーダー"
AppsName(19) = "Microsoft.WindowsSoundRecorder_8wekyb3d8bbwe!App"
AppsIcon(19) = ""
strTitle(20) = "ゲーム"
AppsName(20) = "Microsoft.XboxLIVEGames_8wekyb3d8bbwe!Microsoft.XboxLIVEGames"
AppsIcon(20) = ""
strTitle(21) = "ミュージック"
AppsName(21) = "Microsoft.ZuneMusic_8wekyb3d8bbwe!Microsoft.ZuneMusic"
AppsIcon(21) = ""
strTitle(22) = "ビデオ"
AppsName(22) = "Microsoft.ZuneVideo_8wekyb3d8bbwe!Microsoft.ZuneVideo"
AppsIcon(22) = ""
strTitle(23) = "フォト"
AppsName(23) = "FileManager_cw5n1h2txyewy!Microsoft.Windows.PhotoManager"
strTitle(24) = "カメラ"
AppsName(24) = "Microsoft.MoCamera_cw5n1h2txyewy!Microsoft.Camera"
'strTitle(25) = ""
'AppsName(25) = ""
'strTitle(26) = ""
'AppsName(26) = ""


For x = 0 to 26
	If strTitle(x) <> "" Then
		Title = strTitle(x)
		strArguments = AppsFolder & AppsName(x)
		'strIcon = AppsIcon(x)
		MySC
	End If
Next

Title = "ストア"
strFile = "ms-windows-store:"
MySC


Kakunin = MsgBox ("終了です YO！", 64 ,"クマー！ (´･ω･`) ") 

Set objShortcut = Nothing
Set objFSO = Nothing
Set objShell = Nothing

'*********************************************************
'Sub MyKakunin
'*********************************************************
Sub MyKakunin
Kakunin = MsgBox ("Windows 8 のモダンUIアプリのショートカットを作りますのん？ (´･ω･`)", 65 ,"モダンUIアプリのショートカットを作るＹＯ！  (´･ω･`) ") 
If Kakunin = 2 Then
	WScript.Quit
End If
End Sub

'*********************************************************
'Sub MySC
'*********************************************************
Sub MySC
strShortCut = myFolder & "\" & Title & ".lnk"
'*** ショートカットオブジェクトを作成 ***
Set objShortCut = objShell.CreateShortcut(strShortCut)
With objShortCut
' リンク先
	.TargetPath = strFile
' 作業フォルダ
	.WorkingDirectory = strWorkingDirectory
' 引数
	.Arguments = strArguments
' コメント
	.Description = ""
' アイコン
	.IconLocation = strIcon
End With
objShortCut.Save

End Sub