mahlzeit!
ich arbeite gerade an einer kleinen gui, von der aus ich (oder mitarbeiter) einen (oder mehrere) tcp/ip- drucker verbinden kann (/können).
hostanme/ ip sind in ein input- feld einzutragen, druckermodell über ein dropdown- menü auszuwählen.
derzeitiger fortschritt:
Spoiler anzeigen
#RequireAdmin
#include <GUIConstants.au3>
$titel = ("Druckerverbindungsmenü TCP/IP")
$file1 = FileOpen ("!typen.txt", 0)
;~ If $file1 = -1 Then
;~ MsgBox(0, "Fehlende Daten!", "!typen.txt scheint zu fehlen!")
;~ Exit
;~ EndIf
$data = FileReadLine($file1, 1)
GUICreate($titel, 280, 180)
GUICtrlCreateLabel("TCP/IP- Drucker verbinden", 20,15,800)
GUICtrlSetFont (-1, 9.5, 800, 0, "Arial")
$hilfe = GUICtrlCreateButton ("?", 250,13,20,20)
GUICtrlSetTip(-1, "klicken Sie hier, wenn Sie Fragen haben")
GUICtrlCreateLabel("Hostname oder IP des zu verbindenden Druckers:",20,40)
$host = GUICtrlCreateInput ("",20,60,240)
GUICtrlCreateLabel("Gerätetyp:",20,90)
$typ = GUICtrlCreateCombo ("-bitte wählen-",20,110,240)
GUICtrlSetData(-1, $data)
$button1 = GUICtrlCreateButton("Verbinden!",40,145,200)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button1 ;verbinden
$treiber = (GUICtrlRead ($typ) & "\")
$command1 = ("cscript %systemdrive%\windows\system32\prnport.vbs -a -r " & GUICtrlRead($host) & " -h " & GUICtrlRead($host) & " -o raw -n 9100")
$command2 = ("rundll32 printui.dll,PrintUIEntry /if /b " & GUICtrlRead($typ) & " /f " & GUICtrlRead($treiber) & " /r IP_" & GUICtrlRead($host) & " /m " & GUICtrlRead($typ))
RunWait(@comspec & ' /c ' & $command1,'',@SW_HIDE)
Run(@comspec & ' /c ' & $command2,'',@SW_SHOW)
EndSelect
WEnd
im anhang: die .au3, die .txt, in der einige druckertypen angeführt sind und zum testen ein ordner mit treiberdateien für einen dell 3110cn.
bedanke mich schon mal im voraus für eure fehlerdiagnosen/ vorschläge/ optimierungstips.
mfg
p.s.: ich vermute, dass das problem in der syntax von $command2 liegt, da das erstellen des tcp/ip- ports ($command1) problemlos fkt.