[..] Installation d'imprimante en local

[lesqual]

Bonjour,

J'ai essayé a mon niveau de creer ce script mais ca ne fontionne pas tout le temps et je pense qu'il y a plus rapide pour faire cela notament en utilisant une interface pour le choix du nom, du pilote et de l'ip mais je ne sais pas comment m'y prendre
Voici le script

► Afficher le texte

Code : Tout sélectionner

$var = IniRead("C:\Temp\myfile.ini", "adresse", "ip", "not found")
run("cscript c:\windows\system32\prnport.vbs -d -r IP_"& $var)
run("Rundll32 printui.dll,PrintUIEntry /il")
WinWaitActive("Assistant Ajout d'imprimante", "&Suivant")
Send("!s")
WinWaitActive("Assistant Ajout d'imprimante", "&Suivant")
Send("!s")
WinWaitActive("Assistant Ajout d'imprimante", "&Suivant")
Send("!c")
Send ("standar")
Send("!s")
WinWaitActive("Assistant Ajout de port", "&Suivant")
Send("!s")
WinWaitActive("Assistant Ajout de port", "&Suivant")
$var = IniRead("C:\Temp\myfile.ini", "adresse", "ip", "192.168.1.100")
send($var)
WinWaitActive("Assistant Ajout de port", "&Suivant")
Send("!s")
WinWaitActive("Assistant Ajout de port", "&Suivant")
Send("!s")
WinWaitActive("Assistant Ajout de port", "Fin de l'Assistant Ajout de port imprimante")
Send("{ENTER}")
WinWaitActive("Assistant Ajout d'imprimante", "&Suivant")
Send("!d")
$var = IniRead("C:\Temp\myfile.ini", "pilote", "chemin", "not found")
send($var)

Send("{ENTER}")
WinWaitActive("Assistant Ajout d'imprimante", "&Suivant")
Send("!s")
$var = IniRead("C:\Temp\myfile.ini", "nom", "nom", "mon imprimante")
send($var)
Send("!s")
WinWaitActive("Assistant Ajout d'imprimante", "partager")
Send("!s")
WinWaitActive("Assistant Ajout d'imprimante", "imprimer une page")
Send("!s")
WinWaitActive("Assistant Ajout d'imprimante", "Fin de l'Assistant")
Send("{ENTER}")

[peuchere83]

Bonjour Lesqual,

Ton problème vient de l'utilisation de Rundll32 printui.dll. En effet tu lui demande de lancer l'interface d'installation (option /il).
Je te conseille de jeter un oeil à cette adresse : http://www.robvanderwoude.com/2kprintcontrol.php.

Cordialement.

[lesqual]

merci pour ta reponse rapide

ce que je cherche a faire c'est un boite de dialogue qui me demanderai le port ip, le nom et l'emplacement du drivers plutôt que de le renseigner dans un fichier inf

quand je vois les script des interface GUI, j'ai du mal a suivre et je n'arrive pas a suivre la demarche

[ani]

Bonjour normalement vous devez disposer de KODA (programme permettant de créer une interface/onglet outils koda), cela vous facilitera un peu.

je ne connait pas les manip pour l'imprimante, ni l'utilisation des fichiers vbs

voici un petit exemple d'interface, à adapter à vos besoin.
changer le filtre du opendialog.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $PrintName, $IP, $Port, $Driver, $DriverSelect, $Save
$Form = GUICreate("Installation d'imprimante local", 298, 148, 193, 115)
$Label1 = GUICtrlCreateLabel("Nom pour l'imprimante :", 8, 16, 113, 17)
$Label2 = GUICtrlCreateLabel("Adresse IP:", 8, 48, 58, 17)
$Label3 = GUICtrlCreateLabel("Port :", 208, 48, 29, 17)
$Label4 = GUICtrlCreateLabel("Driver :", 8, 80, 38, 17)
$PrintName = GUICtrlCreateInput("", 120, 14, 162, 21)
$IP = GUICtrlCreateInput("192.168.", 72, 46, 121, 21)
$Port = GUICtrlCreateInput("", 240, 46, 42, 21)
$Driver = GUICtrlCreateInput("", 48, 78, 161, 21)
$DriverSelect = GUICtrlCreateButton("Selectionner", 216, 77, 75, 25, 0)
$Save = GUICtrlCreateButton("Enregistrement des paramètres imprimante", 8, 112, 283, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $DriverSelect
            $Open = FileOpenDialog("Selection du driver",@WindowsDir & "\", "Drivers (*.inf)")
            If @error Then
                MsgBox(4096,"","Aucun fichier choisis")
            Else
                GUICtrlSetData($Driver, $Open)
            EndIf
        Case $Save
            $sIP = GUICtrlRead($IP)
            $sPort = GUICtrlRead($Port) 
            $sPrintName = GUICtrlRead($PrintName)
            $sDriver = GUICtrlRead($Driver)
            ConsoleWrite("Nom : " & $sPrintName & @CRLF & "Port : " & $sPort & "     IP: " & $sIP & @CRLF & "Driver : " & $sDriver)
    EndSwitch
WEnd
 

Sinon regarde ce lien http://www.autoitscript.fr/forum/viewto ... f=3&t=4807


bonne continuation

[Serge63]

Bonjour

je ne sais pas si ça peut servir mais voici les scripts que j'utilise pour installer ou supprimer une imprimante (ceux-ci sont adaptés pour un photocopieur RICOH)