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

VBScript Leere Gruppen und ein Anmeldescript (Fehler beim Auslesen der Gruppe)

Frage Entwicklung VB for Applications

Mitglied: novae7

novae7 (Level 1) - Jetzt verbinden

30.10.2009 um 10:28 Uhr, 6883 Aufrufe, 2 Kommentare

Ich bin im Moment dabei ein Anmeldescript (um)zu schreiben das die Drucker für bestimmte Gebäude automatisch verbunden werden..... da gibts aber ein kleines problem...

Mahlzeit..

ich hab bei einem VB Script folgendes Problem:

Ich frage in folgendem Code die Gruppen im AD ab und verbinde anhand dessen die Drucker.
Funktioniert auch soweit... allerding nur! wenn in jeder Gruppe mindestens ein Nutzer ist?!

Das Codesegment kommt mehrere male vor mit entsprechender anpassung an die Drucker und Gebäude...

01.
  
02.
' ========= Prüfung Gruppenmitgliedschaft - Haus 1B - und Drucker verbinden ======== 
03.
Set objGroup = GetObject("LDAP://cn=Drucker_Geb1b,dc=XXX,dc=lokal") 
04.
objGroup.GetInfo 
05.
arrMemberOf = objGroup.GetEx("member") 
06.
For Each strMember in arrMemberOf 
07.
	WScript.Echo "Mitglied der Gruppe ==> " & strMember  
08.
	Set objUser = GetObject("LDAP://" & strMember & "") 
09.
	objUser.GetInfo 
10.
	If strUser = Lcase(objUser.Get("sAMAccountName")) then 
11.
		Wscript.Echo "Aktueller Nutzer ist ==> " & strUser 
12.
		objNetwork.AddWindowsPrinterConnection "\\x.x.x.x\drucker1" 
13.
		Wscript.Echo "Drucker 1B verbunden " 
14.
	End If 
15.
Next

Der Code Funktioniert wie gesagt.. nur wenn eine Gruppe Leer ist verbindet er die Drucker anstatt die zu Überspringen...
Einen Dummyuser anlegen und in die Gruppen packen funktioniert zwar aber die "Lösung" sehe ich nur als letzte Alternative...

Irgendwelche ideen? ;)

Wäre für Tipps dankbar!

(Zur Info bin VB-anfänger... alles so halb zusammengeschustert das es Funktioniert ;))

Grüße
Novae7
Mitglied: 76109
30.10.2009 um 12:56 Uhr
Hallo novae7!

So was, wie das hier sollte Dir helfen:
01.
Set Obj = .... 
02.
If Obj Is Nothing Then  
03.
bzw. 
04.
If Not Obj Is Nothing Then
Gruß Dieter
Bitte warten ..
Mitglied: novae7
04.12.2009 um 09:36 Uhr
Sry für die Lange "abwesendheit" ;)

Klappt einwandfrei!

danke!

edit:

ok bei der einen schleife passts ;)
wenn ich die aber mehrere male hinter einander hänge und zwischendurch eine gruppe "positiv" ist funktionieren die danach nichmehr..

naja anderen thema ;)
(habs gelöst indem ich die abfrage variable einfach durchnummeriere...)
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung
AD Gruppen User auslesen
Frage von pgWindows Userverwaltung1 Kommentar

Guten Tag, ich bin auf der Suche nach einem Programm welches mit die User eines AD ausliest und mir ...

Windows Server
User aus Gruppe auslesen mit Powershell
Frage von KEFHVDIWindows Server4 Kommentare

Hallo, ich benötige Hilfe. Ich bin leider nicht sehr begabt mit der Powershell. Ich muss alle User aus einer ...

Java
Jaspersoft iReport Seitenumbruch am Ende der Gruppe erzeugen leere Seite vor der Gruppe
Frage von RalfHackmannJava

Hallo, wir setzen Jaspersoft IReport 5.2.0 ein, um Belege aus unserem ERP Sytem zu erstellen die erste Gruppe der ...

Batch & Shell
AD: Alle Gruppenmitgliedschaften von Benutzern auslesen, die in einer Gruppe sind
Frage von tiemunBatch & Shell1 Kommentar

Hallo zusammen, ich komme gerade nicht weiter. Ich habe eine Gruppe aus der ich alle Benutzer auslese: Get-ADGroupMember "Gruppe" ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 2 StundenViren und Trojaner

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 6 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server15 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell10 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Windows Server
Administratoren-Gruppe abfragen?
Frage von 1410640014Windows Server6 Kommentare

Hallo, kennt jemand eine einfache (und schnelle) Möglichkeit, von allen Client-Computern im Active Directorey die Administratoren-Gruppe abzufragen, wer da ...