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

Per VBScript den Druckernamen eines Netzwerkdruckers ändern

Frage Entwicklung VB for Applications

Mitglied: okoester

okoester (Level 1) - Jetzt verbinden

19.08.2011, aktualisiert 15:02 Uhr, 4621 Aufrufe, 6 Kommentare

Hallo,

Ich hoffe, meine Frage gehört hier hin, da es sich eigentlich um eine Frage zu VBScript handelt.

Ich schreibe gerade an einem Logon-Script in VBS. Dort werden unter anderem Drucker und Laufwerke zugewiesen.

Ich möchte nun auch den Netzlaufwerken und den Netzwerkdruckern einen Namen zuweisen. Bei den Laufwerken mache ich das so:

objWshShellApp.NameSpace(strMyDriveLetter).Self.Name = strMyName
Dies klappt auch sehr gut.

Nun möchte ich dies auch für die Netzwerkdrucker umsetzen:

objWshShellApp.NameSpace(strUNCPrinter).Self.Name = strPrinterName
klappt aber so nicht. (strUNCPrinter sieht etwa so aus: "\\SERVER\DRUCKERFREIGABENAME")

Geht das überhaupt so einfach?
Spreche ich den Drucker überhaupt richtig an?

Gruß
Olaf
Mitglied: dog
19.08.2011 um 20:59 Uhr
Spreche ich den Drucker überhaupt richtig an?



Geht das überhaupt so einfach?

Hast du es schonmal im Explorer geschafft einen Netzwerkdrucker umzubenennen?

Anders gesagt: Nein, geht nicht. Ist nur über einen doofen Umweg möglich.
Bitte warten ..
Mitglied: MonoTone
22.08.2011 um 11:33 Uhr
Also,

die Frage ist, was möchtest du genau ändern.
Ich gehe mal davon aus, das du nicht den Druckernamen an sich ändern willst, sondern den Anzeigenamen des Druckers am Client.

Und das geht sehr wohl (auch über den Explorer) über die Shell

Hier ein kleines Beispiel, welches du natürlich für deine Zwecke anpassen musst
01.
Dim d 
02.
Dim N, colItems, objItem 
03.
Set d = CreateObject("Shell.Application") 
04.
' Namespace 4: 	Drucker und Faxgeräte 
05.
Set N = d.NameSpace(4) 
06.
'Alle Objekte auflisten (genau wie im Explorer :D), sprich auch Drucker hinzufügen ist dabei 
07.
Set colItems = N.Items 
08.
For Each objItem in colItems 
09.
'Einfach alle anzeigen 
10.
   WSH.Echo objItem.Name 
11.
'-- Beispiel, Drucker mit dem Namen  
12.
   If objItem.Name = "MFC-7440N auf mein-netzwerk-printserver" Then 
13.
'-- wird umbenannt 
14.
    objItem.Name = "MFC" 
15.
   End If 
16.
Next
Bitte warten ..
Mitglied: okoester
22.08.2011 um 12:14 Uhr
Hallo MonoTone,

das klingt schon mal sehr gut. Ich möchte natürlich den Anzeigenamen ändern. Das war etwas schwammig ausgedrückt.
Aber nach so einer Lösung suchte ich. Nur war mein Ansatz wohl falsch

Ich denke, aus Deiner Lösung kann ich extrahieren, was ich brauche.

Danke!
Bitte warten ..
Mitglied: MonoTone
22.08.2011 um 16:02 Uhr
Solche Antworten sind natürlich extrem hilfreich.

Haltung..arrogant
Hinweise...Null
Nutzfaktor..Null

Zusammengefassung deiner Antwort..
Du machst es falsch, es geht irgendwie total doof und anders.

Offensichtlich sammelst du einfach nur Beiträge..
Bitte warten ..
Mitglied: dog
22.08.2011 um 16:52 Uhr
Vielleicht solltest du dich erstmal ein bisschen hier umschauen, bevor du andere User anpöbelst, die schon wesentlich länger dabei sind.
Oh und vielleicht hättest du deinen Code auch mal testen sollten.
Dann hättest du nämlich gemerkt, dass man keine Netzwerkdrucker unter Windows umbenennen kann!

Vielleicht kennst du aber einfach nicht den Unterschied zwischen einem Netzwerkdrucker und einem Lokalen Drucker mit Netzwerkport?

Ich habe mich lange genug mit dem Thema beschäftigt und meine Antwort hat die Frage eindeutig beantwortet.

Sei doch so nett und erspare uns demnächst solche überflüssigen Kommentare!
Bitte warten ..
Mitglied: okoester
06.09.2011 um 10:38 Uhr
Hallo MonoTone,

die Idee war gut. Ich habe sie auch soweit umsetzen können, dass sie für meine Zwecke fast funktioniert. Fast deswegen, weil leider die Änderung des Namens selbst nicht zulässig ist.

01.
objItem.Name = "MFC"
geht leider nicht. "Operation für dieses Objekt nicht zulässig" (oder so ähnlich)...

Trotzdem Danke. Wissen, dass etwas nicht geht, ist ja auch was...

Mfg Olaf
Bitte warten ..
Ähnliche Inhalte
Windows Server
Lange Druckernamen seit Upgrade auf Windows 10 (2)

Frage von Gwahlers zum Thema Windows Server ...

VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

Windows Server
gelöst Druckername wird nicht mit dem Freigabenamen angezeigt (7)

Frage von Chelios zum Thema Windows Server ...

Windows 7
gelöst VBScript - HTML Probleme mit Schriftgröße (5)

Frage von MedicalAd zum Thema Windows 7 ...

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 ...

Router & Routing
FTTH bzw FTTB Router (13)

Frage von ukulele-7 zum Thema Router & Routing ...