Drucker installieren

Hallo! Ich bin noch ganz neu in der Materie und wollte ein Script schreiben um Netzwerkdrucker über eine Auswahl zu installieren. Jedoch klappt dies noch nicht so ganz.

Es sollen multiple checkboxen möglich sein, sodass mehrere Drucker hintereinander in einer Routine installiert werden können. Wie stelle ich das am besten an?

Soweit habe ich meinen Code geschrieben:

HotKeySet("{ESC}", "_exit")

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$GUI_GlobalSpam = GUICreate("Drucker installieren", 500, 309, 398, 153)

$GUI_button_installieren = GUICtrlCreateButton("Installieren", 40, 224, 89, 25)

$GUI_text_header = GUICtrlCreateLabel("Bitte alle zu installierende Drucker auswählen:", 10, 10, 500, 17)

$GUI_text_Modell = GUICtrlCreateLabel("Modell:", 10, 30, 250, 17)
$GUI_checkbox_Drucker1 = GUICtrlCreateCheckbox("Drucker1", 10, 50, 97, 17)
$GUI_checkbox_Drucker2 = GUICtrlCreateCheckbox("Drucker2", 10, 70, 97, 17)
$GUI_checkbox_Drucker3 = GUICtrlCreateCheckbox("Drucker3", 10, 90, 97, 17)
$GUI_checkbox_Drucker4 = GUICtrlCreateCheckbox("Drucker4", 10, 110, 97, 17)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_button_installieren
If GUICtrlRead($GUI_checkbox_Drucker1) = $GUI_CHECKED Then
MsgBox(262144, "OK!", 'Drucker1 wird installiert')
ElseIf GUICtrlRead($GUI_checkbox_Drucker2) = $GUI_CHECKED Then
MsgBox(262144, "OK!", 'Drucker2 wird installiert')
ElseIf GUICtrlRead($GUI_checkbox_Drucker3) = $GUI_CHECKED Then
MsgBox(262144, "OK!", 'Drucker3 wird installiert')
ElseIf GUICtrlRead($GUI_checkbox_Drucker4) = $GUI_CHECKED Then
MsgBox(262144, "OK!", 'Drucker4 wird installiert')
Else
MsgBox(262144, "Achtung!", 'Kein Drucker gewählt')
EndIf
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd

GUIDelete()
Exit

Func _exit()
Exit
EndFunc

statt der Testweise MsgBox sollte er eigentlich nur einen Pfad öffnen, nur das habe ich auch nicht gefunden wie das geht. Quasi nur "\\server\druckerfreigabe", dadurch wird der Drucker installiert.

Wenn ich jetzt mehrere Drucker auswähle, dann kommt immer nur 1 MsgBox und zwar die erste. Er Sollte aber weiterlaufen bis alle checkboxen abgearbeitet sind.

Bin über jede Hilfe dankbar!

Grüße

Hallo und danke für die erste Hilfe

Ich habe nun einiges gelesen, stolpere wohl aber immernoch über die einfachsten Sachen. Ich bekomme es einfach nicht hin, dass sich $i hochzählt. Ich weiß nicht wie ich es verknüpfen muss. Da ich mehrere Drucker habe, dachte ich an eine Schleife die mir die Zeilen selbst erstellt nach Anzahl der Drucker.

Auch das Hochzählen per $i fügt sich nicht in der $GUI_checkbox_Drucker[$i] ein

HotKeySet("{ESC}", "_exit")


#include <GUIConstants.au3>


#Region ### START Koda GUI section ### Form=


Dim $Anzahl_Drucker = 4
Dim $Drucker1 = "HPLJ2600"
Dim $Drucker2 = "HPLJ2601"
Dim $Drucker3 = "HPLJ2602"
Dim $Drucker4 = "HPLJ2603"




$GUI_GlobalSpam = GUICreate("Drucker installieren", 500, 309, 398, 153)


$GUI_button_installieren = GUICtrlCreateButton("Installieren", 40, 224, 89, 25)


$GUI_text_header = GUICtrlCreateLabel("Bitte alle zu installierende Drucker auswählen:", 10, 10, 500, 17)


$GUI_text_Modell = GUICtrlCreateLabel("Modell:", 10, 30, 250, 17)
$GUI_checkbox_$Drucker1 = GUICtrlCreateCheckbox("$Drucker1", 10, 50, 97, 17)
$GUI_checkbox_$Drucker2 = GUICtrlCreateCheckbox("$Drucker2", 10, 70, 97, 17)
$GUI_checkbox_$Drucker3 = GUICtrlCreateCheckbox("$Drucker3", 10, 90, 97, 17)
$GUI_checkbox_$Drucker4 = GUICtrlCreateCheckbox("$Drucker4", 10, 110, 97, 17)


GUISetState(@SW_SHOW)


#EndRegion ### END Koda GUI section ###


GUISetState()
While 1
	Switch GUIGetMsg()
		Case $GUI_button_installieren


			For $i = 1 to $Anzahl_Drucker
				If BitAND(GUICtrlRead($GUI_checkbox_Drucker[$i]),$GUI_CHECKED) = $GUI_CHECKED Then MsgBox(262144, "OK!", 'Drucker $i wird installiert')
			Next


    	Case $GUI_EVENT_CLOSE
        	ExitLoop
	EndSwitch
WEnd


GUIDelete()
Exit


Func _exit()
	Exit
EndFunc

Über welchen Befehl lässt sich eine Netzwerkpfad ansprechen? DriveMap ? (\\Server\Druckerfreigabe)

DANKE!!!

PERFEKT!!! VIELEN VIELEN DANK!!

Das ist genau das was ich brauche. Und alles auch noch so kurz wie möglich durch die Schleifen.

Jetzt nur noch eine Frage, ich habe Testweise die Drucker per printui.dll installiert, das geht auch wunderbar. Gibt es jedoch die Möglichkeit einen Befehl aufzurufen, der einfach nur den Freigabenamen öffnet? Denn so installiert sich der Drucker auch und ich bin dann auf keine dll's angewiesen.

If BitAND(GUICtrlRead($aPrinter[$i]),$GUI_CHECKED) = $GUI_CHECKED Then Run("rundll32 printui.dll,PrintUIEntry /in /n \\" & $Server & "\" & $aPrinterName)

Danke!

Hallo! Nochmals danke an alle! Es klappt nun alles so wie ich es brauche.

Hier nochmal mein fertiges Script, vielleicht gibt es ja noch den ein oder anderen Verbesserungsvorschlag.
Gibt es in meiner "Case $hInstall" Schleife eine einfachere Weise die If checked abfrage zu lösen die ich für FileOpen, FileWrite und FileClose gemacht habe?

#Region
#AutoIt3Wrapper_icon=printer.ico
#AutoIt3Wrapper_outfile=Drucker.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Language=1031
#EndRegion
#include <GUIConstants.au3>
#Include <File.au3>
TraySetIcon("printer.ico")

HotKeySet("{ESC}", "_exit")

Global $aPrinter[47]
Global $aPrinterName[47] = ["......"]
Global $Server = 'Server'
Global $ClientPC = @ComputerName

$hGui = GUICreate("Netzwerk Drucker installieren", 500, 400, 398, 153)
$hDelete = GUICtrlCreateButton("Alte Netzwerkdrucker löschen!", 150, 320, 200, 25)
$hInstall = GUICtrlCreateButton("Ausgewählte Drucker Installieren", 150, 350, 200, 25)

GUICtrlCreateLabel("Bitte alle zu installierende Drucker auswählen!", 10, 10, 500, 17)

For $i = 0 To 12
$aPrinter[$i] = GUICtrlCreateCheckbox($aPrinterName[$i], 10, 40 + ($i * 20), 110, 17)
Next
For $i = 13 To 25
$aPrinter[$i] = GUICtrlCreateCheckbox($aPrinterName[$i], 135, 40 + (($i-13) * 20), 110, 17)
Next
For $i = 26 To 38
$aPrinter[$i] = GUICtrlCreateCheckbox($aPrinterName[$i], 260, 40 + (($i-26) * 20), 110, 17)
Next
For $i = 39 To UBound($aPrinter) - 1
$aPrinter[$i] = GUICtrlCreateCheckbox($aPrinterName[$i], 375, 40 + (($i-39) * 20), 110, 17)
Next

GUISetState()

While 1
Switch GUIGetMsg()
Case $hInstall
;Überprüfen welche checkboxen aktiviert sind und dementsprechend Drucker installieren
For $i = 0 To UBound($aPrinter) - 1
If BitAND(GUICtrlRead($aPrinter[$i]),$GUI_CHECKED) = $GUI_CHECKED Then RunWait("rundll32 printui.dll,PrintUIEntry /in /n \\"&$Server&"\"&$aPrinterName[$i])
;Nach hinzufügen des Druckers wird eine Datei mit den installierten Druckern und dem Rechnername erzeugt.
If BitAND(GUICtrlRead($aPrinter[$i]),$GUI_CHECKED) = $GUI_CHECKED Then $file = FileOpen(@ScriptDir & "/"& $ClientPC & ".txt",1)
If BitAND(GUICtrlRead($aPrinter[$i]),$GUI_CHECKED) = $GUI_CHECKED Then FileWrite($file, $aPrinterName[$i] & @CRLF) ;@CRLF = Zeilenumbruch
If BitAND(GUICtrlRead($aPrinter[$i]),$GUI_CHECKED) = $GUI_CHECKED Then FileClose($file)
Next
Case $hDelete
;Hier fehlt noch die Befehlszeile zum löschen der Netzwerkdrucker
MsgBox(0,"1. Schritt erledigt ...","Alte Netzwerdrucker wurden vom Computer gelöscht.")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func _exit()
Exit
EndFunc

Grüße

Hi m-obi, das klappt so leider nicht mehr, nun zeigt er in der 2. Spalte das Ergebnis fortlaufen in der Höhe unter der 1. Spalte an. Es geht nur wenn ich noch die Höhe ($iTop) mit einkalkuliere.
Was mir nun auch aufgefallen ist, wenn ich jetzt keine checkbox auswähle, dann erzeugt er mir beim klicken auf Installieren trotzdem eine TXT Datei, vorher hat er das nur bei angehackter checkbox gemacht.

Hi, es sieht so perfekt aus.
Ich habe nur noch das FileClose mit in die If BitAND Scheife aufgenommen, da sich ansonsten das Programm schließt, wenn man keine checkbox angehackt hat und auf installieren klickt.

For $i = 0 To UBound($aPrinter) - 1
If BitAND(GUICtrlRead($aPrinter[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
If Not FileExists($LogDir & "/"& $ClientPC & ".txt") Then $hFile = FileOpen($LogDir & "/"& $ClientPC & ".txt",1)
RunWait("rundll32 printui.dll, PrintUIEntry /in /n \\" & $Server & "\" & $aPrinterName[$i])
;Nach hinzufügen des Druckers wird eine Datei mit den installierten Druckern und dem Rechnername erzeugt.
FileWrite($hFile, $aPrinterName[$i] & @CRLF) ;@CRLF = Zeilenumbruch
FileClose($hFile)
EndIf
Next

Werde es mal am Montag testen ob es in der Praxis auch so funktioniert

Danke für die nette und gute Hilfe!!

Ja so geht es auch

Guten Morgen!

Ich habe es getestet und es klappt einwandfrei. Jetzt ist mir aber noch eine Idee gekommen die das ganze noch etwas vereinfachen soll. Vielleicht ist das möglich umzusetzten. Hier mal mein Gedanke:

Das Programm liest vorher alle alten Drucker aus und sucht nach Vorgabe den neuen Referenzdrucker. Bei gefundenem Drucker macht er bereits einen Haken bei dem neuen Drucker. Ist dies möglich (denke schon) nur mit welchen Aufwand?

Hier bereits mein erster "Anfang" der Erweiterung.

Wie man vorhandene Drucker ausliest habe ich bereits gefunden:

Dim $Drucker[15]
Dim $installierteDrucker

For $i=1 to 15
$Drucker[$i] = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts",$i)
If @error <> 0 then ExitLoop
Next

$Drucker[0]=$i-1

For $j = 1 to $Drucker[0]
$installierteDrucker &= $Drucker[$j] & @CR
Next

MsgBox(0,"Installierte Drucker", $installierteDrucker)

Der Drucker wird dann wie folgt ausgegeben: "HP Laserjet 2600 LA123"

Jeder alter Druckername hat einen unique Teil den ich zum vergleichen brauche, in diesem Fall wäre es LA123, der Rest ist uninteressant.

Ich habe mir das iergendwie so vorgestellt, was ich erstmal per Hand (manuell) zuweise. Jedem alten Drucker den neuen Referenzdrucker.

Global $aPrinterName[47] = ["NEUER_DRUCKER_NAME", "LJ2600_LA123", ....]
Global $aOldPrinterName[47] = ["ALTER_DRUCKER_NAME", "HP LaserJet 2600 LA123", ....]

;sucht im OldPrinterName nach einer Übereinstimmung und soll dann einen Haken setzten bei der checkbox des neuen Druckernamens
$Drucker[$j] <> $aOldPrinterName[47]

GUICtrlSetState ( $checkbox_des_neuen_Druckers, 1 )

Grüße

So, habe noch etwas weiter probiert und diesen Quellcode erstellt (geht so aber leider noch nicht)

; Alte Drucker auslesen
Dim $Drucker[10]
Dim $installierteDrucker

For $i=1 to 10
$Drucker[$i] = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts",$i)
If @error <> 0 then ExitLoop
Next

$Drucker[0]=$i-1

For $j = 1 to $Drucker[0]
$installierteDrucker &= "'$Drucker[$j]', "
Next
; Ende Alte Drucker auslesen

Global $aPrinterName[47] = ["DS08", "DS02", "DS03", "DW03", ......]
Global $aOldPrinterName[47] = ["LAV8", "LAS2", "LAV3", "LAR03", ......]
Global $aInstalledPrinter[10] = ["$installierteDrucker"] ; sollte dann so aussehen: ["laser LAV3", "Drucker HP LAR03", "HR34 LAV8", "OfficeJet 356 LAS2"]

For $i = 0 to 47 Step 1
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName) <> 0 then MsgBox(0,"Test", $aPrinterName[$i])
;StringInStr(zu durchsuchender String, enthaltenes Wort) bei Übereinstimmung mache folgendes....
next

Er sollte nun aus den " $aInstalledPrinter" eine Übereinstimmung mit den "$aOldPrinterName[47]" finden und dann den richtigen "$aPrinterName[47]" wiedergeben. Nur die Installierten Drucker werden willkürlich dargestellt und somit kann ich nicht sagen 5. Drucker entspricht 5. neuen Drucker.

Grüße

Hallo! Ich habe es nun soweit hinbekommen, dass er mit aus dem array der installierten Drucker die neuen Namen zuweist.
Jedoch erscheint mir das etwas kompliziert, vielleicht geht das noch eleganter, da ich ja diesen Code Schnipsel noch in mein Programm aufnehmen muss:

; Alte Drucker auslesen
Dim $Drucker[10]
Dim $installierteDrucker

For $i=1 to 10
$Drucker[$i] = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts",$i)
If @error <> 0 then ExitLoop
Next

$Drucker[0]=$i-1

For $j = 1 to $Drucker[0]
$installierteDrucker &= $Drucker[$j] & @CRLF
Next
; Ende Alte Drucker auslesen

;MsgBox(0,"Installierte Drucker", $installierteDrucker)

Global $aPrinterName[47] = ["DS08", "DS02", "DS03", "DW03"] ;neue Druckernamen
Global $aOldPrinterName[47] = ["LAV8", "LAS2", "LAV3", "LAR03"] ;alte unique Druckernamen
Global $aInstalledPrinter[10] = ["laser LAV3", "Drucker HP LAR03", "HR34 LAV8", "OfficeJet 356 LAS2", "Local Drucker"] ;auf den PC installierte Drucker inkl. der unique Druckernamen

For $i = 0 to 47 Step 1
;StringInStr(zu durchsuchender String, enthaltenes Wort) bei Übereinstimmung mache folgendes....
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[0]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[0])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[1]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[1])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[2]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[2])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[3]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[3])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[4]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[4])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[5]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[5])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[6]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[6])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[7]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[7])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[8]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[8])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[9]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[9])
if StringInStr($aInstalledPrinter[$i], $aOldPrinterName[10]) <> 0 then MsgBox(0,"Test", $aInstalledPrinter[$i] & " --> " & $aPrinterName[10])
next