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

■No5788 (nana* さん) に返信
> ある特定のプリンタのポート番号をＩＰアドレス\ポート番号形式で取得したいと考えています。
(中略)
> WMIを使用すれば取得可能らしいのですが、WMIに関する技術力不足のため

WMI でよければ、これでどうでしょう。


Option Explicit
Private Sub Form_Load()
    Dim prn As Object
    For Each prn In GetObject("winmgmts:").InstancesOf("Win32_Printer")
        Debug.Print "名前="; prn.Name
        Debug.Print "モデル="; prn.DriverName
        Debug.Print "ポート="; prn.PortName
        Debug.Print "---------------"
    Next
End Sub


http://msdn2.microsoft.com/en-us/library/Aa394363.aspx