Remove Printer Script not working

dlingo · Dec 11, 2003

I have written a script in an attempt to remove all printers for the current user logged onto a windows workstation and I am getting a "Network connection does not exist" error. However, the connection is there. The code is as follows:

On Error Resume Next
Dim wshNetwork, oPrinters, Count
Set wshNetwork = CreateObject("WScript.Network&quot

Set oPrinters = wshNetwork.EnumPrinterConnections
Count = oPrinters.Count

Do While Count <> 0
wshNetwork.RemovePrinterConnection oPrinters.Item(Count-1), True, True
If Err.Number <> 0 Then
WScript.Echo Err.Description
Else
WScript.Echo oPrinters.Item(Count-1) & " Removed"
End If
Count = Count -1
Loop

oPrinters.Item(Count-1) returns the following:
even numbers - "FPR4:" (port)
odd numbers - "\\ServerName\PrinterName" (printer)
-all returned values are valid

Error: Network Connection Does Not Exist

How can a network connection not exist when it was just found using the wshNetwork.EnumPrinterConnections(Item) property?

mrmovie · Dec 12, 2003

is it not just your Do Loop and count that has a problem???
what happens when you pipe the string that you are trying to remove??? i.e. check with an echo what is oPrinters.Item(Count-1)

i have given up with EnumPrinters collections. It causes issues when printers\printer servers arent available. I use the registry to determine what printers are connected and delete them via the registry as well.

good luck

dlingo · Dec 12, 2003

mrmovie,

Thanks for your response. For debug purposes I used a WScript.Echo oPrinters.Item(Count-1) and all was correct. I've pretty much decided to follow the registry root as well. However, once I remove the printers from the registry, I need to make windows aware of this immediately, so that the user doesn't have to log off and back on before these changes take affect. Then I will be adding specific printers (much easier than removing).

Can this be done in scripting?

I've been making attempts with the Windows API, which I'm rather new to. I've been using a broadcast system message within VB6, but haven't quite got it yet.

mrmovie · Dec 12, 2003

i do it via the registry and havent had problems with it not updating, perhaps i am doing something wrong. that was during the testing.

i implement it at logon, perhaps that makes a difference.
this what i have to delete a printer and\or reconnect that old printer to a new print server...and then a script to map printers if its of help. mine only work for network printers though, had a request to support local printers but i dont really want to go there

Private Sub swapPrintServer(str2Swap)
On Error Resume Next
Dim sPSArray

If blnRegPrinter = False Then
'msgbox "init printers"
Dim strSPRootKey, arrSPSubKeys, refSPRegistry, subSPKey, strSPPrinterMapping

Set enumSPPrinters = WScript.CreateObject("Scripting.Dictionary&quot

Set refSPRegistry = GetObject("winmgmts:root\default:StdRegProv&quot

Const HKEY_CURRENT_USER = &H80000001
strSPRootKey = "Printers\Connections"

If refSPRegistry.EnumKey(HKEY_CURRENT_USER, strSPRootKey, arrSPSubKeys) = 0 Then
'init dictionary object of printers
For Each subSPKey In arrSPSubKeys
strSPPrinterMapping = ""
strSPPrinterMapping = Trim(LCase(CStr(subSPKey)))
If InStr(strSPPrinterMapping, ",,&quot

= 1 Then
strSPPrinterMapping = Replace(strSPPrinterMapping, ",", "\&quot

If enumSPPrinters.Exists(strSPPrinterMapping) Then
'already have this one, unlikely
Else
'Wscript.Echo "adding " & strPrinterMapping & " to enumPrinters"
enumSPPrinters.Add strSPPrinterMapping, "1"
End If
End If
Next
End If
Set refSPRegistry = Nothing
blnRegPrinter = True
End If

Call LOG_BUFFER("SWAP PRINTER SUB, TRYING TO SWAP/DISCONNECT " & str2Swap, "full", "full&quot

'aCGC = "\\braps01a&\\172.25.12.254"
sPSArray = Split(str2Swap, "&", -1, 1)

If UBound(sPSArray) = 0 Then
'msgbox "only dlete not readd"
'just want to delete old printers

If enumSPPrinters.Exists(LCase(CStr(sPSArray(0)))) Then
Call LOG_BUFFER("ONLY GOING TO REMOVE PRINTER CALLED " & LCase(CStr(sPSArray(0))), "FULL", "FULL&quot

WshShell.RegDelete "HKCU\Printers\Connections\" & Replace(LCase(CStr(sPSArray(0))), "\", ",&quot

& "\"
Call LOG_BUFFER("Err Number = " & Err.Number, "FULL", "FULL&quot

Call LOG_BUFFER("AFTER REMOVE PRINTER CALL " & LCase(CStr(sPSArray(0))), "FULL", "FULL&quot

End If

End If

If UBound(sPSArray) = 1 Then
'msgbox "delete and re add"
For i = 0 to enumSPPrinters.Count -1
If Left(LCase(CStr(enumSPPrinters.Item(i))), Len(sPSArray(0))) = LCase(CStr(sPSArray(0))) Then
'msgbox wshPrinters.Item(i)
'msgbox Right(LCase(CStr(wshPrinters.Item(i))), Len(CStr(wshPrinters.Item(i))) - Len(sPSArray(0)) - 1)
Call LOG_BUFFER("GOING TO REMOVE THEN RE-MAP TO NEW SERVER", "FULL", "FULL&quot

Call LOG_BUFFER("GOING TO REMOVE " & enumSPPrinters.Item(i), "FULL", "FULL&quot

WshShell.RegDelete "HKCU\Printers\Connections\" & Replace(LCase(CStr(enumSPPrinters.Item(i))), "\", ",&quot

& "\"
Call LOG_BUFFER("AFTER REMOVE PRINTER CALL " & enumSPPrinters.Item(i), "FULL", "FULL&quot

Call LOG_BUFFER("BEFORE RE-MAP PRINTER CALL TO SERVER " & sPSArray(1), "FULL", "FULL&quot

waspMach.MapPrinter sPSArray(1) & "\" & Right(LCase(CStr(enumSPPrinters.Item(i))), Len(CStr(enumSPPrinters.Item(i))) - Len(sPSArray(0)) - 1), "False"
Call LOG_BUFFER("AFTER RE-MAP PRINTER CALL TO SERVER " & sPSArray(1), "FULL", "FULL&quot

End If
Next
End If

End Sub

Public Function MapPrinter(strPrinter, blnDisconnect)
'initilize printers dicObject
On Error Resume Next
If blnMapPrinter = False Then
'msgbox "init printers"
Dim strRootKey, arrSubKeys, refRegistry, subKey, strPrinterMapping

Set enumPrinters = WScript.CreateObject("Scripting.Dictionary&quot

Set refRegistry = GetObject("winmgmts:root\default:StdRegProv&quot

Const HKEY_CURRENT_USER = &H80000001
strRootKey = "Printers\Connections"

If refRegistry.EnumKey(HKEY_CURRENT_USER, strRootKey, arrSubKeys) = 0 Then
'init dictionary object of printers
For Each subKey In arrSubKeys
strPrinterMapping = ""
strPrinterMapping = Trim(LCase(CStr(subKey)))
If InStr(strPrinterMapping, ",,&quot

= 1 Then
strPrinterMapping = Replace(strPrinterMapping, ",", "\&quot

If enumPrinters.Exists(strPrinterMapping) Then
'already have this one, unlikely
Else
'Wscript.Echo "adding " & strPrinterMapping & " to enumPrinters"
enumPrinters.Add strPrinterMapping, "1"
End If
End If
Next
End If
Set refRegistry = Nothing
blnMapPrinter = True
End If

Dim blnConnected
Dim i
blnConnected = False

If enumPrinters.Exists(LCase(strPrinter)) Then
blnConnected = True
End If
'Wscript.Echo strPrinter
'Wscript.Echo blnDisconnect & " disconnect"
'Wscript.Echo blnConnected & " already connected"
'can i check if printer is already available???

If blnConnected = False Then
'msgbox strPrinter
On Error Resume Next
Err.Clear
WshNetwork.AddWindowsPrinterConnection strPrinter
If Err.Number = 0 Then
MapPrinter = 0
Else
MapPrinter = 4
'msgbox "couldnt map printer"
End If
On Error Goto 0
ElseIf blnConnected = True And blnDisconnect = "False" Then
'msgbox "cant map printer " & strPrinter & " already in use and disconnect set to false."
MapPrinter = 8
ElseIf blnConnected = True And blnDisconnect = "True" Then
'msgbox strPrinter

WshShell.RegDelete "HKCU\Printers\Connections\" & Replace(strPrinter, "\", ",&quot

& "\"
'Wscript.Echo Err.Number & " after remove registry printer"
On Error Resume Next
msgbox ""
WshNetwork.AddWindowsPrinterConnection strPrinter
If Err.Number = 0 Then
MapPrinter = 0
Else
MapPrinter = 2
'msgbox "couldnt map printer"
End If
On Error Goto 0
End If

End Function

mrmovie · Dec 12, 2003

glad i posted that as i have just noticed a bug!!! didnt want the Msgbox "" to be there in the live environment

PHV · Dec 12, 2003

And this ?

Code:

Do While Count

>

Code:

 0
  wshNetwork.RemovePrinterConnection oPrinters.Item(Count-1), True, True
  If Err.Number <> 0 Then
    WScript.Echo Err.Description
  Else
    WScript.Echo oPrinters.Item(Count-1) & &quot; Removed&quot;
  End If
  Count = Count -

2

Code:

Loop

Hope This Help
PH.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Remove Printer Script not working

dlingo

Programmer

mrmovie

Technical User

dlingo

Programmer

mrmovie

Technical User

mrmovie

Technical User

PHV

MIS

Similar threads

Part and Inventory Search

Sponsor