VBS script used to remove network printer

Asked By 0 points N/A Posted on -
qa-featured

I would like to write a VBS script that helps to remove a network printer and should not display any error message if a network printer is not available for a particular user. Please help me.

SHARE
Best Answer by Perry Deborah
Answered By 0 points N/A #89301

VBS script used to remove network printer

qa-featured

Hi Jessica,

You can try to use the below sample code. It will remove all printers then add the printers specified at the bottom. Please do take note that this code only works in XP and not yet tested on Vista.

 

'==========================================================================
'
' NAME: RemoveAllPrinters.vbs
' COMMENT: Removes network printers then add printers specified at the bottom (XP tested Only)
'
'==========================================================================
ON ERROR RESUME NEXT
Set wshNet = CreateObject("WScript.Network")
Set wshPrn = wshNet.EnumPrinterConnections
For x = 0 To wshPrn.Count – 1 Step 2
If Left(wshPrn.Item(x+1),2) = "\" Then wshNet.RemovePrinterConnection wshPrn.Item(x+1),True,True
Next

wshnet.AddWindowsPrinterConnection "\serverprinter1"
wshnet.AddWindowsPrinterConnection "\serverprinter2"
wshnet.SetDefaultPrinter "\serverprinter2"
'============================================================

Aristono

Best Answer
Best Answer
Answered By 0 points N/A #89303

VBS script used to remove network printer

qa-featured

This VB script will only work for Windows XP.

i) VB Code

Remove all Network printers but not local printers

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections
For i = 0 to Printers.Count – 1 Step 2
If Left(ucase(Printers.Item(i+1)),2) = "\" Then
        WScript.Echo Printers.Item(i+1)
        WSHNetwork.RemovePrinterConnection Printers.Item(i+1)
    End IF
Next

ii) You have to check the printer server name.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Network = TRUE")
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next

For Windows 2000, you have to manually remove each network printers.

Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection \PrintServerxerox3006

To stop displaying error messages, here is the VB code:

 i)   Sub Main()
      Dim args() As String
      Dim argument As String
      args = Environment.GetCommandLineArgs()
      Try
         ProcessFile(args(1))
      Catch
         Console.WriteLine("ERROR")
      End Try
      Console.WriteLine("Press enter to end")
      Console.ReadLine()
   End Sub
   Sub ProcessFile(ByVal fName As String)
      'process file code goes here
      Console.WriteLine("Am processing " & fName)
   End Sub

ii) Sub Main()
   Dim args(), argument As String
   args = Environment.GetCommandLineArgs()
   Try
      ProcessFile(args(1))
   Catch indexProblem As IndexOutOfRangeException
      Console.WriteLine("ERROR – No file name _
         supplied")
   Catch ioProblem As System.IO.IOException
      Console.WriteLine("ERROR – can't process file _
         named " & args(1))
   End Try
   Console.WriteLine("Press enter to end")
   Console.ReadLine()
End Sub

Login/Register to Answer

Related Questions