Cómo eliminar todas las impresoras con VBScript

Windows soporta varios lenguajes de programación , incluyendo Visual Basic Scripting Edition o VBScript. Con la intuitiva sintaxis , Inglés -como, VBScript es un lenguaje fácil de aprender. VBScript es solo un medio ambiente adecuado para muchas tareas administrativas comunes , pero su mayor valor se debe a su capacidad para interactuar con otros componentes del sistema operativo , como por ejemplo el servicio de instrumentación de administración de Windows (WMI ) . WMI almacena información detallada acerca de su equipo y se puede utilizar en combinación con VBScript para controlar o conocer el estado de cualquier componente que se ajuste a las normas de WMI, incluyendo la adición o eliminación de objetos de impresora . Cosas que necesitará
Microsoft Windows 2000 o posterior
Mostrar más instrucciones
1

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

2

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

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

Tipo strComputer = " . " en la primera línea del archivo . Esto indica que desea que el script se ejecute en contra del equipo local. Si desea ejecutar el script en otro equipo y tener los permisos adecuados , puede reemplazar " . " con el nombre del equipo . remoto
5

Agregue la siguiente línea de código en su script. Antes de que pueda consultar el servicio WMI para obtener información acerca del equipo , VBScript debe primero conectar o atar a ese servicio

Set objWMIService = GetObject ( ". Winmgmts : { impersonationLevel = impersonate } \\ \\ " y strComputer & " \\ root \\ cimv2 ")
6

consulta el servicio WMI para obtener una lista de todas las impresoras instaladas en el equipo local y, para encontrar cada impresora , confirme la eliminación . Completar la secuencia de comandos escribiendo el siguiente código:

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

For Each objPrinter en colPrinters

ret = MsgBox ( " ¿Está seguro que desea eliminar la impresora siguiente :" & objPrinter.Name , vbYesNo " Confirmar eliminación impresora " )

Si ret = 6 Entonces

objPrinter.Delete_
< p> End if

Wscript.Quit
7

Guarde el archivo Bloc de notas con la extensión * . vbs y , a continuación, haga doble clic en el archivo para iniciar el guión.