No.2ベストアンサー
- 回答日時:
WMIを使わなければ列挙(EnumKey,EnumValues)はできないと思います。
キーまたは名前指定でよければエラーハンドリングできます。VBScriptならOn Error Resume Nextを使います。
-----
'Name = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir"
Name = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDirErr"
Set WshShell = WScript.CreateObject("WScript.Shell")
Val = ""
On Error Resume Next
Val = WshShell.RegRead(Name)
On Error GoTo 0
if Val="" then
WScript.Echo Name & "の読み取りエラーです。"
else
WScript.Echo Name & "の値は" & Val & "です。"
end if
-----
JScriptならスマートなtry catchを使えます。バージョン5以降。最新は5.6です。
-----
//Name = "HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\ProgramFilesDir";
Name = "HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\ProgramFilesDirErr";
WshShell = WScript.CreateObject("WScript.Shell");
try{
Val = WshShell.RegRead(Name);
}
catch(e){
Val = "";
}
if (Val=="")
WScript.Echo (Name + "の読み取りエラーです。");
else
WScript.Echo (Name + "の値は" + Val + "です。");
-----
No.1
- 回答日時:
Dim WshShell, regValue
Set WshShell = WScript.CreateObject("WScript.Shell")
regValue = WshShell.RegRead ("レジストリキーまたは名前")
この回答への補足
回答、ありがとうございます.
言葉足らずだったのですが、
WshShell.RegRead ("レジストリキーまたは名前")
は試しております.
ですが、98SEの場合、キーが存在しないとエラーで落ちてしまいます.(警告のPOPUP)
エラーで落ちた場合に、エラーハンドリングして、判断するという手段は、今回の仕様だと使えません.
何か他に方法はないでしょうか?
またはエラーで落ちないようにすることは可能なのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel-VBAの「しばらくお待ちください」のダイアログが自動的に閉じない 2 2023/05/24 15:31
- 一戸建て 耐震性、工法について質問させていただきます。 現在、3階建てを計画しています。検討していく中で、se 2 2022/10/08 11:09
- Excel(エクセル) クリップボードの件 2 2022/11/05 12:11
- Y!mobile(ワイモバイル) 安心フィルターとかで管理されてるのを確認する方法はありますか?できるだけ親にバレない方法で、自分はi 1 2022/12/28 09:15
- その他(パソコン・スマホ・電化製品) 画面ミラーリングについて アプリを使わずにWindows11とiPhone SEをミラーリングする方 3 2023/04/26 22:26
- CPU・メモリ・マザーボード メモリが使用可能にならない 3 2022/08/13 17:13
- プリンタ・スキャナー 印刷開始までに時間がかかります 5 2022/05/13 13:17
- その他(IT・Webサービス) iPhone SEとデスクトップPC dynabook 無線でつなげたい 5 2023/07/09 09:33
- ビデオカード・サウンドカード PCに接続したイヤフォンのマイクが使えません。 3 2022/10/22 11:07
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー'-2147467259(8000...
-
SQLでエラーです。
-
実行時エラー 438 の解決策をお...
-
お助けください!VBAのファイル...
-
IISの仮想ディレクトリ作成がわ...
-
VBAでfunctionを利用しようとし...
-
インポート時のエラー「データ...
-
【VBA】ワークブックを開く時に...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
エクセルVBAでApplication.Sum...
-
VBAのエラーについて
-
VBA データ(特定値)のある最...
-
エクセル関数を教えてください
-
ActiveCell.FormulaR1C1の変数
-
On ErrorでエラーNoが0
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
On ErrorでエラーNoが0
-
エクセルVBA 「On Error GoTo...
-
VBA データ(特定値)のある最...
-
実行時エラー'-2147467259(8000...
-
【VBA】ワークブックを開く時に...
-
VBでSQL文のUPDATE構文を使った...
-
ACCESSで値を代入できないとは?
-
マクロの「SaveAs」でエラーが...
-
Excel vbaについての質問
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
「実行時エラー '3167' レコー...
-
バッチファイルで、あるスクリ...
おすすめ情報