This should delete the printers
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
Set WshShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:")
Dim allPrinters(99, 2)
Dim foundFlag
Dim searchName
Dim i, count
'Deletes any currently installed queue based printers
WshShell.Run ("rundll32 printui.dll,PrintUIEntry /q /dl /n " & chr(34) & "Enter Printer Name Here" & chr(34))
End If
'End of Script
Wscript.Quit