LazyNetworkAdmin.com - Remove Printers Using Print Server Name

Main Menu

Home

Knowledgebase

RSS Feeds

Links

Downloads

LNA Blogs

Cheyenne Harden's Blog

LazyNetworkAdmin Blog

Login Form

Syndicate

Home

Remove Printers Using Print Server Name

Written by Cheyenne Harden

Two things keep me employed 1. Stupid People and 2. Printers!
Just after Christmas we had a server go down (This was our print server).
It cause all kinds of trouble reinstalling and such... but the biggest pain
were the printers (Their were so many of them). With all of the Terminal servers
using printer scripts and having users who cannot change their settings cause printers
to not be removed when the printserver is gone. To fix this issue I created this script
it will remove all printers from a specified "print server" (e.g., \\PSVR\colorlaser01).
This script can be run as a login script or added to an existing printer script.

----------COPY EVERYTHING BELOW THIS LINE----------

'This script will remove printer for the specified print server
'Created by Cheyenne Harden 1.10.07

On Error Resume Next

Dim arrPrinterName()
Dim strComputer, i, PrintServer
Dim objWMIService, objNetwork, colInstalledPrinters, objPrinter

strComputer = "."
i = 0
PrintServer = "PSVR" 'Your Print server name goes here!

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")

For Each objPrinter in colInstalledPrinters
'This line is used for trouble shooting
    'Wscript.Echo "Name: " & objPrinter.Name

ReDim Preserve arrPrinterName(i)
arrPrinterName(i) = objPrinter.Name
  If InStr(arrPrinterName(i), PrintServer) Then
   Set objNetwork = WScript.CreateObject("WScript.Network")
   objNetwork.RemovePrinterConnection arrPrinterName(i)
   i=i+1

  Else
   'This line is used for trouble shooting.
   'WScript.Echo "Name: " & objPrinter.Name

  End If

----------COPY EVERYTHING ABOVE THIS LINE----------

PLEASE MAKE SURE NO WORD WRAPPING IS HAPPENING IN YOUR SCRIPT!!!

To make this script work you will need the items below!

1. Run this as a LogOn script.
2. Add the Print Server name here (PrintServer = "PSVR" 'Your Print server name goes here!) .
3. You will need the ability to remove printers.

This information is provided "AS IS" with no warranties expressed or implied.

Comments

Add New

KDelsite - OS Specific?

| Registered | 11-04-2007 11:23:43

This seems to work with XP, but not under W2K.

Reply | Quote

LazyNetworkAdmin - Need WSH 5.6

| Super Administrator | 11-04-2007 14:54:43

you need Windows scripting host version 5.6 installed on any machine this gets ran on.

Reply | Quote

McG	\| 170.185.132.xxx \| 18-12-2007 17:34:17

I tried the script, but I found out that the results were case-sensitive.

Try replacing this on line 26 and it will make the results all lowercase. Then just enter the lowercase string for your printername and it should work.

If InStr(LCase(arrPrint
erName(i)), PrintServer) Then

Reply | Quote

Jeff	\| 24.187.98.xxx \| 22-04-2008 21:08:55

That was a clever idea..never though of a script to do this before. Usually if my printers went offline from the office we had to manually add them back on through Network settings.
---------------------
ventrilo hosting

Reply | Quote