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

お世話になります。
OS：Windows XP
環境：VisualStudio2010
使用言語：C#
.NET：4.0

C#にてWMIを使用してUSBメモリのシリアル番号を取得したいと思い、下記URLを参考に作ってみたのですが、取得に失敗してしまいます。
http://blogs.yahoo.co.jp/kinuyo_asami/16010191.html
VBにコピペしてみたところ動作しましたので、権限等の問題では無いと思われます。

エラー時のクエリは、以下のようになっています。
QueryString = "ASSOCIATORS OF {Win32_DiskPartition.DeviceID='Disk #3, Partition #0'} WHERE AssocClass = Win32_LogicalDiskToPartition"

クエリの記述やパラメータの使い方に何か問題でもあるのでしょうか？
よろしくお願いします。


using System.Management;            // 参照の追加も必要

        private void button1_Click(object sender, EventArgs e)
        {
            label1.Text = USB_SerialGet("G:");
        }

        private string USB_SerialGet(string strDriveLetter)
        {
            ManagementObjectCollection mocDiskDrives;
            ManagementObjectCollection mocLogicalDisks;
            ManagementObjectCollection mocPartitions;

            string strDriveDeviceID;
            string strPartitionDeviceID;
            string strLogicalDeviceID;
            string strPNPDeviceID;

            using (ManagementObjectSearcher mojWMISeacher = new ManagementObjectSearcher(
                        "root\\CIMV2", "SELECT * FROM Win32_DiskDrive Where InterfaceType=\'USB\'"))    // USBドライブから検索
//                        "root\\CIMV2", "SELECT * FROM Win32_DiskDrive"))                              // 全てのドライブから検索
            {
                mocDiskDrives = mojWMISeacher.Get();
                foreach (ManagementObject mojDrive in mocDiskDrives)
                {
                    strDriveDeviceID = mojDrive.GetPropertyValue("DeviceID").ToString();    // 実行時、"\\\\.\\PHYSICALDRIVE3" が入る
                    //strDriveDeviceID = strDriveDeviceID.Replace(@"\\",@"\");              // Replaceが必要？

                    mojWMISeacher.Query.QueryString =
                            "ASSOCIATORS OF {Win32_DiskDrive.DeviceID=\'" +
                            strDriveDeviceID + "\'} WHERE AssocClass = " +
                                "Win32_DiskDriveToDiskPartition";
                    mocPartitions = mojWMISeacher.Get();

                    if (mocPartitions.Count == 0) continue;
                    foreach (ManagementObject mojPartition in mocPartitions)
                    {
                        strPartitionDeviceID = mojPartition.GetPropertyValue("DeviceID").ToString();     
                        mojWMISeacher.Query.QueryString =
                            "ASSOCIATORS OF {Win32_DiskPartition.DeviceID=\'" +
                                  strPartitionDeviceID + "\'} WHERE AssocClass = " +
                                        "Win32_LogicalDiskToPartition";

                        mocLogicalDisks = mojWMISeacher.Get();                              // ←ここで失敗している
                        if (mocLogicalDisks.Count == 0) continue;
                        foreach (ManagementObject mojLogicakDisk in mocLogicalDisks)
                        {
                            strLogicalDeviceID = mojLogicakDisk.GetPropertyValue("DevieID").ToString();
                            strPNPDeviceID = mojDrive.GetPropertyValue("PNPDeviceID").ToString();

                            // 確認用
                            MessageBox.Show("Disk:" + strLogicalDeviceID + "---" + strPNPDeviceID);

                            if (strLogicalDeviceID == strDriveLetter)
                            {
                                int iYen = strPNPDeviceID.LastIndexOf('\\');
                                return strPNPDeviceID.Substring(iYen);
                            }
                        }
                    }
                }
            }
            return string.Empty;
        }
    }

■No58025 (コアラ主任 さん) に返信
> それとも、自分のプログラミングにより、そのようになっているの
> でしょうか。
だと思います。

未初期化のフォームが自動ロードされてしまっているのでしょう。


> 別のフォームから、そのMSFLEXGRIDのrows値を参照すると
> フォーム側（?）プロパティで設定してある2と言う値で参照されます。
Rows をセットする際に、フォームと MSFlexGrid の hWnd プロパティを
Debug.Print してみてください。

そして、Rows が 2 になってしまっている所でも、同様に
それらの hWnd プロパティを参照してみてください。

もしも「セットした時」と「参照した時」がそれぞれ同一のフォームだとすれば、
hWnd 値は同じものになるはずです。それらが違う値になってしまうようであれば、
別のフォームとコントロールを参照していることを意味します。


> Public main_form As main_form
変数名と型名が同じになっているのが、混乱の要因かと思われます。
　Public mainForm As Form2
のように、別の名前に変更しておく事をおすすめします。

また、フォームがアンロードされた時には、変数名に Nothing を代入する事を
忘れないようにしてください。そうしないと、自動ロードの危険性が高まります。

Dim f As Form3
Set f = New Form3
Load f
Debug.Print ObjPtr(f), f.hWnd   '元のフォーム
f.Caption = "New Caption"       'Captionを変更する
f.Show vbModal
Unload f                        'アンロードしてあるが、
'Set f = Nothing                'Nothing はセットしていないし、
'Set f = New Form3              '新たなインスタンスもセットしていない

MsgBox f.Caption                'この時点で自動ロードされてしまう
Debug.Print ObjPtr(f), f.hWnd   '別のフォームになっている


上記の場合、ObjPtr(f) が一致する事からもわかるように、
オブジェクトとしては同一のインスタンスですが、
f.hWnd は別物であるため、自動ロードされた
別のフォームになってしまう事がうかがえます。


>     Set main_form = New main_form
>     Load main_form
New して使う事を前提にしている場合、暗黙のForm変数にアクセスできないようにするため、

'Form2(呼ばれる側)
Option Explicit
Private Sub Form_Initialize()
　Set Form2 = Nothing   '暗黙の変数を消しておく
End Sub

のようにしておくと良いでしょう。こうすれば、
　Set f = New Form2
　Load f
　f.Show
のようなコードは正常に実行できますが、
　Load Form2
　Form2.Show
のようなコードが実行時エラーになるので、コードバグを検知しやすくなります。