Windows7 で実行して確認しました。Windows XP 以前では少し違っていたのですが、当時のコードを Windows7 で実行すると動かなかったので再度テストしました。
' Windows7 での実行サンプル
Set objShell = CreateObject("Shell.Application")
' All Control Panel Items
ControlPanel = "::{21EC2020-3AEA-1069-A2DD-08002B30309D}"
' コントロールパネルをあらわすフォルダ
Set objFolder = objShell.NameSpace(ControlPanel)
' オブジェクトが正常に取得できた場合
if not objFolder is nothing then
' フォルダの中のアイテムコレクションを取得
Set objFolderItems = objFolder.Items
For I = 0 to objFolderItems.Count - 1
' 一覧の中から特定のエントリを対象とする
if objFolderItems.item(I).Name = "日付と時刻" then
' 実行は以下で確認しています
objFolderItems.item(I).InvokeVerb()
Exit For
end if
Next
end if
'電源オプション
'通知領域アイコン
'NVIDIA コントロール パネル
'タスク バーと [スタート] メニュー
'資格情報マネージャー
'既定のプログラム
'RemoteApp とデスクトップ接続
'Windows Update
'デスクトップ ガジェット
'Windows ファイアウォール
'電話とモデム
'Java
'音声認識
'ユーザー アカウント
'地域と言語
'ホームグループ
'マウス
'フォルダー オプション
'キーボード
'デバイス マネージャー
'Windows CardSpace
'パフォーマンスの情報とツール
'プログラムと機能
'インデックスのオプション
'ネットワークと共有センター
'保護者による制限
'自動再生
'同期センター
'回復
'インターネット オプション
'デバイスとプリンター
'色の管理
'バックアップと復元
'システム
'アクション センター
'フォント
'Windows Anytime Upgrade
'ディスプレイ
'トラブルシューティング
'はじめに
'管理ツール
'コンピューターの簡単操作センター
'Windows Defender
'日付と時刻
'位置センサーとその他のセンサー
'個人設定
'サウンド
'Realtek HD オーディオマネージャ
'DirectX
'メール
'Adobe Gamma
'Flash Player
Shell Objects for Scripting and Microsoft Visual Basic (Windows)
VBScriptドキュメント
|
|
【VBS + Shellの最新記事】
- VBScript を『管理者として実行する』には、Shell の runas ( 右クリックメニューの実行と同等 ) で実現します / Jscript も追加
- VBScript : キーストロークをウインドウに送信して、キー操作をした事にする( 例 : リモート デスクトップ接続ダイアログ )
- エクスプローラのフォルダから管理者権限でコマンドプロンプトを開く / 右クリックから『送る』で開く
- 管理者権限でコマンドプロンプトを開く VBScript をエクスプローラの右クリックで開く( そのフォルダで開く )方法
- シャットダウンダイアログを表示する / ログオフ・リブート・シャットダウン / VBScript
- Windows のファイルの『更新日付』のみ VBScript + Shell.Application で変更
- VBScript : プロパティダイアログを表示する
- VBScript : ファイルやフォルダを右クリックすると表示されるコマンド文字列の一覧を取得して、それを使ってコマンドを実行する
- VBScript : Shell.Application で開くWindows ツール
- シャットダウンダイアログを開くスクリプトと、シャットダウンするスクリプト
【VBScript関連のカテゴリ】
