Windows7 : VBScriptで、コントロールパネル内のエントリの実行 : logical errorWindows7 で実行して確認しました。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 objFold
