刪除在列印伺服器上的所有印表機

2008-04-23

摘要:刪除在列印伺服器上的所有印表機

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _

("Select * from Win32_Printer")

For Each objPrinter in colInstalledPrinters

objPrinter.Delete_