¡ Por favor active Javascript! / Please turn on Javascript!
Otras versiones Servidor de Windows no clasificadas: NT 4.0 ...
Avatar de Usuario
Cazador
Colaborador
Mensajes: 1780
Registrado: 16 Abril 2015, 19:16
C. Prof.: Analista de Sistemas
Contactar:

Script que permite establecer la impresora predeterminada

Mensajepor Cazador » 27 Septiembre 2016, 15:36

Script que permite establecer la impresora predeterminada

Código: Seleccionar todo

'---------------------------------------------------------
'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
Redactor de ELSATE.com. Aficionado de la Tecnología, los Videojuegos, la Música Electrónica y el Deporte.





Volver a “Otros”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados