Admins-Tipps.net - Tipps und Tricks rund um die EDV

arrow Microsoft arrow Windows Scripting Host arrow VBScript zum Verbinden aller Drucker in der OU des Users
Tipps und Tricks
Algin Technology
BSD/Linux/UNIX
Citrix
Clearswift
Fenestrae
Hewlett Packard
Microsoft
Novell
VMWare
Admins-Projekte
VMWare Backup
Net-Inventory
Tutorials
Linux
Microsoft
Unattended Install
Glossar & Co
Glossar
Status-Codes
Standard Windows SIDs
TCP/UDP Ports
Sonstiges
Admins-Blog
Admins Forum
Downloads

Login

RSS Feed

admins_icon.JPG  in Google-Toolbar


Partner-Sites

www.Admins-Tipps.net
www.Hosting-Tipps.net
www.DSL-Tipps.net
www.Webmaster-Tipps.net

Logo sponsored by MISCO 100x36pixel



Home | Forum | Blog | Downloads | Impressum | Sitemap | Hilfe / FAQ

VBScript zum Verbinden aller Drucker in der OU des Users Drucken E-Mail
Benutzer Bewertung: / 3
SchlechtSehr Gut 
Geschrieben von Stefan Mrosek   

Das automatisierte Zuweisen von Druckern zu den Nutzern ist eine knifflige Angelegenheit. Wie stellt man sicher, das die Nutzer auch Ihren Drucker zugewiesen bekommen ?

In einem gut strukturierten Active Directory ist dies mit Hilfe dieses VBScripts möglich. Das Script verbindet alle in der selben OU des Nutzers befindlichen Drucker zu dessen Workstation.

Damit dies funktioniert müssen natürlich die Drucker-Objekte im Active-Directory vom entsprechenden Druckserver in die OU des Nutzers verschoben werden.  Am einfachsten findet man die Drucker mit der Find-Funktion. (Als Objekt-Typ Drucker auswählen und auf Jetzt Suchen klicken) Dann können die Drucker-Objekte mit Rechtsklick und Move in die gewünschte OU verschoben werden.

Das Script

 
' ***************************************************
'
' VBScript generated by SystemScripter 5.0
' www.scriptinternals.de
'
' Authoren: N. Fehlauer
'            Stefan Mrosek
' Date:   09. März 2005
' Version: 1.0
'
' Diese Subroutine verbindet alle im aktuellen Context
' des Nutzers im AD liegenden Drucker zur Workstation
' Die Treiber werden installiert. Es wird kein Standard-
' Drucker zugewiesen.
' ***************************************************

'* Benötigte Deklarationen
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)
Set objOU = GetObject(objUser.parent)

'* Aufruf der Subroutine
Call Submapprinter

'* Die Routine
Sub Submapprinter()
 objOU.Filter=Array("printqueue")
 For Each oPq In objOU
  wshNetwork.AddWindowsPrinterConnection oPq.PrinterPath
 Next
End Sub

 

 



 Download drucker_in_userOU_connecten.ZIP
Dateititel:drucker_in_userOU_connecten.ZIP (Details)
Dateityp:zip
Dateiversion:1.0
Dateigröße:0.77Kb
Datei Autor:
Datei Homepage:http://www.admins-tipps.de/Microsoft/Windows_Scripting_Host_%28WSH%29/_VBScript_zum_Verbinden_aller_Drucker_in_der_OU_des_Users.htm
Downloads:327
Bewertung: (2 Stimmen)
Deine Stimme:


Zu Favoriten hinzufügen (184) | Artikel zitieren | Aufgerufen: 8869

  Artikel kommentieren
RSS Kommentare

Nur registrierte Benutzer können Kommentare schreiben.
Bitte melden Sie sich an oder registrieren Sie sich.

Powered by AkoComment Tweaked Special Edition v.1.4.6
AkoComment © Copyright 2004 by Arthur Konze - www.mamboportal.com
All right reserved

Letzte Aktualisierung ( Donnerstag, 10 März 2005 )
 
< zurück   weiter >

Admins-Tipps.net - Tipps und Tricks rund um die EDV und
Hosting-Tipps.net - Der Preis-Leistungs-Vergleich der Webhoster
sind Projekte von Stefan Mrosek (c) 2007