VBS Drucker hinzufügen PC bezogen

Ich habe ein VBS Script, dass die Drucker verbinden soll. Das fuktioniert auch perfekt.
Nun stehe ich vor dem Problem, dass ich es nicht schaffe das Script so umzuschreiben, dass die Drucker Computer abhängig verbunden werden und bestimmte Drucker als Standard einrichtet.

Mein Script bis jetzt:

**********************************************
' * Funktion:		Remove Printer  
' * Beschreibung:	Entfernt alle Drucker  
' * Rückgabe:		<keine>  
' **********************************************  

' *** Löschen der Druckerverbindungen ***  

On Error Resume Next
	PrinterPath = "\\s01\Drucker1"  
	WshNetwork.RemovePrinterConnection PrinterPath, true, true
	PrinterPath = "\\s01\Drucker2"  
	WshNetwork.RemovePrinterConnection PrinterPath, true, true
	PrinterPath = "\\s01\Drucker3"  
	WshNetwork.RemovePrinterConnection PrinterPath, true, true
	If Err.Number <> 0 Then
		Err.Clear
	End If
	
' **********************************************  
' * Funktion:		Map Printer  
' * Beschreibung:	Mapped Alle Drucker und definiert Standard  
' * Rückgabe:		<keine>  
' **********************************************  

' *** Herstellen der Druckerverbindungen ***  

On Error Resume Next
	WshNetwork.AddWindowsPrinterConnection "\\s01\Drucker1"  
	WshNetwork.AddWindowsPrinterConnection "\\s01\Drucker2"  
	WshNetwork.AddWindowsPrinterConnection "\\s01\Drucker3"  
	If Err.Number <> 0 Then
		Err.Clear
	End If
	
	
' *** Standard-Drucker definieren  
	
	WSHNetwork.SetDefaultPrinter "\\s01\Drucker2"  
	If Err.Number <> 0 Then
		Err.Clear
	End If

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 91444

Url: https://administrator.de/forum/vbs-drucker-hinzufuegen-pc-bezogen-91444.html

Ausgedruckt am: 23.12.2024 um 04:12 Uhr

6 Kommentare

Neuester Kommentar

Moin

So in etwa kann das gehen:

Set WSHNetwork = WScript.CreateObject("WScript.Network")  
WORKSTATION = WSHNetwork.ComputerName

If WORKSTATION  ="PCxy" THEN  
    ' *** Hier Drucker für PCxy verbinden  
End if

Gruß L.

und wenn ich dann mehrere PCs habe. Ich habe z.b. 10 PCs.
Frage ich die alle mit if ab.

so in etwa!

Set WSHNetwork = WScript.CreateObject("WScript.Network")   
WORKSTATION = WSHNetwork.ComputerName 

If WORKSTATION  ="PC01" THEN   
 ' *** Hier Drucker für PCxy verbinden   

If WORKSTATION  ="PC02" THEN   
 ' *** Hier Drucker für PCxy verbinden   

If WORKSTATION  ="PC03" THEN   
 ' *** Hier Drucker für PCxy verbinden   
End if

oder geht es anders?

Schon, wird nur noch aufwendiger. Setzt ein AD und GPOs vorraus.

Es ist auch nur bedingt sinnvoll Netzwerkdrucker pro Computer zu verbinden.
Bei uns haben wir pro Etage ein Script das alle Netzwerkdrucker diese Etage verbindet.
Dies lassen wir per GPO auf Abteilungsgruppen anwenden.

Gruß L.

warum ist es nur bedingt sinnvoll?
Ich habe AD und auch GPOs jedoch nur Benutzerrichtlininen keine Computerrichtlinine.
Da sich bei uns alle MA auf jeden PC anmelden kann. So richtig in Etagen kann man es bei uns nicht trennen.

Ich habe ein anderes Script gefunden und dort wird mit if und else gearbeitet

Set WSHNetwork = WScript.CreateObject("WScript.Network")   
WORKSTATION = WSHNetwork.ComputerName 

If WORKSTATION  ="PC01" THEN   
 ' *** Hier Drucker für PCxy verbinden   

else WORKSTATION  ="PC02" THEN   
 ' *** Hier Drucker für PCxy verbinden   

Funktioniert das so auch?

warum ist es nur bedingt sinnvoll?

weil es "unelegant" ist

Nimm deinen Schnippsel und speichere Ihn nach druckername.vbs im Netlogon ab.

dann nimmst du deine AD und vergibst pro Netzdrucker eine neue Gruppe

Dann nimmst du Kixtart und machst:

if ingroup "drucker1"  
    Shell "cscript drucker1.vbs //nologo"  
endif

Das ganze für jeden Drucker und das wars.

Edit:

Funktioniert das so auch?

Denn mit if else kling usw usf. wird das Script nur Zäher - funktionieren (wenn dazu nicht die lange Laufzeit zählt) - würde es.

@ Retz12

So richtig in Etagen kann man es bei uns nicht trennen.

Wenn du für jede Etage ein eigenes Vlan nimmst
1 OG = 192.168.101.0
2 OG 0 192.168.102.0
usw - gehts ganz easy

Ich habe ein anderes Script gefunden und dort wird mit if und else gearbeitet
Funktioniert das so auch?

Ja natürlich.

warum ist es nur bedingt sinnvoll?

Nun das hängt sicherlich von der Anzahl der User/Pcs und der Anzahl der Netzwerkdrucker sowie der Größe (Anzahl) der Gebäude ab.
Aber generell sehe ich den Mehrnutzen als eher gering an.

Über wie viele Netzwerkdrucker reden wir? 5 -10.
Im Zweifel bindest Du alle ein.

Nur bei mehreren Gebäuden/Standorten ist es wirklich sinnvoll und dann reicht meist auch Benutzerspez.

Gruß L.

gelöst Frage VB for Applications Entwicklung

Mehr von retz12

CMD Programm User abfragenretz12 - 4 Kommentare

Downloads Butto funktioniert nichtretz12 - 8 Kommentare

Patch Putty AccessPoint rebootretz12 - 7 Kommentare

Startscript wird nicht ausgeführt!retz12 - 2 Kommentare

Heiß diskutiert