SQLの窓

2013年02月05日


Windows7 : VBScriptで、コントロールパネル内のエントリの実行

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 SHELL
posted by lightbox at 2013-02-05 14:54 | VBS + Shell | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
CSS ドロップシャドウの参考デモ
Google Hosted Libraries
cdnjs
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり