Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 6874 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 Server
User aus Gruppe auslesen mit Powershell (4)

Frage von KEFHVDI zum Thema Windows Server ...

Batch & Shell
gelöst Mitglieder aus mehreren AD Gruppen mit PowerShell auslesen (2)

Frage von Stefan007 zum Thema Batch & Shell ...

Windows Server
Gruppen Rechtlinien (5)

Frage von Daoudi1973 zum Thema Windows Server ...

Neue Wissensbeiträge
Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Erkennung und -Abwehr

Infineon TPMs unsicher! Bitlocker ggf. angreifbar

(4)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Firewall

PfSense Repository für Version 2.3.x

(6)

Information von Dobby zum Thema Firewall ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...