Top-Themen

Aktuelle Themen (A bis Z)

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, 8592 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
Netzwerkgrundlagen
Netzwerkordner in Drucker hinzufügen
Frage von NightmehrNetzwerkgrundlagen3 Kommentare

Guten Tag, ich habe ein Windows 10 System und einen Canon i2020 Drucker. Ich kann im Drucker ein Netzwerkpfad ...

Windows Installation
Drucker den Terminaluser hinzufügen
Frage von NicroshadeWindows Installation7 Kommentare

Guten Tag liebe Leute, ich wollte mal fragen, wie Ihr am besten vorgehen würdet. Und zwar haben wir einen ...

Entwicklung
VB Script Drucker hinzufügen
Frage von Marcel1989Entwicklung3 Kommentare

Funktionsweise sollte definitiv sein das mit einem Script sich 2 verschiedene Betriebssysteme ein und denselben Drucker holen. Mein Script ...

VB for Applications
VBS - Exceldatei öffnen, drucken und schließen
gelöst Frage von KyrinjaVB for Applications8 Kommentare

Hallöle, ich habe da ein Problemunzwar will ich mehrere Exceldateien nacheinander öffnen jeweils mit dem aktuellen Monatsnamen als Arbeitsblatt. ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 1 TagApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 1 TagWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 1 TagWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Kein Bild mit nur einer bestimmten Grafikkarten - Mainboard Konfiguration
gelöst Frage von bestelittHardware18 Kommentare

Hallo zusammen, ich hatte schon einmal eine ähnliche Frage gestellt. Damals hatte ich genau das gleiche Problem. Allerdings lies ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement16 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...