Script que permite establecer la impresora predeterminada

Publicado: 27 Septiembre 2016, 15:36
por Cazador
Script que permite establecer la impresora predeterminada

Código:

'---------------------------------------------------------
'Script que permite establecer la impresora predeterminada
'Autor: ELSATE.com
'Fecha: 2010-12-27
'---------------------------------------------------------

'Comprobamos el nombre de maquina para establecer la impresora predeterminada.
Set WshNetwork = WScript.CreateObject("WScript.Network")

Select Case WshNetwork.ComputerName

    Case "PRUEBAXP"
   
        const sPrinterToAdd="\\SERVIDOR\IMPRESORA_1"
   
    Case "SERVIDOR"
   
        const sPrinterToAdd="\\SERVIDOR\IMPRESORA_1"

End Select

'Establecida la impresora predeterminada
'const sPrinterToAdd="\\SERVIDOR\IMPRESORA_1"

set dPrinters=createobject("scripting.dictionary")
dPrinters.comparemode=vbtextcompare
set wnt=createobject("wscript.network")

for each printer in wnt.enumprinterconnections
   if printer=sPrinterToAdd then
      'Antes de establecer por defecto comprobamos si la impresora existe en el equipo
      'wscript.echo printer 
      Set objNetwork = CreateObject("WScript.Network")
      objNetwork.AddWindowsPrinterConnection sPrinterToAdd
      objNetwork.SetDefaultPrinter sPrinterToAdd
   end if
next

Publicidad