назначение принтеров для рабочих станций Windows XP в среде активного каталога

Я использую следующий сценарий для удаления любых старых сетевых принтеров с машин, а затем назначения соответствующих принтеров и установки одного из них по умолчанию. Этот сценарий назначается организационной единице, в которой находятся рабочие станции, и использует кольцевую проверку групповой политики, поэтому все пользователи, вошедшие в систему, получат сопоставленные для них соответствующие принтеры.

Я попытался использовать новый диспетчер принтеров как часть W2K3 R2, но при назначении значения по умолчанию таким образом я получаю сообщение об ошибке, что принтер не существует, поэтому я вернулся к использованию сценария.

Один недостаток, который я замечаю, заключается в том, что он не удаляет никакие принтеры, которые случайно подключены к сеансу RDP (мы не видим это везде, но есть несколько мест). Есть ли способ перечислить все принтеры RDP и удалить их аналогично тому, как я перечисляю и удаляю сетевые принтеры?

' 
' Printers.vbs - Windows Logon Script.
'

RemovePrinters
AddPrinters

Sub RemovePrinters()
   On Error Resume Next
   Dim strPrinter
   Set objNetwork = WScript.CreateObject("WScript.Network")
   Set colPrinters = objNetwork.EnumPrinterConnections
   For i = 0 to colPrinters.Count -1 Step 2
      strPrinter=CStr(colPrinters.Item(i+1))
      If Not InStr(strPrinter,"\\") = 0 Then
         objNetwork.RemovePrinterConnection strPrinter, True, True
      End If
   Next
End Sub


Sub AddPrinters()
   On Error GoTo 0
   Set objNetwork = CreateObject("WScript.Network") 
   objNetwork.AddWindowsPrinterConnection "\\printers1\JH120-DELL5310"
   objNetwork.SetDefaultPrinter "\\printers1\Jh120-DELL5310"
End Sub