Hey Leute ich hab mal wieder nen kleines Problemchen xD
Und zwar:
Ich möchte gern einige Druckertreiber installieren lassen (aber in Drucker und Faxgeräte über Datei\Servereigenschaften). Soweit klappt auch noch alles, die ersten beiden Treiber installiert er, aber danach läuft das Script nicht mehr weiter. Hier mal mein Code:
[Edit]
Was mir auch noch aufgefallen ist, das scheinbar gar keine Befehle seitens AutoIT engegengenommen werden, also auch kein WinClose von dem Fenster oder ProcessClose vom explorer
[/Edit]
Spoiler anzeigen
#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.10.0 Author: $cR!pT k!ddY Script Function: Drucker bei Druckersever installieren #ce ---------------------------------------------------------------------------- ;$cR!pT Start ;--------------------------------------------------------------- $title="Drucker und Faxgeräte" $title1="Assistent für die Druckertreiberinstallation" $title2="Installation von Datenträger" $title3="Datei suchen" $title4="Hardwareinstallation" $title5="Eigenschaften von Druckserver" ;--------------------------------------------------------------- run("control printers") WinWait($title, "FolderView") Send("!d") Send("r") WinWait($title5, "Definieren") Send("+{TAB}") Send("{RIGHT}") Send("{RIGHT}") ;--------------------------------------------------------------- ;lj373 ;--------------------------------------------------------------- WinWait($title5, "Treiber") ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\lj373\") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") ;--------------------------------------------------------------- Sleep(500) ;LaserJet P2015 ;--------------------------------------------------------------- WinWaitActive($title5, "Treiber") Sleep(2000) ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\Programme\Hewlett-Packard\LaserJet P2015 Drivers") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") ;--------------------------------------------------------------- Sleep(500) ;lj1018 ;--------------------------------------------------------------- WinWaitActive($title5, "Treiber") Sleep(2000) ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\lj1018\pcl6") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") ;--------------------------------------------------------------- Sleep(500) ;lj1021 ;--------------------------------------------------------------- WinWaitActive($title5, "Treiber") ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\lj1021\2k_xp") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") ;--------------------------------------------------------------- Sleep(500) ;lj1300 ;--------------------------------------------------------------- WinWaitActive($title5, "Treiber") ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\lj1300") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") WinWait($title5, "Treiber") ;--------------------------------------------------------------- WinClose($title5, "Treiber")
[/autoit]ich hoffe ihr könnt mir weiterhelfen...was mach ich falsch 
[Edit2]
Also ich hab jetzt nochmal ein paar Stunden rumgeproggt...komm aber immer noch nicht zu einem gescheitem Ergebiss....hier mal mein aktueller Source
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.10.0
Author: $cR!pT k!ddY
Script Function:
Drucker Treiber extrahieren + Installieren
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];$cR!pT Start
HotKeySet("{ESC}", "Abbrechen")
;Variablen definieren
;Extrahierungsvariablen
$title="WinZip Self-Extractor"
$title1="WinZip Self-Extractor [lj373ge.exe]"
$title2="WinZip Self-Extractor - lj24x0pcl6winvista2kxp2003.exe"
$title3="WinZip Self-Extractor [lj1018ge.exe]"
$title4="WinZip Self-Extractor [16lj1021ge.exe]"
$title5="WinZip Self-Extractor [lj1300pcl6win2kxp-ge.exe]"
$title6="hp LaserJet 1320 PS - InstallShield Wizard"
$title7="hp LaserJet P2015 PCL6 - InstallShield Wizard"
$title8="Overwrite Protection"
$title9="Überschreibschutz"
;Installationsvariablen
$title10="Drucker und Faxgeräte"
$title11="Assistent für die Druckertreiberinstallation"
$title12="Installation von Datenträger"
$title13="Datei suchen"
$title14="Hardwareinstallation"
$title15="Eigenschaften von Druckserver"
;---------------------------------------------------------------
$msg = MsgBox(0, "", "Die Drucker werden jetzt installiert")
If $msg = 1 Then
Call ("_HPLaserJet6p")
EndIf
;---------------------------------------------------------------
Func _HPLaserJet6p()
;HP LaserJet 6p
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 6p\lj373ge.exe")
WinWait($title,"HP verlangt")
ControlClick($title,"OK","Button1")
WinWait($title1,"To unzip")
ControlClick($title1, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title1, "To unzip")
ControlClick($title1, "&Close","Button5")
;Drucker installieren
WinWaitClose($title1, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")
WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\lj373\")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")
EndFunc
[/autoit] [autoit][/autoit] [autoit];---------------------------------------------------------------
$msg1 = MsgBox(0, "", "Die Drucker werden jetzt installiert")
If $msg1 = 1 Then
Call ("_HPLaserJet24X0")
EndIf
;---------------------------------------------------------------
Func _HPLaserJet24X0()
;HP LaserJet 24X0
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 24X0\lj24x0pcl6winvista2kxp2003.exe")
WinWait($title2,"To unzip")
ControlClick($title2, "&Unzip","Button4")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title2, "To unzip")
ControlClick($title2, "&Close","Button6")
;Drucker installieren
WinWaitClose($title2, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\HP LJ24x0 Series")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")
EndFunc
[/autoit] [autoit][/autoit] [autoit];---------------------------------------------------------------
$msg2 = MsgBox(0, "", "Die Drucker werden jetzt installiert")
If $msg2 = 1 Then
Call ("_HPLaserJet206")
EndIf
;---------------------------------------------------------------
Func _HPLaserJet206()
;HP LaserJet 206
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 206\Lj1200\lj1018ge.exe")
WinWait($title3, "To unzip")
ControlClick($title3, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title3, "To unzip")
ControlClick($title3, "&Close","Button5")
;Drucker installieren
WinWaitClose($title3, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")
WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\lj1018\pcl6")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")
EndFunc
[/autoit] [autoit][/autoit] [autoit];---------------------------------------------------------------
$msg3 = MsgBox(0, "", "Die Drucker werden jetzt installiert")
If $msg3 = 1 Then
Call ("_HPLaserJet1200")
EndIf
;---------------------------------------------------------------
Func _HPLaserJet1200()
;HP LaserJet 1200
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1200\16lj1021ge.exe")
WinWait($title4, "To unzip")
ControlClick($title4, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title4, "To unzip")
ControlClick($title4, "&Close","Button5")
;Drucker installieren
WinWaitClose($title4, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")
WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\lj1021\2k_xp")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")
EndFunc
[/autoit] [autoit][/autoit] [autoit];---------------------------------------------------------------
$msg4 = MsgBox(0, "", "Die Drucker werden jetzt installiert")
If $msg4 = 1 Then
Call ("_HPLaserJet1300")
EndIf
;---------------------------------------------------------------
Func _HPLaserJet1300()
;HP LaserJet 1300
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1300\lj1300pcl6win2kxp-ge.exe")
WinWait($title5, "To unzip")
ControlClick($title5, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title5, "To unzip")
ControlClick($title5, "&Close","Button5")
;Drucker installieren
WinWaitClose($title5, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")
WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\lj1300")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")
EndFunc
[/autoit] [autoit][/autoit] [autoit];---------------------------------------------------------------
$msg5 = MsgBox(0, "", "Die Drucker werden jetzt installiert")
If $msg5 = 1 Then
Call ("_HPLaserJet1320")
EndIf
;---------------------------------------------------------------
Func _HPLaserJet1320()
;HP LaserJet 1320
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1320\lj1320PSwin2kxp2003-en.exe")
WinWait($title6, "ATTENTION")
ControlClick($title6, "I &accept the terms in the license agreement","Button1")
ControlClick($title6, "&Next >","Button4")
WinWait($title6, "Please")
ControlClick($title6, "&Next >","Button5")
$wait = WinWait($title8, "The following file")
If $wait = 1 Then
ControlClick($title8, "N&o to All", "Button5")
EndIf
;Drucker installieren
WinWaitClose($title6, "Extracting Files")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")
WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\Programme\Hewlett-Packard\LaserJet 1320 Drivers")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")
EndFunc
[/autoit] [autoit][/autoit] [autoit];---------------------------------------------------------------
$msg6 = MsgBox(0, "", "Die Drucker werden jetzt installiert")
If $msg6 = 1 Then
Call ("_HPLaserJetP2015dn")
EndIf
;---------------------------------------------------------------
Func _HPLaserJetP2015dn()
;HP LaserJet P2015dn
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj P2015dn\ljP2015-PCL6-pd-win2kxp2003-ge.exe")
WinWait($title7, "ACHTUNG")
ControlClick($title7, "Ich &akzeptiere die Bedingungen der Lizenzvereinbarung","Button1")
ControlClick($title7, "&Weiter >","Button4")
WinWait($title7, "Bitte geben")
ControlClick($title7, "&Weiter >","Button5")
$wait1 = WinWait($title9, "Die folgende Datei")
If $wait1 = 1 Then
ControlClick($title9, "N&ein zu allen","Button5")
EndIf
;Drucker installieren
WinWaitClose($title7, "Dateien werden entpackt")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")
WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\Programme\Hewlett-Packard\LaserJet P2015 Drivers")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")
EndFunc
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, "", "Glückwunsch, alle Drucker wurden erfolgreich extrahiert und installiert")
;Netzwerkdrucker hinzufügen!?
Func Abbrechen()
Exit
EndFunc
;$cR!pT End
[/autoit]
[/Edit2]
[Final Edit =)]
Also ich habs endlich geschafft =)
Hab dau nen Programm von Microsoft genommen (Printmig 3.1) und das alles dann in mein Script integriert
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.10.0
Author: $cR!pT k!ddY
Script Function:
Drucker Treiber extrahieren + Installieren
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];$cR!pT Start
HotKeySet("{ESC}", "Abbrechen")
;Variablen definieren
;Extrahierungsvariablen
$title="WinZip Self-Extractor"
$title1="WinZip Self-Extractor [lj373ge.exe]"
$title2="WinZip Self-Extractor - lj24x0pcl6winvista2kxp2003.exe"
$title3="WinZip Self-Extractor [lj1018ge.exe]"
$title4="WinZip Self-Extractor [16lj1021ge.exe]"
$title5="WinZip Self-Extractor [lj1300pcl6win2kxp-ge.exe]"
$title6="hp LaserJet 1320 PS - InstallShield Wizard"
$title7="hp LaserJet P2015 PCL6 - InstallShield Wizard"
$title8="Overwrite Protection"
$title9="Überschreibschutz"
;---------------------------------------------------------------
$msg = MsgBox(0, "", "Die Drucker werden jetzt installiert", 3)
If $msg = 1 Then
Call ("_HPLaserJet6p")
EndIf
;---------------------------------------------------------------
Func _HPLaserJet6p()
;HP LaserJet 6p
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 6p\lj373ge.exe")
WinWait($title,"HP verlangt")
ControlClick($title,"OK","Button1")
WinWait($title1,"To unzip")
ControlClick($title1, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title1, "To unzip")
ControlClick($title1, "&Close","Button5")
Call("_HPLaserJet24X0")
EndFunc
Func _HPLaserJet24X0()
;HP LaserJet 24X0
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 24X0\lj24x0pcl6winvista2kxp2003.exe")
WinWait($title2,"To unzip")
ControlClick($title2, "&Unzip","Button4")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title2, "To unzip")
ControlClick($title2, "&Close","Button6")
Call("_HPLaserJet206")
EndFunc
Func _HPLaserJet206()
;HP LaserJet 206
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 206\Lj1200\lj1018ge.exe")
WinWait($title3, "To unzip")
ControlClick($title3, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title3, "To unzip")
ControlClick($title3, "&Close","Button5")
Call("_HPLaserJet1200")
EndFunc
Func _HPLaserJet1200()
;HP LaserJet 1200
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1200\16lj1021ge.exe")
WinWait($title4, "To unzip")
ControlClick($title4, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title4, "To unzip")
ControlClick($title4, "&Close","Button5")
Call("_HPLaserJet1300")
EndFunc
Func _HPLaserJet1300()
;HP LaserJet 1300
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1300\lj1300pcl6win2kxp-ge.exe")
WinWait($title5, "To unzip")
ControlClick($title5, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title5, "To unzip")
ControlClick($title5, "&Close","Button5")
Call("_HPLaserJet1320")
EndFunc
Func _HPLaserJet1320()
;HP LaserJet 1320
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1320\lj1320PSwin2kxp2003-en.exe")
WinWait($title6, "ATTENTION")
ControlClick($title6, "I &accept the terms in the license agreement","Button1")
ControlClick($title6, "&Next >","Button4")
WinWait($title6, "Please")
ControlClick($title6, "&Next >","Button5")
$wait = WinWait($title8, "The following file")
If $wait = 1 Then
ControlClick($title8, "N&o to All", "Button5")
EndIf
Call("_HPLaserJetP2015dn")
EndFunc
Func _HPLaserJetP2015dn()
;HP LaserJet P2015dn
;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj P2015dn\ljP2015-PCL6-pd-win2kxp2003-ge.exe")
WinWait($title7, "ACHTUNG")
ControlClick($title7, "Ich &akzeptiere die Bedingungen der Lizenzvereinbarung","Button1")
ControlClick($title7, "&Weiter >","Button4")
WinWait($title7, "Bitte geben")
ControlClick($title7, "&Weiter >","Button5")
$wait1 = WinWait($title9, "Die folgende Datei")
If $wait1 = 1 Then
ControlClick($title9, "N&ein zu allen","Button5")
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit]ShellExecuteWait(@Scriptdir & "\Drucker.bat")
[/autoit] [autoit][/autoit] [autoit]MsgBox(0, "", "Glückwunsch, alle Drucker wurden erfolgreich extrahiert und installiert", 5)
;Netzwerkdrucker hinzufügen!?
Func Abbrechen()
Exit
EndFunc
;$cR!pT End
[/autoit]Da ich Probleme hatte die exe Datei von dem Microsoft Programm per AutoIT auszuführen, habe ich einfach eine Batch Datei geschrieben, die dies für mich bewältigt. Und schon klappt alles wie erwünscht.
Kleine Info noch zur Funktionsweise...Mein Script extrahiert die gewünschten Druckertreiber auf die HDD und anschließend wird mit Hilfe des Microsoft Programms das ganze Druckerzeugs installiert (Also die Druckertreiber stehen dann unter Datei\Servereigenschaften\Treiber drinnen.
Wie das Microsoft Prog jetzt funktioniert, brauch ich hoffentlich jetzt nicht erklären, da dies meiner Meinung nach ziemlich simpel ist.
Wenn erwünscht, uppe ich das alles mal, und gebe auch gern noch weiteres Infos.
Hööö...was is mit meine Spoiler los...gestern gings doch auch noch...mhmZ...seltsam...
[/Final Edit =)]
Mfg
Apollo 13