如何删除本机上所有安装的打印机！

Question

如题！谢谢各位大虾！

Answer 1

删除注册表 HKEY_CURRENT_CONFIG\System\CurrentControlSet\Control\Print\Printers 下所有键值

Answer 2

Private Sub Command1_Click()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next
End Sub

Answer 3

to of123:
我尝试过了，不好用！谢谢您！
to isftest :
您的代码我也试过了！不明白，不能通过，您能给解释一下吗？？？

Answer 4

我也使用API函数试过，但不知为啥不对？
Dim p As Printer
Dim hPrinter As LongFor Each p In Printers
    i = OpenPrinter(p.DeviceName, hPrinter, ByVal 0&)
    
    i = DeletePrinter(hPrinter)
Next

Answer 5

to isftest :
您的代码我也试过了！不明白，不能通过，您能给解释一下吗？？？
=================================
这是wmi的代码，但我不敢试，因为我那台破hp一体化机要安装很麻烦不敢删。
另外，看看你用的系统是什么，如果不是xp或2003，那就当我什么都没说过吧。

Answer 6

to isftest:
万分感谢，我的机器是Win2000Server,谢谢！