'================================================================== ' Windows 10 の「設定」ショートカットを作成しますYO! 'http://www10.plala.or.jp/palm84/wsh.html 'http://d.hatena.ne.jp/palm84/20150809/1439131299 'http://www10.plala.or.jp/palm84/archives/wsh/Win10-1803_CreateMsSettingsShortCut.vbs.txt 'https://eu7w9wsmf6a74xyjdfzl3q-on.drv.tw/archives/wsh/Win10-1803_CreateMsSettingsShortCut.vbs.txt '================================================================== '2018.05.03 13:24 April 2018 Update ReleaseID 1803 対応 '2018.10.04 「ネットワークとインターネット」修正 Set objShell = WScript.CreateObject("WScript.Shell") 'FileSystemObject オブジェクトを作成 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Const Reg_ProductName = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName" Const Reg_ReleaseId = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ReleaseId" Const Scheme = "ms-settings:" Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const INIFile = "desktop.ini" myOS = objShell.RegRead(Reg_ProductName) If Not InStr(myOS, "Windows 10") > 0 Then MsgBox "Windows 10 専用クマー (´;ω;`) ",48 ,"I am Sorry, ヒゲソ..(ry" WScript.Quit End If If Not objShell.RegRead(Reg_ReleaseId) = "1803" Then MsgBox "April 2018 Update (ReleaseID 1803) 専用クマー (´;ω;`) ",48 ,"I am Sorry, ヒゲソ..(ry" WScript.Quit End If strArguments = "" strWorkingDirectory = "" '*** path *** appPath = objFSO.GetParentFolderName(WScript.ScriptFullName) myRoot = appPath & "\設定ショートカット" Content1 = objShell.ExpandEnvironmentStrings("%LOCALAPPDATA%\Packages\windows.immersivecontrolpanel_cw5n1h2txyewy\LocalState\Indexed\Settings\ja-JP\") Content2 = objShell.ExpandEnvironmentStrings("%Windir%\ImmersiveControlPanel\Settings\") If objFSO.FolderExists(Content1) Then Content = Content1 ElseIf objFSO.FolderExists(Content2) Then Content = Content2 End IF MyKakunin If Not objFSO.FolderExists(myRoot) Then objFSO.CreateFolder(myRoot) End IF ReDim arrCategory(12) arrCategory(0) = "01_システム" arrCategory(1) = "02_デバイス" arrCategory(2) = "03_電話" arrCategory(3) = "04_ネットワークとインターネット" 'arrCategory(3) = "パーソナル設定" arrCategory(4) = "05_個人用設定" arrCategory(5) = "06_アプリ" arrCategory(6) = "07_アカウント" arrCategory(7) = "08_時刻と言語" arrCategory(8) = "09_ゲーム" arrCategory(9) = "10_簡単操作" arrCategory(10) = "11_Cortana" arrCategory(11) = "12_プライバシー" arrCategory(12) = "13_更新とセキュリティ" For x = 0 To 12 dirCategory = myRoot & "\" & arrCategory(x) If Not objFSO.FolderExists(dirCategory) Then objFSO.CreateFolder(dirCategory) End If Next '*** 設定 *** myFolder = myRoot Title = "設定" strFile = Scheme strWorkingDirectory = "" strIcon = "%SystemRoot%\System32\shell32.dll, 316" MySC '*** xxxxx *** Dim strTitle(107), strURI(107) ' strTitle(xx) = "" ' strURI(xx) = "" '*** システム *** myFolder = myRoot & "\01_システム" strTitle(0) = "ディスプレイ" strURI(0) = "display" strTitle(1) = "サウンド" strURI(1) = "sound" strTitle(2) = "通知とアクション" strURI(2) = "notifications" strTitle(3) = "集中モード" strURI(3) = "quiethours" strTitle(4) = "電源とスリープ" strURI(4) = "powersleep" strTitle(5) = "バッテリー" strURI(5) = "batterysaver" strTitle(6) = "ストレージ" strURI(6) = "storagesense" strTitle(7) = "タブレット モード" strURI(7) = "tabletmode" strTitle(8) = "マルチタスク" strURI(8) = "multitasking" strTitle(9) = "この PC へのプロジェクション" strURI(9) = "project" strTitle(10) = "共有エクスペリエンス" strURI(10) = "crossdevice" strTitle(11) = "リモート デスクトップ" strURI(11) = "remotedesktop" strTitle(12) = "バージョン情報" strURI(12) = "about" For y = 0 to 12 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** デバイス *** myFolder = myRoot & "\02_デバイス" strTitle(13) = "Bluetooth とその他のデバイス" strURI(13) = "bluetooth" strTitle(14) = "プリンタとスキャナー" strURI(14) = "printers" strTitle(15) = "マウス" strURI(15) = "mousetouchpad" strTitle(16) = "タッチパッド" strURI(16) = "devices-touchpad" strTitle(17) = "入力" strURI(17) = "typing" strTitle(18) = "ペンと Windows Ink" strURI(18) = "pen" strTitle(19) = "自動再生" strURI(19) = "autoplay" strTitle(20) = "USB" strURI(20) = "usb" For y = 13 to 20 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** 電話 *** myFolder = myRoot & "\03_電話" strTitle(21) = "電話" strURI(21) = "mobile-devices" Title = strTitle(21) strFile = Scheme & strURI(21) MySC 'For y = 18 to 18 ' If strTitle(y) <> "" Then ' Title = strTitle(y) ' strFile = Scheme & strURI(y) ' MySC ' End If 'Next '*** ネットワークとインターネット *** myFolder = myRoot & "\04_ネットワークとインターネット" strTitle(22) = "状態" strURI(22) = "network-status" strTitle(23) = "Wi-Fi" strURI(23) = "network-wifi" strTitle(24) = "イーサネット" strURI(24) = "network-ethernet" strTitle(25) = "ダイヤルアップ" strURI(25) = "network-dialup" strTitle(26) = "VPN" strURI(26) = "network-vpn" strTitle(27) = "機内モード" strURI(27) = "network-airplanemode" strTitle(28) = "モバイル ホットスポット" strURI(28) = "network-mobilehotspot" strTitle(29) = "データ使用状況" strURI(29) = "datausage" strTitle(30) = "プロキシ" strURI(30) = "network-proxy" For y = 22 to 30 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** 個人用設定 *** myFolder = myRoot & "\05_個人用設定" strTitle(31) = "背景" strURI(31) = "personalization-background" strTitle(32) = "色" strURI(32) = "colors" strTitle(33) = "ロック画面" strURI(33) = "lockscreen" strTitle(34) = "テーマ" strURI(34) = "themes" strTitle(35) = "フォント" strURI(35) = "fonts" strTitle(36) = "スタート" strURI(36) = "personalization-start" strTitle(37) = "タスクバー" strURI(37) = "taskbar" For y = 31 to 37 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** アプリ *** myFolder = myRoot & "\06_アプリ" strTitle(38) = "アプリと機能" strURI(38) = "appsfeatures" strTitle(39) = "既定のアプリ" strURI(39) = "defaultapps" strTitle(40) = "オフライン マップ" strURI(40) = "maps" strTitle(41) = "Web サイト用のアプリ" strURI(41) = "appsforwebsites" strTitle(42) = "ビデオの再生" strURI(42) = "videoplayback" strTitle(43) = "スタートアップ" strURI(43) = "startupapps" For y = 38 to 43 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** アカウント *** myFolder = myRoot & "\07_アカウント" strTitle(44) = "ユーザーの情報" strURI(44) = "yourinfo" strTitle(45) = "メール & アプリのアカウント" strURI(45) = "emailandaccounts" strTitle(46) = "サインイン オプション" strURI(46) = "signinoptions" strTitle(47) = "職場または学校にアクセスする" strURI(47) = "workplace" strTitle(48) = "家族とその他のユーザー" strURI(48) = "otherusers" strTitle(49) = "設定の同期" strURI(49) = "sync" For y = 44 to 49 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** 時刻と言語 *** myFolder = myRoot & "\08_時刻と言語" strTitle(50) = "日付と時刻" strURI(50) = "dateandtime" strTitle(51) = "地域と言語" strURI(51) = "regionlanguage" strTitle(52) = "音声認識" strURI(52) = "speech" For y = 50 to 52 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** ゲーム *** myFolder = myRoot & "\09_ゲーム" strTitle(53) = "ゲーム バー" strURI(53) = "gaming-gamebar" strTitle(54) = "ゲーム DVR" strURI(54) = "gaming-gamedvr" strTitle(55) = "ブロードキャスト" strURI(55) = "gaming-broadcasting" strTitle(56) = "ゲーム モード" strURI(56) = "gaming-gamemode" strTitle(57) = "TruePlay" strURI(57) = "gaming-trueplay" strTitle(58) = "Xbox ネットワーク" strURI(58) = "gaming-xboxnetworking" For y = 53 to 58 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** 簡単操作 *** myFolder = myRoot & "\10_簡単操作" strTitle(59) = "ディスプレイ" strURI(59) = "easeofaccess-display" strTitle(60) = "カーソルとポインターのサイズ" strURI(60) = "easeofaccess-cursorandpointersize" strTitle(61) = "拡大鏡" strURI(61) = "easeofaccess-magnifier" strTitle(62) = "カラーフィルター" strURI(62) = "easeofaccess-colorfilter" strTitle(63) = "ハイ コントラスト" strURI(63) = "easeofaccess-highcontrast" strTitle(64) = "ナレーター" strURI(64) = "easeofaccess-narrator" strTitle(65) = "オーディオ" strURI(65) = "easeofaccess-audio" strTitle(66) = "字幕" strURI(66) = "easeofaccess-closedcaptioning" strTitle(67) = "音声認識" strURI(67) = "easeofaccess-speechrecognition" strTitle(68) = "キーボード" strURI(68) = "easeofaccess-keyboard" strTitle(69) = "マウス" strURI(69) = "easeofaccess-mouse" strTitle(70) = "視線制御 (ベータ)" strURI(70) = "easeofaccess-eyecontrol" For y = 59 to 70 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** Cortana *** myFolder = myRoot & "\11_Cortana" 'strURI(71) = "cortana" strTitle(71) = "Cortana に話しかける" strURI(71) = "cortana-talktocortana" strTitle(72) = "アクセス許可と履歴" strURI(72) = "cortana-permissions" strTitle(73) = "デバイス間での Cortana" strURI(73) = "cortana-notifications" strTitle(74) = "詳細情報" strURI(74) = "cortana-moredetails" For y = 71 to 74 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** プライバシー *** myFolder = myRoot & "\12_プライバシー" strTitle(75) = "全般" strURI(75) = "privacy" strTitle(76) = "音声認識、手書き入力、入力の設定" strURI(76) = "privacy-speechtyping" strTitle(77) = "診断 & フィードバック" strURI(77) = "privacy-feedback" strTitle(78) = "アクティビティの履歴" strURI(78) = "privacy-activityhistory" strTitle(79) = "位置情報" strURI(79) = "privacy-location" strTitle(80) = "カメラ" strURI(80) = "privacy-webcam" strTitle(81) = "マイク" strURI(81) = "privacy-microphone" strTitle(82) = "通知" strURI(82) = "privacy-notifications" strTitle(83) = "アカウント情報" strURI(83) = "privacy-accountinfo" strTitle(84) = "連絡先" strURI(84) = "privacy-contacts" strTitle(85) = "カレンダー" strURI(85) = "privacy-calendar" strTitle(86) = "通話履歴" strURI(86) = "privacy-callhistory" strTitle(87) = "メール" strURI(87) = "privacy-email" strTitle(88) = "タスク" strURI(88) = "privacy-tasks" strTitle(89) = "メッセージング" strURI(89) = "privacy-messaging" strTitle(90) = "無線" strURI(90) = "privacy-radios" strTitle(91) = "他のデバイス" strURI(91) = "privacy-customdevices" strTitle(92) = "バックグラウンド アプリ" strURI(92) = "privacy-backgroundapps" strTitle(93) = "アプリの診断" strURI(93) = "privacy-appdiagnostics" strTitle(94) = "ファイルの自動ダウンロード" strURI(94) = "privacy-automaticfiledownloads" strTitle(95) = "ドキュメント" strURI(95) = "privacy-documents" strTitle(96) = "ピクチャ" strURI(96) = "privacy-pictures" strTitle(97) = "ビデオ" strURI(97) = "privacy-videos" strTitle(98) = "ファイルシステム" strURI(98) = "privacy-broadfilesystemaccess" For y = 75 to 98 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next '*** 更新とセキュリティ *** myFolder = myRoot & "\13_更新とセキュリティ" strTitle(99) = "Windows Update" strURI(99) = "windowsupdate" strTitle(100) = "Windows セキュリティ" strURI(100) = "windowsdefender" strTitle(101) = "バックアップ" strURI(101) = "backup" strTitle(102) = "トラブルシューティング" strURI(102) = "troubleshoot" strTitle(103) = "回復" strURI(103) = "recovery" strTitle(104) = "ライセンス認証" strURI(104) = "activation" strTitle(105) = "デバイスの検索" strURI(105) = "findmydevice" strTitle(106) = "開発者向け" strURI(106) = "developers" strTitle(107) = "Windows Insider Program" strURI(107) = "windowsinsider" For y = 99 to 107 If strTitle(y) <> "" Then Title = strTitle(y) strFile = Scheme & strURI(y) MySC End If Next strFile = "%windir%\explorer.exe" '*** Windows Update *** myFolder = myRoot Title = "Windows Update" 'strArguments = Content & "AAA_SettingsPageRestoreMusUpdate" & ".settingcontent-ms" strFile = Scheme & "windowsupdate" strIcon = "%SystemRoot%\System32\shell32.dll, 46" MySC '*** ネットワーク接続 *** myFolder = myRoot Title = "ネットワーク接続" 'strArguments = Content & "Classic_{9EF86966-2F35-49BE-A9F6-398E0B844411}" & ".settingcontent-ms" strIcon = "%SystemRoot%\System32\netshell.dll, 0" 'If objFSO.FileExists(strArguments) Then ' MySC 'Else strFile = "%windir%\system32\control.exe" strArguments = "ncpa.cpl" MySC 'End If '*** ネットワークと共有センター *** myFolder = myRoot Title = "ネットワークと共有センター" 'strArguments = Content & "Classic_{BD256B65-94BE-4194-84BF-41D50D0EF26E}" & ".settingcontent-ms" strIcon = "%SystemRoot%\System32\netcenter.dll, 0" 'If objFSO.FileExists(strArguments) Then ' MySC 'Else strFile = "%windir%\system32\control.exe" strArguments = "/name Microsoft.NetworkAndSharingCenter" MySC 'End If '*** コントロール パネル *** 'myFolder = myRoot 'Title = "コントロール パネル" 'strArguments = Content & "ControlPanel" & ".settingcontent-ms" 'strIcon = "%SystemRoot%\System32\shell32.dll, 21" 'MySC '*** コントロール パネル *** myFolder = myRoot Title = "コントロール パネル" strFile = "%windir%\System32\control.exe" strArguments = "" strIcon = "%SystemRoot%\System32\shell32.dll, 21" MySC '*** Windows Defender セキュリティ センター *** Title = "Windows Defender セキュリティ センター" strFile = "%windir%\explorer.exe" strArguments = "shell:AppsFolder\Microsoft.Windows.SecHealthUI_cw5n1h2txyewy!SecHealthUI" strIcon = "%ProgramFiles%\Windows Defender\MSASCui.exe, 0" MySC '*** GodMode *** 'strFolder = myRoot 'Title = "GodMode" 'strFolder = myRoot & "\" & Title 'strCLSID = "{ED7BA470-8E54-465E-825C-99712043E01C}" 'strIcon = "%SystemRoot%\system32\shell32.dll, 207" 'If Not objFSO.FolderExists(strFolder) Then ' MyCreateFolder 'End If '*** GodMode (リンク) *** 'Title = "GodMode (リンク)" 'strArguments = myRoot & "\" & "GodMode" 'strIcon = "%SystemRoot%\system32\shell32.dll, 207" 'MySC Kakunin = MsgBox ("終了です YO!", 64 ,"クマー! (´・ω・`) ") Set objTxt = Nothing Set objFSO = Nothing Set objShortcut = Nothing Set objShell = Nothing '********************************************************* 'Sub MyKakunin '********************************************************* Sub MyKakunin Kakunin = MsgBox ("設定ショートカットを作りますのん? (´・ω・`)", 65 ,"設定ショートカットを作るYO! (´・ω・`) ") 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 ''WScript.Echo strFileName & "にショートカットを作成しました。" 'MsgBox "ショートカットを作成しました YO!" & vbcrlf & vbcrlf & Title,64 ,"(´・ω・`) クマー! " End Sub '********************************************************* '* Sub MyCreateFolder '********************************************************* Sub MyCreateFolder 'フォルダが存在するなら何もしない、なければ作成 If Not objFSO.FolderExists(strFolder) Then objFSO.CreateFolder strFolder End If ' desktop.ini 作成 strINI = strFolder & "\" & 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(strFolder) 'フォルダにシステム属性 objFolder.Attributes = objFolder.Attributes + 4 'フォルダにシステム&隠し属性 'objFolder.Attributes = objFolder.Attributes + 6 End Sub