I dunno why that doesn't work, but I use the following within a vbs to it (assuming you added the printer with the network name, which in your case it looks like it did (\\SERVER):
Code:
Option Explicit
On Error Resume Next
Dim objNetwork
Dim objPrinters, ix
Set objNetwork = CreateObject("WScript.Network")
Set objPrinters = objNetwork.EnumPrinterConnections
' ### Delete all currently installed network printers
For ix= 0 to objPrinters.Count - 1 Step 2
Dim sPrinter, sUNCPath
sPrinter = objPrinters.Item(ix)
sUNCPath = objPrinters.Item(ix+1)
If InStr(1, sPrinter, "NAME_OF_SERVER", 1) > 0 Then
objNetwork.RemovePrinterConnection sPrinter, True, True
ElseIf InStr(1, sUNCPath, "NAME_OF_SERVER", 1) > 0 Then
objNetwork.RemovePrinterConnection sUNCPath, True, True
End If
If Err <> 0 Then
Wscript.Echo "Error deleting printer: " & Err.Description
Err.Clear
End If
Next