HOW TO:枚举网络所有打印机[6]

                Result(Result.Length - 1) = Net.Dns.GetHostEntry(String.Format(PingFormat, i)).HostName '这个方法是Net2.0
            End If
        Next
        Return Result
    End Function

    Private Shared Function GetPrinterName()Function GetPrinterName(ByVal computerName As String) As String()
        Dim mResult(-1) As String

        Dim o As New ManagementObject