タイトル : Re^3: WMIのオブジェクト取得について 投稿日 : 2010/03/04(Thu) 13:22 投稿者 : 花ちゃん
下記を実行して見て、イミディエイト ウィンドウには何か表示されますか? On Error Resume Next Dim ms As New System.Management.ManagementObjectSearcher("Select * from Win32_Printer") Debug.WriteLine(ms.Get.Count) For Each oPrinter As System.Management.ManagementObject In ms.Get() Debug.WriteLine(oPrinter("Name").ToString()) If DirectCast(oPrinter("Default"), Boolean) = True Then ' Debug.WriteLine(oPrinter("Name").ToString()) Exit For End If Next oPrinter |