如何获取打印机的IP地址在VB6中

Question

我想获取打印机的IP地址（通过USB连接到PC）。

我目前使用VB6。

Answer 1

您需要检查从WMI查询中检索到的打印机对象的Port属性。在下面的示例中，您可以从WMI查询中删除WHERE子句以获取所有已安装的打印机，然后您可以测试每台打印机上的端口。很显然，并非所有打印机都有IP（XPS Document Writer等）。

Sub Main() 

    Debug.Print GetPrinterPort("HP Color LaserJet CP4005 PCL6") 

End Sub 

Function GetPrinterPort(printerName As String) As String 

    Dim oWMI As Object 
    Dim oPrinters As Object 
    Dim oPrinter As Object 
    Dim sPort As String 

    sPort = "" 

    Set oWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") 

    Set oPrinters = oWMI.ExecQuery("Select * from Win32_Printer WHERE name = '" & printerName & "'") 

    If Not oPrinters Is Nothing Then 
    For Each oPrinter In oPrinters 
     sPort = oPrinter.PortName 
     Exit For 
    Next 
    End If 

    Set oWMI = Nothing 
    Set oPrinters = Nothing 
    Set oPrinter = Nothing 

    GetPrinterPort = sPort 

End Function