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

Drucker über Subnetz mit VBS Script verbinden

Frage Entwicklung VB for Applications

Mitglied: Barney123

Barney123 (Level 1) - Jetzt verbinden

14.07.2011, aktualisiert 11:18 Uhr, 4428 Aufrufe, 8 Kommentare

Guten Tag! Ich hoffe ich hab für das Thema das richtige Unterforum ausgewählt.
Für Antworten bedanke ich mich schonmal im vorraus!

Ich brauch ein Script das anhand eines Subnetz bestimmte Drucker verbindet.
Mit dem Script von unten verbindet er zwar die Drucker, dabei ist es aber egal was für eine IP man eingibt.
Wir haben mehrere Standorte.
Er sollte sich z.B. anhand des Subnetzes z.B. 192.168.49.XXX bestimmte Drucker verbinden!
Andere Löungen(OU's usw) sind nicht möglich.



on error resume next

Set WshNetwork = CreateObject("WScript.Network")


If WshNetwork.IPConfig.IPAddress = "192.168.49.175" then
WshNetwork.AddWindowsPrinterConnection "\\cad\HP Color LaserJet CP2025 64bit (HV) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\HP Designjet 500 64bit (HV_3R81) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\HP Designjet 500 64bit (HV_4R26) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\KONICA MINOLTA C352 64bit (HV_3R81) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\KONICA MINOLTA C352 64bit (HV_EG) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\KONICA MINOLTA C360 64bit (HV_EG) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\Oce TCS500 Colour 64bit (HV) Print CAD"
end if
Mitglied: AndreasHoster
14.07.2011 um 12:19 Uhr
Ok, das Skript funktioniert nicht wie erwartet.
Nicht schlimm, kann passieren.

Aber einfach die Fehlerbehandlung abzuschalten, so daß man keine Fehler sieht und dann, weil es nicht so tut wie erwartet, einfach im Forum fragen, was nicht tut, ist etwas ... frech

Nimm die Zeile
01.
on error resume next
raus, schau Dir die Fehlermeldung an, denke ein bischen nach, dann gehts möglicherweise weiter.
Bitte warten ..
Mitglied: Barney123
14.07.2011 um 12:45 Uhr
Sorry mein Fehler!

Nach entfernen der Zeile, bringt er mir jetzt die Fehlermeldung. Das Objekt unterstützt diese Eigenschaft oder
Methode nicht: 'WshNetwork.IPConfig'

Ich steh grad echt aufm Schlauch.
Bitte warten ..
Mitglied: 64748
14.07.2011 um 12:59 Uhr
Hallo Barney123,

das Problem ist, dass Du auf diese Weise die IP-Adresse des Rechners nicht abfragen kannst.

Ein weiteres Problem sehe ich wenn es darum geht, das Subnetz herauszufinden.

Ich habe in meinen Domänen auch so ein Skript, aber ich prüfe die Computernamen. Also es sind 3 Räume, EDV1, EDV2, usw. und die Computer tragen entsprechende Namen, z.B. EDV1-05. Ich lesen den Computernamen mit VB aus
01.
compname = WshNetwork.Computername
sollte funktionieren und dann teste ich
01.
If left(compname,4) = "EDV1" Then 
02.
      ...
Das funktioniert bei uns einwandfrei.
Evtl. empfiehlt es sich, die Druckerzuordnung bei der Abmeldung des Benutzers wieder zu löschen.

Markus
Bitte warten ..
Mitglied: Barney123
14.07.2011 um 13:07 Uhr
Wir haben 8 Standorte die alle verschiedene Subnetze verwenden.
z.b

Standort 1: 192.168.49.XXX
Standort 2: 192.168.50.XXX
usw.

kann man nicht irgendwie die IP Adresse des Clients auslesen, und dann die entsprechenden Drucker verbinden.
Mit dem unten angegebenen bringt er auch keine Fehlermeldung, trotzdem passiert nix.
Das gleiche wenn ich anstatt der IP den Namen eingebe.


Set WshNetwork = CreateObject("WScript.Network")




if WshNetwork.computername = "192.168.49.174" then
WshNetwork.AddWindowsPrinterConnection "\\cad\HP Designjet 500 64bit (HV_3R81) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\HP Designjet 500 64bit (HV_4R26) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\KONICA MINOLTA C352 64bit (HV_3R81) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\KONICA MINOLTA C352 64bit (HV_EG) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\KONICA MINOLTA C360 64bit (HV_EG) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\Oce TCS500 Colour 64bit (HV) Print CAD"
WshNetwork.AddWindowsPrinterConnection "\\cad\_HV-1OG-3R23__HP 2025"
end if
Bitte warten ..
Mitglied: AndreasHoster
14.07.2011 um 13:26 Uhr
Das bedeutet, daß IPConfig nicht im Objekt WSHNetwork existiert. Damit kann man es auch nicht abfragen.
Und ganz so einfach ist es eh nicht, weil ein PC mehrere IP-Adressen haben kann.
Hier ein Beispiel, mit dem man über alle Netzwerkkarten-Konfigurationen im Rechner iteriert:
01.
	Set wmiobj = GetObject("winmgmts://localhost/root/cimv2:Win32_NetworkAdapterConfiguration") 
02.
	ID = 1 
03.
	For Each ipa In wmiobj.Instances_ 
04.
 		t = ipa.IPAddress 
05.
 		If Not IsNull(t) Then 
06.
    		    REM Hier eintragen, was man mit der IP Adresse machen will.		 
07.
 		End If 
08.
	Next
Bitte warten ..
Mitglied: 64748
14.07.2011 um 13:27 Uhr
Hallo nochmal,

ja klar, wenn's so eindeutig ist, dass Du die Subnetze am dritten Oktett der IP-Adresse unterscheiden kannst, dann brauchst Du ja nur dieses.

Allerdings habe ich jetzt schon eine Weile gesucht, eine einfache Lösung die IP-Adresse auszulesen scheint es nicht zu geben (also was mit wenigen Zeilen).

Viel Glück

Markus
Bitte warten ..
Mitglied: Barney123
15.07.2011 um 08:30 Uhr
Ok, scheint woll nicht so einfach zu sein!

Ich habs jetzt so gelöst.
Für jeden Standort ein eigenes VBScript.
Da die Rechner selten den Standort ändern liegen diese Scripts aufm Server und müssen bei einem Standort einfach händisch betätigt werden.

Aber trotzdem Danke für Eure Antworten
Bitte warten ..
Ähnliche Inhalte
LAN, WAN, Wireless
Drucker in anderem Subnetz
Frage von schnedderedengLAN, WAN, Wireless15 Kommentare

Hallo Forum, wie kriege ich es hin, dass ich aus dem Netz: 192.168.178.x 255.255.255.0 Gateway: 192.168.178.1 einen WLAN-Netzwerk-Drucker: IP: ...

Switche und Hubs
2 Subnetze verbinden
gelöst Frage von 117109Switche und Hubs6 Kommentare

Hallo Leute, wie verläuft es, wenn ich 2 Subnetze via switch (reiner Layer 2 Switch) miteinander verbinden möchte. Funktioniert ...

Windows Netzwerk
Ein Drucker in anderem Subnetz nicht erreichbar
Frage von aRanIoNWindows Netzwerk15 Kommentare

Hallo zusammen, ich plage mich momentan mit einem Citizen CL-S521 mit optional eingebauter Netzwerkkarte rum. Wir haben ein Subnetz ...

Windows 7
Drucker in 2 verschiedene Subnetzen.
Frage von s-n-e-jWindows 728 Kommentare

Hallo, mich beschäftigt folgendes Problem. In meinem Netzwerk befinden sich 4 PC's, jeweils 2 davon im gleichen Subnetz. Das ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 35 MinutenMac OS X

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser ereichbar sind. Leider fehlt ...

Datenschutz

Weitere Inforamtionen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 7 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 8 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 12 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1017 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...