Frage Entwicklung VB for Applications
gelöst Drucker über Subnetz mit VBS Script verbinden

14.07.2011, aktualisiert 11:18 Uhr, 4509 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

8 Antworten

LÖSUNG AndreasHoster schreibt am 14.07.2011 um 12:19:07 Uhr
- LÖSUNG Barney123 schreibt am 14.07.2011 um 12:45:41 Uhr
  - LÖSUNG 64748 schreibt am 14.07.2011 um 12:59:04 Uhr
    - LÖSUNG Barney123 schreibt am 14.07.2011 um 13:07:17 Uhr
      - LÖSUNG 64748 schreibt am 14.07.2011 um 13:27:45 Uhr
  - LÖSUNG AndreasHoster schreibt am 14.07.2011 um 13:26:21 Uhr
    - LÖSUNG Barney123 schreibt am 15.07.2011 um 08:30:49 Uhr
      - LÖSUNG DevTig schreibt am 22.07.2011 um 22:55:31 Uhr

AndreasHoster (Level 3) - Jetzt verbinden

LÖSUNG 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

on error resume next01.
on error resume next

raus, schau Dir die Fehlermeldung an, denke ein bischen nach, dann gehts möglicherweise weiter.

Barney123 (Level 1) - Jetzt verbinden

LÖSUNG 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.

64748 (Level 2)

LÖSUNG 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

compname = WshNetwork.Computername01.
compname = WshNetwork.Computername

sollte funktionieren und dann teste ich

If left(compname,4) = "EDV1" Then
      ...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

Barney123 (Level 1) - Jetzt verbinden

LÖSUNG 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

AndreasHoster (Level 3) - Jetzt verbinden

LÖSUNG 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:

	Set wmiobj = GetObject("winmgmts://localhost/root/cimv2:Win32_NetworkAdapterConfiguration")
	ID = 1
	For Each ipa In wmiobj.Instances_
 		t = ipa.IPAddress
 		If Not IsNull(t) Then
    		    REM Hier eintragen, was man mit der IP Adresse machen will.		
 		End If
	Next01.
	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

64748 (Level 2)

LÖSUNG 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

Barney123 (Level 1) - Jetzt verbinden

LÖSUNG 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

DevTig (Level 1) - Jetzt verbinden

LÖSUNG 22.07.2011 um 22:55 Uhr

Hi,

Versuchs mal hiermit VBS - Drucker von Printserver via Script installieren

Frage Entwicklung VB for Applications

Ähnliche Inhalte

Vbs Script Hilfe

gelöst Frage von Dr.CornwallisVB for Applications3 Kommentare

Liebe Gemeinde, hat von euch zufällig jemand ein VBs Script das folgendes o.ä macht: Das Script wird per GPO ...

Hilfe Bei einem vbs Script

gelöst Frage von Hattori-HanzoBatch & Shell19 Kommentare

Hey Leute Könnt ihr mir bitte sagen was daran falsch ist? beschäftige mich erst seit kurzem mit vbs scripts. ...

VBS Script in Powershell aufrufen

gelöst Frage von HanutaEntwicklung7 Kommentare

Hallo Zusammen, ich möchte einen VBS Script in Powershell aufrufenist das überhaupt möglich ? Wenn ja, wie ? VG ...

VBS Script kann Prgramm nicht starten

gelöst Frage von C.BoernerVB for Applications15 Kommentare

Hallo ihr Admins, Ich habe folgendes Scenarios ein Programm läuft im Hintergrund (Drivve-Image) das übergibt Werte an ein VBS ...

Neue Wissensbeiträge

Cisco Mikrotik VPN Standort Vernetzung mit dynamischem Routing

Anleitung von aqui vor 3 StundenLAN, WAN, Wireless

1. Allgemeine Einleitung Das nachfolgende Tutorial ist eine Fortführung der hier bei Administrator.de schon bestehenden VPN Tutorials und beschreibt ...

Support für Windows Mobile endet im Dezember 2019

Information von transocean vor 1 TagWindows Mobile

Moin, Microsoft empfiehlt als Alternative den Umstieg auf iOS oder Android, wie man hier lesen kann. Gruß Uwe

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 3 TagenInternet5 Kommentare

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Information von kgborn vor 3 TagenWindows 101 Kommentar

Nur ein kurzer Hinweis für Admins, die Windows 10-Clients im Portfolio haben. Mit den Updates vom 8. Januar 2019 ...

Heiß diskutierte Inhalte

Temporäre WLAN Verbindung für AD-Login

Frage von Christian.WidauerLAN, WAN, Wireless15 Kommentare

Hallo zusammen, ich weiß leider nicht unter welchem Begriff ich dafür suchen muss, daher habe ich bisher leider nichts ...

Bekannte Drosselungen bei Providern ?

Frage von HenereLAN, WAN, Wireless15 Kommentare

Servus zusammen, in bereits angefangen, aber ich hoffe dass der Beitrag hier mehr Informationen bringt. Sind Portdrosselungen bzw gezielte ...

Reverse Proxy für TCP und UDP Anfragen

gelöst Frage von flxklsNetzwerkmanagement14 Kommentare

Hallo zusammen, ich besitze einen Rootserver, der nur eine öffentliche IP besitzt und auf dem mehrere VMs laufen. Da ...

Server bauen

Frage von JugendringNetzwerkmanagement11 Kommentare

Moin Moin, wir, der Jugendring sind ein ständig wachsender Verein mit vielen Unterprojekten. Da liegt es nah, dass wir ...

Frage Entwicklung VB for Applications gelöst Drucker über Subnetz mit VBS Script verbinden

14.07.2011, aktualisiert 11:18 Uhr, 4509 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!

Cisco Mikrotik VPN Standort Vernetzung mit dynamischem Routing

Support für Windows Mobile endet im Dezember 2019

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Frage Entwicklung VB for Applications
gelöst Drucker über Subnetz mit VBS Script verbinden

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