VBS script used to remove network printer

VBS script used to remove network printer

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