[..] Création de port LPR

[vincentr]

***** Important *****
- Ajoutez la balise [..] dans le titre de votre premier message
- N'oubliez pas les balises de code dans vos messages.
- N'utilisez pas la coloration syntaxique dans ce forum

Plus de détails ici :
http://www.autoitscript.fr/forum/viewto ... f=35&t=595

Bonjour,
je souhaiterais automatiser l'installation d'une imprimante qui utilise le port LPR (serveur d'impression UNIX). Pour cela, il me faudrait installer ce composant windows mais je ne sais pas comment faire ?
pouvez-vous m'aider ?
Vincent

[vincentr]

J'ai avancé un petit peu mais je suis obligé de redémarrer le PC pour pour prise en compte du service que je viens de créer.
Voici le code que j'ai fait (il y a surement des améliorations à faire) :

Func lpr_port()
TrayTip("Info !", "Installation du port LPR", 2, 1)

;RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\System\LPDSVC", "EventMessageFile", "REG_EXPAND_SZ", "%SystemRoot%\System32\lpdsvc.dll")
;RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\System\LPDSVC", "TypesSupported", "REG_DWORD", 7)

RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "Type", "REG_DWORD", 0x00000020)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "Start", "REG_DWORD", 0x00000003)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "ErrorControl", "REG_DWORD", 0x00000001)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "ImagePath", "REG_EXPAND_SZ", "%SystemRoot%\system32\tcpsvcs.exe")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "DisplayName", "REG_SZ", "Serveur d" & Chr(39) & "impression TCP/IP")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "DependOnService", "REG_MULTI_SZ", "Tcpip" & @LF & "Spooler")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "DependOnGroup", "REG_MULTI_SZ", "")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "ObjectName", "REG_SZ", "LocalSystem")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "Description", "REG_SZ", "Fournit un service d" & Chr(39) & "impression fonctionnant avec TCP/IP et utilisant le protocole d" & Chr(39) & "imprimante en ligne.")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Parameters", "AllowJobRemoval", "REG_DWORD", 0x00000001)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Parameters", "AllowPrinterResume", "REG_DWORD", 0x00000001)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Parameters", "MaxConcurrentUsers", "REG_DWORD", 0x00000064)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Security", "Security", "REG_BINARY", "01001480900000009c000000140000003000000002001c000100000002801400ff010f00010100000000000100000000020060000400000000001400fd01020001010000000000051200000000001800ff010f0001020000000000052000000020020000000014008d01020001010000000000050b00000000001800fd01020001020000000000052000000023020000010100000000000512000000010100000000000512000000")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Enum", "0", "REG_SZ", "Root\LEGACY_LPDSVC\0000")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Enum", "Count", "REG_DWORD", 0x00000001)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Enum", "NextInstance", "REG_DWORD", 0x00000001)

RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\LPR Print Monitor", "EventMessageFile", "REG_EXPAND_SZ", "%SystemRoot%\System32\lprmon.dll")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\LPR Port", "Driver", "REG_SZ", "lprmon.dll")

RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\System\LPDSVC", "EventMessageFile", "REG_EXPAND_SZ", "%SystemRoot%\System32\lpdsvc.dll")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\System\LPDSVC", "TypesSupported", "REG_DWORD", 0x00000007)

EndFunc ;==>lpr_port

lpr_port()

[Yogui]

Bonjour,

Avez vous tester de redémarrer le service spouleur d'impression (spoolsv.exe) ?

[vincentr]

Merci, voila mon script fini

► Afficher le texte

Code : Tout sélectionner

Func OCE_TDS320()
    ; Création du service d'impression pour UNIX

    FileInstall("\\10.7.22.41\InterChk\deploy\imp\DIST\LPR_Port\lprmon.dll", "C:\windows\system32\", 1)
    FileInstall("\\10.7.22.41\InterChk\deploy\imp\DIST\LPR_Port\lpdsvc.dll", "C:\windows\system32\", 1)

    RunWait(@ComSpec & " /c net stop spooler", "", @SW_DISABLE)

    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\System\LPDSVC", "EventMessageFile", "REG_EXPAND_SZ", "%SystemRoot%\System32\lpdsvc.dll")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\System\LPDSVC", "TypesSupported", "REG_DWORD", 7)

    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "Type", "REG_DWORD", 0x00000020)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "Start", "REG_DWORD", 0x00000003)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "ErrorControl", "REG_DWORD", 0x00000001)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "ImagePath", "REG_EXPAND_SZ", "%SystemRoot%\system32\tcpsvcs.exe")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "DisplayName", "REG_SZ", "Serveur d" & Chr(39) & "impression TCP/IP")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "DependOnService", "REG_MULTI_SZ", "Tcpip" & @LF & "Spooler")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "DependOnGroup", "REG_MULTI_SZ", "")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "ObjectName", "REG_SZ", "LocalSystem")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC", "Description", "REG_SZ", "Fournit un service d" & Chr(39) & "impression fonctionnant avec TCP/IP et utilisant le protocole d" & Chr(39) & "imprimante en ligne.")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Parameters", "AllowJobRemoval", "REG_DWORD", 0x00000001)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Parameters", "AllowPrinterResume", "REG_DWORD", 0x00000001)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Parameters", "MaxConcurrentUsers", "REG_DWORD", 0x00000064)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Security", "Security", "REG_BINARY", "01001480900000009c000000140000003000000002001c000100000002801400ff010f00010100000000000100000000020060000400000000001400fd01020001010000000000051200000000001800ff010f0001020000000000052000000020020000000014008d01020001010000000000050b00000000001800fd01020001020000000000052000000023020000010100000000000512000000010100000000000512000000")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Enum", "0", "REG_SZ", "Root\LEGACY_LPDSVC\0000")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Enum", "Count", "REG_DWORD", 0x00000001)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LPDSVC\Enum", "NextInstance", "REG_DWORD", 0x00000001)

    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\LPR Print Monitor", "EventMessageFile", "REG_EXPAND_SZ", "%SystemRoot%\System32\lprmon.dll")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\LPR Port", "Driver", "REG_SZ", "lprmon.dll")

    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\System\LPDSVC", "EventMessageFile", "REG_EXPAND_SZ", "%SystemRoot%\System32\lpdsvc.dll")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\System\LPDSVC", "TypesSupported", "REG_DWORD", 0x00000007)

    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_LPDSVC", "NextInstance", "REG_DWORD", 0x00000001)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_LPDSVC\0000", "Service", "REG_SZ", "LPDSVC")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_LPDSVC\0000", "Legacy", "REG_DWORD", 0x00000001)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_LPDSVC\0000", "ConfigFlags", "REG_DWORD", 0x00000000)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_LPDSVC\0000", "Class", "REG_SZ", "LegacyDriver")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_LPDSVC\0000", "ClassGUID", "REG_SZ", "{8ECC055D-047F-11D1-A537-0000F8753ED1}")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_LPDSVC\0000", "DeviceDesc", "REG_SZ", "Serveur d" & Chr(39) & "impression TCP/IP")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_LPDSVC\0000\Control", "*NewlyCreated*", "REG_DWORD", 0x00000000)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_LPDSVC\0000\Control", "ActiveService", "REG_SZ", "LPDSVC")

    ; Création LPR Port pour OCE TDS320

    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\LPR Port\Ports\@IP:TDS320", "Server Name", "REG_SZ", "10.7.42.151")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\LPR Port\Ports\@IP:TDS320", "Printer Name", "REG_SZ", "TDS320")
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\LPR Port\Ports\@IP:TDS320", "OldSunCompatibility", "REG_DWORD", 0x00000000)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\LPR Port\Ports\@IP:TDS320", "HpUxCompatibility", "REG_DWORD", 0x00000000)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\LPR Port\Ports\@IP:TDS320", "EnableBannerPage", "REG_DWORD", 0x00000000)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\LPR Port\Ports\@IP:TDS320\Timeouts", "CommandTimeout", "REG_DWORD", 0x00000078)
    RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\LPR Port\Ports\@IP:TDS320\Timeouts", "DataTimeout", "REG_DWORD", 0x0000012c)

    RunWait(@ComSpec & " /c net start spooler", "", @SW_DISABLE)

    ;Ajout des imprimantes
    RunWait(@ComSpec & " /c RUNDLL32.EXE printui.dll,PrintUIEntry /if /b " & Chr(34) & "OCE TDS320" & Chr(34) & " /f " & $DIRIMP & "\DATA\TDS320\oemsetup.inf /r " & Chr(34) & "@IP:TDS320" & Chr(34) & " /m " & Chr(34) & "Oce TDS320" & Chr(34) & " /z /q", @SystemDir, @SW_MINIMIZE)

EndFunc   ;==>OCE_TDS320

[Yogui]

J'ai édité votre message afin d'ajouter les balise code et spoiler qui facilitent la lecture du forum.

Merci lors de vos prochains message de penser à les mettre