I tried using the UDF. I really did.

My VBScript:
-----------------------


 Code:
Set WshShell = WScript.CreateObject("Wscript.Shell")
  On Error Resume Next
  
    Set objNet = CreateObject("WScript.Network")
    Set colOfNetPrinters = objNet.EnumPrinterConnections
    On Error Resume Next
    For i = 0 to colOfNetPrinters.Count -1 Step 2
      ' operate only on UNC based printer connections
      If Left(colOfNetPrinters.Item(i+1), 2) = "\\" Then
        objNet.RemovePrinterConnection colOfNetPrinters.Item(i+1), True, True
        If err.number <> 0 Then
          WSCript.Echo "An error occuried trying to remove printer connection " _
          & colOfNetPrinters.Item(i+1) & " The error number is " & err.number _
          & " error description " & err.description
          err.clear
        End If
      End If
    Next


    On Error Resume Next


----------------------

Thanks for any help.