Tecnología

Inicio

Cómo eliminar todas las impresoras con VBScript

Cómo eliminar todas las impresoras con VBScript


Windows soporta varios lenguajes de programación, incluyendo Visual Basic Scripting Edition o VBScript. Con intuitiva, la sintaxis similar al Inglés, VBScript es un lenguaje fácil de aprender. VBScript es solo un medio ambiente adecuado para muchas tareas administrativas comunes, pero su mayor valor proviene de su capacidad para interactuar con otros componentes del sistema operativo, como por ejemplo el servicio de instrumentación de administración de Windows (WMI). tiendas de WMI detallan información sobre su ordenador y se pueden utilizar en conjunción con VBScript para controlar o averiguar el estado de cualquiera de los componentes que se ajusta a las normas de WMI, incluyendo la adición o supresión de objetos de impresora.

Instrucciones

1 Inicie sesión en el equipo con una cuenta que tenga permisos administrativos.

2 Abra el Bloc de notas de Windows escribiendo "notepad" en el campo de búsqueda en el menú "Inicio". Si está utilizando Windows XP, haga clic en "Inicio" y luego "Ejecutar ...", escriba "notepad" y pulse "OK".

3 Haga clic en "Formato" de la barra de menús en el Bloc de notas, a continuación, seleccione "Ajuste de línea" para cambiar esa opción. Esto hará que su escritura más fácil de leer.

4 Escriba strComputer = "." en la primera línea del archivo. Esto indica que desea que la secuencia de comandos para ejecutar en el equipo local. Si desea ejecutar la secuencia de comandos en otro equipo y tener los permisos apropiados, puede reemplazar "." con el nombre del equipo remoto.

5 Agregue la siguiente línea de código a su script. Antes de que pueda consultar el servicio WMI para obtener información sobre el equipo, VBScript debe sujetar primero, o se unen, a ese servicio.

Establecer objWMIService = GetObject ( "winmgmts: {ImpersonationLevel = impersonate} \" y strComputer & "\ root \ cimv2")

6 Consultar el servicio WMI para obtener una lista de todas las impresoras instaladas en el equipo local, y para cada impresora encontrado, confirmar la eliminación. Completar la secuencia de comandos introduciendo el código siguiente:

Set colPrinters = objWMIService.ExecQuery ( "SELECT * FROM Win32_Printer")

Para cada objPrinter en colPrinters

ret = MsgBox("Are you sure you want to delete the following printer: " & objPrinter.Name, vbYesNo, "Confirm Printer Deletion")

Si ret = 6 A continuación,

objPrinter.Delete_

Terminara si

Siguiente

Wscript.Quit

7 Guarde el archivo de Bloc de notas con la extensión * .vbs, y haga doble clic en el archivo para iniciar la secuencia de comandos.

Consejos y advertencias

  • Si desea ver una lista de impresoras instaladas sin llegar a eliminarlos, cambie la línea de código que lee "objPrinter.Delete_" a "Wscript.Echo objPrinter.Name."
  • Ejecutar el código, se eliminarán todos los objetos de impresora locales y de red desde el equipo local. Si elimina una impresora sin darse cuenta, utilice el asistente "Agregar impresora" para volver a instalarlo.