Ir al contenido principal

Configuración automática de impresoras en equipos Windows

De

Para la instalación automática de impresoras en equipos Windows utilizaremos un script en Visual Basic Script que a continuación veremos.

Lo primero será hacernos de los controladores del fabricante para nuestro modelo de impresora. En este ejemplo se trata de una impresora Kyocera FS 4200 DN. Una vez tengamos el controlador del fabricante tendremos que localizar el fichero INF que contiene la información para la instalación de la impresora. Por lo que tendremos que localizar dentro del fichero el nombre exacto con que el fabricante identifica el modelo de impresora en cuestión, en nuestro caso es: "Kyocera FS-4200DN KX"


Como pretendemos que el script se pueda utilizar en las diferentes versiones de Windows,  vamos a utilizar una función llamada FindOSType que nos ayude con dicho objetivo.

Al comienzo del script para las versiones superiores a windows XP necesitamos que este se auto llame solicitando privilegios de administrador para poder realizar la instalación de los controladores de la impresora.


Luego hacemos uso del procedimiento MapLPRPrinter para que se genere el puerto de la impresora y se instale la impresora. La llamada al procedimiento tendremos que adaptarla para nuestra impresora o impresoras (pues podríamos instalar todas las impresoras que nos hagan falta).  Los parámetros serán:

  1.  el nombre exacto que nos indicó el fabricante de la impresora,
  2.  la trayectoria a los controladores (en el ejemplo hemos asumido que están en el mismo lugar que el script)
  3.  el nombre exacto del fichero INF.
  4.  IP que deseamos asignar a la impresora
  5.  nombre que deseamos asignar a la impresora
  6.  nombre de la cola


Script completo para la instalación de una impresora Kyocera FS 4200 DN:

Set WshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
strComputer = WshShell.ExpandEnvironmentStrings("%computername%")
OSType = FindOSType(strComputer)





Set WshShell = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.length = 0 And OSType <> "Windows XP" Then
  Set ObjShell = CreateObject("Shell.Application")
  ObjShell.ShellExecute "wscript.exe", """" & _
  WScript.ScriptFullName & """" &_
  " RunAsAdministrator", , "runas", 1
  WScript.Quit
End If

MapLPRPrinter "Kyocera FS-4200DN KX", oFSO.GetParentFolderName(wscript.ScriptFullName) & "\" , "\OEMSETUP.INF",  "192.168.1.175","Impresora kyocera","followme"
MapLPRPrinter "Kyocera ECOSYS P6026cdn KX", 
 
 Wscript.Echo "Finalizada la instalación."

Sub MapLPRPrinter(strDriverName,strDriverInfPath,strDriverInf,strIPAdr,strPrinterName,strQueue) 

    Const PathArc = "winmgmts:root\cimv2:Win32_Processor='cpu0'"
    strComputer = "." 
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True 
    on Error Resume Next 
  
'SETS PRINTER PORT. 
     Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_ 
    objNewPort.Name = strPrinterName &  strIPAdr 
    objNewPort.PortNumber = "515" 
    objNewPort.Protocol = 2 
    objNewPort.HostAddress = strIPAdr 
    objNewPort.Queue = strQueue 
    objNewPort.ByteCount = True 
    objNewPort.SNMPEnabled = False 
    objNewPort.Put_ 
 
    NewPort = objNewPort.Put_ 
      
'INSTALLS DRIVER NOT LOCATED IN Driver.cab 
     Set objDriver = objWMIService.Get("Win32_PrinterDriver") 
    objDriver.Name = strDriverName 
     
    if GetObject(PathArc).AddressWidth = 32 then
        'WScript.Echo "Arquitectura 32bits"
        objDriver.DriverPath = strDriverInfPath  & "32"
        objDriver.FilePath = strDriverInfPath  & "32"
        objDriver.Infname = strDriverInfPath & "32" & strDriverInf 
        objDriver.SupportedPlatform = "Windows NT x86"
       
     else
        'Wscript.Echo "Arquitectura 64bits"
        'objDriver.DriverPath  = strDriverInfPath  & "64"
        objDriver.FilePath  = strDriverInfPath  & "64"
        objDriver.Infname = strDriverInfPath & "64" & strDriverInf 
        objDriver.SupportedPlatform = "Windows x64"
       
    end if
    objDriver.Version = "3" 
    intResult = objDriver.AddPrinterDriver(objDriver) 
    If intResult >0 Then
        WScript.Echo "Error en la instalación codigo: " & intResult & _
        "  Carpeta del driver: " & objDriver.DriverPath & _
            "  INFO: " & objDriver.Infname & _
        "  Driver: " & strDriverName
    End If
 
'SETS PRINTER TO PORT. 
  
     Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ 
    objPrinter.Name = strPrinterName 
    objPrinter.DriverName = strDriverName 
    objPrinter.PortName   = strPrinterName &  strIPAdr 
    objPrinter.DeviceID   = strPrinterName 
    objPrinter.CurrentLanguage = 2 
    objPrinter.Network = True 
    objPrinter.Shared = False 
    objPrinter.EnableBIDI = False 
    objPrinter.Put_ 
End Sub 


Function FindOSType(strComputer)
    'Defining Variables
    Dim objWMI, objItem, colItems
    Dim OSVersion, OSName, ProductType

    'Get the WMI object and query results
    Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
    Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem",,48)

    'Get the OS version number (first two) and OS product type (server or desktop)
    For Each objItem in colItems
        OSVersion = Left(objItem.Version,3)
        ProductType = objItem.ProductType
    Next

    'Time to convert numbers into names
    Select Case OSVersion
    Case "6.1"
    OSName = "Windows 7"
        Case "6.0"
            OSName = "Windows Vista"
        Case "5.2"
            OSName = "Windows 2003"
        Case "5.1"
            OSName = "Windows XP"
        Case "5.0"
            OSName = "Windows 2000"
        Case "4.0"
            OSName = "Windows NT 4.0"
        Case Else
            OSName = "Windows 9x"
    End Select

    'Return the OS name
    FindOSType = OSName

    'Clear the memory
    Set colItems = Nothing
    Set objWMI = Nothing
End Function



Fuente de información:

http://gallery.technet.microsoft.com/scriptcenter/Add-a-LPR-Printer-include-f462f332

http://www.leinss.com/blog/?p=1098

Etiquetas

Etiquetas:

Comentarios

Publicar un comentario

Entradas populares de este blog

Conectar Dolibarr con otra aplicación mediante un servicio SOAP

De
Para conectar con Dolibarr otras aplicaciones, como un carrito de la compra, puede ser muy interesante utilizar los " Web Services " que nos ofrece Dolibarr. Para activarlos tenemos que ir a Configuración-> Módulos-> Módulos Interfaz y poner a ON los WebServices. También hay que configurar la clave para usar los Web Services (parámetro "dolibarrkey" en webservices). Indicamos una palabra clave que se nos ocurra como por ejemplo: $5x8Cd45Cadec_f?K y pulsamos salvar. A continuación muestro un ejemplo con Python y la librería suds para obtener una factura: from suds.client import Client client = Client('http://www.midominio.es/dolibarr/webservices/server_invoice.php?wsdl') auth = client.factory.create('authentication') auth.dolibarrkey='$5x8Cd45Cadec_f?K' auth.sourceapplication='' auth.login='usuario' auth.password='clave' auth.entity='' result = client.service.getInvoice(auth,'1') print resu...
Publicar un comentario
Leer más

Instalación Django en NAS Synology con FastCGI

De
Los NAS Synology no traen el módulo de apache mod-wsgi por lo que he utilizado el módulo mod-fastcgi en su lugar para hacer funcionar Django en los NAS Synology. Necesitamos del módulo mysql-python , para su instalación podemos seguir la entrada que ya se publicó en este mismo blog:  http://ilizaran.blogspot.com.es/2014/09/instalacion-del-modulo-mysql-python-en.html De la instalación de mysql-python ya tendremos instalado pip en el NAS por lo que podremos instalar Django con algunos módulos necesarios: pip install Django pip install setuptools pip install flup Para saber que la instalación de Django ha sido correcta y verificar la versión podemos realizar: python import django  django.VERSION Ahora modifcamos la configuración de apache editando el fichero /etc/httpd/conf/httpd.conf-user  para hacer accesible los ficheros css, imágenes y javascript de la parte administrativa de Django, por lo que añadimos: Alias /static/admin /usr/local/packages/@appstor...
Publicar un comentario
Leer más

Calendario compartido en thunderbird sincronizado con el calendario de Google.

De
Se pretende crear un calendario común y compartido para que todos los que queramos vean nuestro calendario. Para ello tenemos que tener el thunderbird que es un cliente de correo. Si ya teníamos thunderbird, solamente tenemos que instalar 2 complementos: lightning y provider for google calendar . Para instalarlos simplemente entramos en thunderbird y en el menú superior entramos en Herramientas > Complementos . En la parte superior hay una barra para buscar los complementos y simplemente escribimos los 2 complementos dichos anteriormente y reiniciamos thunderbird. Ahora creamos una cuenta en google y si la tenemos no hace falta crearla. Accedemos a la cuenta de google y entramos en Calendar Una vez hemos entrado, a la izquierar nos saldrán los calendarios que tenemos. Creamos un nuevo calendario desplegando la pestaña que está al lado de Mis calendarios.   Creamos un calendario al que le vamos a llamar prueba. Ya estaría creado nuestro calendario. Entramos ...
Publicar un comentario
Leer más