Segue abaixo:
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\(nomedoservidordeimpressão)\(nomedaimpressora)"
Exemplo:
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\pool\HP1020"