Author:水如烟
Imports System.DirectoryServices
Imports System.Management
Public Class HowToSearchPrinterClass HowToSearchPrinter
Public Shared Function NetPrinters()Function NetPrinters(ByVal GetWay As GetComputer) As String()
Dim mResult(-1) As String
Dim mPrinterFormat As String = "Computer:{0} Printer:{1}"
Imports System.DirectoryServicesImports System.ManagementPublic Class HowToSearchPrinterClass HowToSearchPrinter Public Shared Function NetPrinters()Function NetPrinters(ByVal GetWay As GetComputer) As String() Dim mResult(-1) As String Dim mPrinterFormat As String = "Computer:{0} Printer:{1}"
本文关键：HOW TO:枚举网络所有打印机
