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, 8521 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Netzwerkgrundlagen
Netzwerkordner in Drucker hinzufügen (3)

Frage von Nightmehr zum Thema Netzwerkgrundlagen ...

Windows 10
Windows 10 Drucker hinzufügen nicht möglich (1)

Frage von Greygor1995 zum Thema Windows 10 ...

Outlook & Mail
Signatur im HTML Format zu VBS Scribt hinzufügen (2)

Frage von Galipoli zum Thema Outlook & Mail ...

Netzwerkgrundlagen
gelöst Freigegebener USB-Drucker einer anderen Domäne hinzufügen (9)

Frage von ZuKreativFuerNamen zum Thema Netzwerkgrundlagen ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

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

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...