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

Nur Drucker löschen die in einer Domain sind Script

Frage Entwicklung

Mitglied: redzack

redzack (Level 1) - Jetzt verbinden

30.07.2010, aktualisiert 18.10.2012, 3665 Aufrufe, 6 Kommentare

Hallo Scripter,

mir worde hier ja schon sehr oft geholfen nun habe ich wiedermal ein Problem, hoffe mal das ihr mich nun auch nicht im Stich lässt

ich lösche wia Script alle Netzwerkdrucker

01.
Set objNetwork = WScript.CreateObject("WScript.Network") 
02.
Set objPrinters = objNetwork.EnumPrinterConnections 
03.
				For intLoop = 0 To objPrinters.Count - 1 
04.
				objNetwork.RemovePrinterConnection objPrinters.Item(intLoop),-1,-1
die Drucker sind alle auf ein Domainserver verbunden.

\\Server1.test.lokal\FreigabeDrucker

Nun möchte ich aber nur die Drucker löschen die auch tatsächlich in der Domain test.lokal Verbunden wurden löschen

Beispiel:

ein Client hat noch andere Drucker verbunden

\\Server1.test.lokal\FreigabeDrucker > diesen soll er löschen
\\CLient\Druckername > diesen nicht
\\192.168.1.1\Druckername > diesen auch nicht


ich hoffe ihr könnt mir weiterhelfen.

vielen Dank
Mitglied: noodyn
30.07.2010 um 09:43 Uhr
Überschrift enthält Fehler: Bitte entweder Domäne oder Domain, aber sicher nicht Domaine
Bitte warten ..
Mitglied: bastla
30.07.2010, aktualisiert 18.10.2012
Hallo redzack!

Sieh Dir mal LotPings hier gepostetes Script an - sollte sich entsprechend anpassen lassen ...

Grüße
bastla
Bitte warten ..
Mitglied: redzack
30.07.2010 um 10:35 Uhr
Hab ich bereits getestet

01.
Set objNetwork = WScript.CreateObject("WScript.Network") 
02.
				Set objPrinters = objNetwork.EnumPrinterConnections 
03.
				For intLoop = 0 to objPrinters.Count - 1 
04.
				If Left(objPrinters.Item(intLoop),9) = "\\Server1"  Then 
05.
						objNetwork.RemovePrinterConnection objPrinters.Item(intLoop),-1,-1
doch er löscht mir die Drucker nicht raus
Bitte warten ..
Mitglied: Biber
30.07.2010 um 11:01 Uhr
Moin redzack,

du hast doch aber sicherlich diese Schleife schon einmal mit einem "Wscript.echo objPrinters.Item(intLoop)" laufen lassen, hmm?

Ich verwette das Lieblingsfusskettchen meiner Lieblingspraktikantin, dass eventuell ein
     If LCase(Left(objPrinters.Item(intLoop),9)) = "\\server1" 
..das Problem stark relativiert.
Ansonsten poste doch die o.b. Ausgabe.

Grüße
Biber

P.S. Dass noch irgendwo ein "Next" und ein "Set objXXX = Nothing" folgt in dem Copy&Paste-Schnipsel nehme ich mal einfach als selbstverständlich an.
P.P.S: @bastla wg "Set objXXX=Nothing" --> Aber wenn die es sich nicht bei 5zeiligen Schnipsel angewöhnen, wie denn dann bei 5000 Zeilen?
Bitte warten ..
Mitglied: bastla
30.07.2010 um 13:28 Uhr
Hallo redzack!

Da ja nun VBS bei einfachen String-Vergleichen recht genau ist, vielleicht eher:
If LCase(Left(objPrinters.Item(intLoop),9)) = "\\server1"  Then
Grüße
bastla

P.S.:
@Biber
"Set objXXX = Nothing" sollte automatisch beim Scriptende erfolgen ...
Bitte warten ..
Mitglied: redzack
30.07.2010 um 22:00 Uhr
Ja die Groß und Kleinschreibung wars ;) hehe

danke
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Script nach Dateinamen löschen
gelöst Frage von KnuefiBatch & Shell19 Kommentare

Hallo mal wieder, ich versuche ein Script zu schreiben, das nach gewünschten Dateinamen in bestimten Ordner sucht und wenn ...

Entwicklung
Powershell Script zum löschen von Userprofilen
Frage von Thomas91Entwicklung10 Kommentare

Moinmoin, ich versuche mich gerade mal wieder am scripten mit Powershell. Meine Vorstellung waren: Nach Ausführen des Scriptes wird ...

VB for Applications
Script um Drucker als Standard zu definieren
gelöst Frage von Rabauke84VB for Applications6 Kommentare

Hallo zusammen, wir haben VMware View im Einsatz mit ZeroClients (OS Windows 7 Prof). Die User weisen sich daher ...

Windows Server
GPO vorhandene Drucker löschen
Frage von smartinoWindows Server4 Kommentare

Hallo zusammen, ich habe hier eine Terminalserverfarm und Roaming Profiles. Drucker weise ich per GPO bzw. Citrix-Richtlinie zu. Grundsätzlich ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 107 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless8 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Windows Server
Ping auf einen bestimmten Server nicht möglich
gelöst Frage von a.thierWindows Server7 Kommentare

Hallo, ich habe folgendes Problem. srv-dc1: Ping srv-nav > geht Ping srv-exchange > geht nicht srv-exchange: Ping srv-dc1 > ...