Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBS Drucker hinzufügen PC bezogen

Frage Entwicklung VB for Applications

Mitglied: retz12

retz12 (Level 1) - Jetzt verbinden

07.07.2008, aktualisiert 13:57 Uhr, 8563 Aufrufe, 6 Kommentare

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:
01.
********************************************** 
02.
' * Funktion:		Remove Printer 
03.
' * Beschreibung:	Entfernt alle Drucker 
04.
' * Rückgabe:		<keine> 
05.
' ********************************************** 
06.
 
07.
' *** Löschen der Druckerverbindungen *** 
08.
 
09.
On Error Resume Next 
10.
	PrinterPath = "\\s01\Drucker1" 
11.
	WshNetwork.RemovePrinterConnection PrinterPath, true, true 
12.
	PrinterPath = "\\s01\Drucker2" 
13.
	WshNetwork.RemovePrinterConnection PrinterPath, true, true 
14.
	PrinterPath = "\\s01\Drucker3" 
15.
	WshNetwork.RemovePrinterConnection PrinterPath, true, true 
16.
	If Err.Number <> 0 Then 
17.
		Err.Clear 
18.
	End If 
19.
	 
20.
' ********************************************** 
21.
' * Funktion:		Map Printer 
22.
' * Beschreibung:	Mapped Alle Drucker und definiert Standard 
23.
' * Rückgabe:		<keine> 
24.
' ********************************************** 
25.
 
26.
' *** Herstellen der Druckerverbindungen *** 
27.
 
28.
On Error Resume Next 
29.
	WshNetwork.AddWindowsPrinterConnection "\\s01\Drucker1" 
30.
	WshNetwork.AddWindowsPrinterConnection "\\s01\Drucker2" 
31.
	WshNetwork.AddWindowsPrinterConnection "\\s01\Drucker3" 
32.
	If Err.Number <> 0 Then 
33.
		Err.Clear 
34.
	End If 
35.
	 
36.
	 
37.
' *** Standard-Drucker definieren 
38.
	 
39.
	WSHNetwork.SetDefaultPrinter "\\s01\Drucker2" 
40.
	If Err.Number <> 0 Then 
41.
		Err.Clear 
42.
	End If
Mitglied: Logan000
07.07.2008 um 11:32 Uhr
Moin

So in etwa kann das gehen:
01.
Set WSHNetwork = WScript.CreateObject("WScript.Network") 
02.
WORKSTATION = WSHNetwork.ComputerName 
03.
 
04.
If WORKSTATION  ="PCxy" THEN 
05.
    ' *** Hier Drucker für PCxy verbinden 
06.
End if
Gruß L.
Bitte warten ..
Mitglied: retz12
07.07.2008 um 12:21 Uhr
und wenn ich dann mehrere PCs habe. Ich habe z.b. 10 PCs.
Frage ich die alle mit if ab.

so in etwa!
01.
Set WSHNetwork = WScript.CreateObject("WScript.Network")  
02.
WORKSTATION = WSHNetwork.ComputerName  
03.
 
04.
If WORKSTATION  ="PC01" THEN  
05.
 ' *** Hier Drucker für PCxy verbinden  
06.
 
07.
If WORKSTATION  ="PC02" THEN  
08.
 ' *** Hier Drucker für PCxy verbinden  
09.
 
10.
If WORKSTATION  ="PC03" THEN  
11.
 ' *** Hier Drucker für PCxy verbinden  
12.
End if
oder geht es anders?
Bitte warten ..
Mitglied: Logan000
07.07.2008 um 12:36 Uhr
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.
Bitte warten ..
Mitglied: retz12
07.07.2008 um 13:27 Uhr
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

01.
Set WSHNetwork = WScript.CreateObject("WScript.Network")  
02.
WORKSTATION = WSHNetwork.ComputerName  
03.
 
04.
If WORKSTATION  ="PC01" THEN  
05.
 ' *** Hier Drucker für PCxy verbinden  
06.
 
07.
else WORKSTATION  ="PC02" THEN  
08.
 ' *** Hier Drucker für PCxy verbinden 
Funktioniert das so auch?
Bitte warten ..
Mitglied: 60730
07.07.2008 um 13:51 Uhr
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:
01.
if ingroup "drucker1" 
02.
    Shell "cscript drucker1.vbs //nologo" 
03.
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
Bitte warten ..
Mitglied: Logan000
07.07.2008 um 13:57 Uhr
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.
Bitte warten ..
Ähnliche Inhalte
Windows Server
GPO um zu verhindern, dass User freigegebene Drucker hinzufügen? (2)

Frage von eastfrisian zum Thema Windows Server ...

Netzwerkgrundlagen
Netzwerkordner in Drucker hinzufügen (3)

Frage von Nightmehr zum Thema Netzwerkgrundlagen ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

Windows Server
gelöst Druckertreiber dem Druckserver hinzufügen mit den Scannertreiber (6)

Frage von M.Marz zum Thema Windows Server ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (16)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Exchange Server
Apple Mail mit Exchange 2010 verbinden (12)

Frage von DieAzubinne zum Thema Exchange Server ...