C# と VB.NET の質問掲示板

お世話になります。

VS2005
VB.NETにて、クライアントマシンのレジストリ【ORACLE_HOME】 の値を参照したいのですが、
どのように行なえばよいでしょうか？

Imports Microsoft.Win32 ' RegistryKey クラスを使用するような気はしてるのですが。

結局以下でいきました。

 Private Function mFunGetOracle_Home() As String
        Dim KeyName As String = "SOFTWARE\ORACLE"
        Dim Name As String = "ORACLE_HOME"

        Try
            Dim wkReg As Microsoft.Win32.RegistryKey

            'HKEY_LOCAL_MACHINE配下のキーを操作する
            wkReg = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(KeyName)
            ' <<< ***** For Debug ****
            Console.WriteLine("{0}={1}", Name, wkReg.GetValue(Name))
            ' >>> ***** For Debug ****

            mFunGetOracle_Home = wkReg.GetValue(Name)

            wkReg.Close()
        Catch ex As NullReferenceException
            Console.WriteLine("エラー:{0}", ex.Message)
        Catch ex As Exception
            Console.WriteLine("エラー:{0}", ex.Message)
        End Try
    End Function

魔界の仮面弁士さん

確かに、Using 構文ではclose処理が必要ないですね。
またdisposeも自動か。

いつも勉強になります。

Jitta on the way さん

想定では、ファイルサーバーにアプリケーション.exeと.configファイルを置いて、
クライアントからそのexeをキックするイメージです。

ただし、現在テストしているのですが、不可思議な状況が起こっています。
あるクライアントマシンでは正常にレジストリを参照できるのですが、あるマシンでは参照できず、いづれも下記のエラーで
落っこちます。

<<< ****** error ***************
Just-In-Time (JIT) デバッグを呼び出すための詳細については、
ダイアログ ボックスではなく、このメッセージの最後を参照してください。

************** 例外テキスト **************
System.Security.SecurityException: 型 'System.Security.Permissions.FileIOPermission, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' のアクセス許可の要求に失敗しました。
   場所 System.Security.CodeAccessSecurityEngine.Check(Object demand, StackCrawlMark& stackMark, Boolean isPermSet)
   場所 System.Security.CodeAccessPermission.Demand()
   場所 System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, Int32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions options, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy)
   場所 System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, FileOptions options)
   場所 System.IO.StreamWriter.CreateFile(String path, Boolean append)
   場所 System.IO.StreamWriter..ctor(String path, Boolean append, Encoding encoding, Int32 bufferSize)
   場所 System.IO.StreamWriter..ctor(String path, Boolean append, Encoding encoding)
   場所 ModifiyingRegistryValue.Form1.mSubRegeditTypeGet()
   場所 ModifiyingRegistryValue.Form1.Form1_Load(Object sender, EventArgs e)
   場所 System.EventHandler.Invoke(Object sender, EventArgs e)
   場所 System.Windows.Forms.Form.OnLoad(EventArgs e)
   場所 System.Windows.Forms.Form.OnCreateControl()
   場所 System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   場所 System.Windows.Forms.Control.CreateControl()
   場所 System.Windows.Forms.Control.WmShowWindow(Message& m)
   場所 System.Windows.Forms.Control.WndProc(Message& m)
   場所 System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   場所 System.Windows.Forms.ContainerControl.WndProc(Message& m)
   場所 System.Windows.Forms.Form.WmShowWindow(Message& m)
   場所 System.Windows.Forms.Form.WndProc(Message& m)
   場所 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   場所 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   場所 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
失敗した操作:
Demand
失敗した最初のアクセス許可の種類:
System.Security.Permissions.FileIOPermission
失敗したアセンブリのゾーン:
Intranet


************** 読み込まれたアセンブリ **************
mscorlib
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
ModifiyingRegistryValue
    アセンブリ バージョン: 1.0.0.0
    Win32 バージョン: 1.0.0.0
    コードベース: file://osada-third/サンプルプログラム/REG_TEST/ModifiyingRegistryValue/ModifiyingRegistryValue/bin/Release/ModifiyingRegistryValue.exe
----------------------------------------
Microsoft.VisualBasic
    アセンブリ バージョン: 8.0.0.0
    Win32 バージョン: 8.0.50727.42 (RTM.050727-4200)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
mscorlib.resources
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
System.Configuration
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Runtime.Remoting
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.832 (QFE.050727-8300)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Windows.Forms.resources
    アセンブリ バージョン: 2.0.0.0
    Win32 バージョン: 2.0.50727.42 (RTM.050727-4200)
    コードベース: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_ja_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------

************** JIT デバッグ **************
Just-In-Time (JIT) デバッグを有効にするには、このアプリケーション、
またはコンピュータ (machine.config) の構成ファイルの jitDebugging 
値を system.windows.forms セクションで設定しなければなりません。
アプリケーションはまた、デバッグを有効にしてコンパイルされなければ
なりません。

例:

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

JIT デバッグが有効なときは、このダイアログ ボックスで処理するよりも、
ハンドルされていない例外はすべてコンピュータに登録された
JIT デバッガに設定されなければなりません。
>>> ****** error ***************


うまくいくマシンとうまくいかないマシンの差異が見えず困っています。

Jitta on the way さん

>エラー情報の中に、おそらく個人情報と思われる文字列が含まれているように思います。気を付けましょう。
まずいまずい。以後気をつけます。

>ファイル サーバーの共有フォルダーにあるファイルを、クライアントからダブルクリックで起動する、でいいですか？
そのとおりです。

>最近、.NET は触ってないので調べて頂きたいのですが、
>レジストリにアクセスする際、「読み取りのみ」と、アクセス権を指定することは出来ないですか？
>読み取る対象のキーがあるハイブによっては、それで読み込めるようになるかも知れません。
>詳しいところは、「コード アクセス セキュリティ」を調べる必要がありますけど。

調べました。下記のコードはあるレジストリの値の型を調べるために参照しているのですが。

    '***************************************************************************************************
    '------------------------
    'ＳＵＢ情報
    '------------------------
    'ＳＵＢ名　　：mSubRegeditTypeGet
    '処理概要    ：環境変数のデータ型を検証
    '引数1 　　　：なし
    '***************************************************************************************************
    Private Sub mSubRegeditTypeGet()

        Try
            Using regkey As RegistryKey = Registry.LocalMachine.OpenSubKey(SYSTEM_SUBKEY, True, Security.AccessControl.RegistryRights.FullControl)
                If Not regkey Is Nothing Then
                    'レジストリ値のデータ型を調べる
                    Dim regDataType As RegistryValueKind = regkey.GetValueKind(SUBKEY_PATH)
                    'プライベートワークに格納
                    _objRegeditType = regDataType

                    txtType.Text = regDataType.ToString
                Else
                    MsgBox("レジストリが正しく開かれていません", MsgBoxStyle.Exclamation, _MSGTITLE)
                End If
            End Using

        Catch ex As Exception
            MessageBox.Show(ex.ToString())
            Me.txtReg.Text = ex.Message
        End Try

    End Sub

----
Registry.LocalMachine.OpenSubKey(SYSTEM_SUBKEY, True, Security.AccessControl.RegistryRights.FullControl)
----

Registry.LocalMachine.OpenSubKeyにてレジストリを開いています。その際の引数で
1個目が場所、
2個目が書き込むかどうか
3個目がそのアクセス権を表しているような形

上記のコードでも例外で落ちますね。
>、アクセス権を指定する
という意味では正しいと思っているのですが、

******************************************************************************************





コードアクセスセキュリティについても調べてみました。
クライアントマシンの管理ツールのMicrosoft .NET Framework 2.0 Configurationにて

ランタイムセキュリティポリシー＞コンピュータ＞アクセス許可セット

�@上記アクセス許可セットにレジストリアクセス許可追加してあげました

ランタイムセキュリティポリシー＞コンピュータ＞コードグループ＞LocalIntranet_Zone
�A上記コードグループ＞LocalIntranet_Zoneに�@のアクセス許可セットを追加してあげました。

この作業によって、エラーが出ずにレジストリを参照することはできましたが。

結局のところ、ローカルマシンのコードアクセスセキュリティ構成？に依存され、プログラムでどうこうできる問題では
ないような気がしてきたのですが、いかがでしょうか？

アクセス許可セットの追加作業を行うくらいなら、ローカルに.exeを落としてきて実行するほうが、手間がかからないような
気がしてきました。


魔界の仮面弁士 さん
渋木宏明(ひどり) さん

毎回恒例のコードレビューありがとうございます。
勉強になります。
まだまだ知識・技術ともに足りませんが、精進します。

Jitta on the wayさん

>FullControl の必要がありますか？
>ReadKey で良くないですか？それでもセキュリティ例外が発生しますか？

FullControl の必要はないですが、ReadKey でも例外は発生しますね。

第二引数をFalseにすることによって例外は防げますが、
クライアントからの.exeキックでは結局参照はできませんでした。