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

Eingelese Objekte überprüfen in VBScript

Frage Entwicklung VB for Applications

Mitglied: Wolfroc

Wolfroc (Level 1) - Jetzt verbinden

30.07.2007, aktualisiert 06.08.2007, 4135 Aufrufe, 1 Kommentar

Hallo,

vorweg möchte ich erwähnen, das ich noch ein Anfänger bin was Scripting betrifft. Ich muss ein Script schreiben welches bei allen Benutzern in der Domäne das Feld "Company" füllt. In den Grundzügen habe ich das Script auch bereits fertig, nur ergeben sich für mich 2 abschliessende Probleme: Mein Script nimmt alle Objekte (Benutzer als auch Gruppen) und versucht das Feld Company zu befüllen es soll aber nur die Benutzer "anfassen" und mein 2. Problem ist, wie kann ich das Script so umbauen, dass es wahllos alle OUs auf dem Server durchsucht und nicht nur die Standard OU "Users"?
Um nur die Benutzer anzufassen, habe ich mir überlegt eine If-Bedingung in die FOR-Schleife einzubauen, allerdings weiß ich nicht wie ich überprüfen kann ob das momentane Objekt ein User ist.

So sieht mein Script bisher aus:

Code
On Error Resume Next

Const vCompany = "MusterCompany"*
Set objRootLDAP = GetObject("LDAP://rootDSE")
strDNSDomain = objRootLDAP.Get("defaultNamingContext")
Set objContainer = GetObject("LDAP://cn=Users," & strDNSDomain)
Set ou = GetObject ("LDAP://test.test.de/CN=Users, dc=test, dc=test, dc=de")

For Each obj In ou

If obj
obj.Put "company", vCompany
obj.SetInfo
WScript.Echo obj.samAccountName & VbCrLf & obj.company
*

Next
Code

*) Handelt sich an der Stelle nur um ein Beispiel.
) Das Script läuft momentan noch auf einer Testdomäne, daher auch der komische LDAP-Pfad.
*) Das WScript ist zu Debugg-Zwecken drin.

Vielen Dank an alle die Antworten!

Mit freundlichen Grüßen

Wolfi
Mitglied: bastla
06.08.2007 um 13:14 Uhr
Hallo Wolfroc!

Ein Beispiel, wie alle OU rekursiv nach Usern abgegrast werden können, findest Du zB hier: http://www.codeproject.com/useritems/Disable_Stale_AD_Users.asp (siehe Functions "EnumOUs" und "EnumUsers").

Alternativ dazu könntest Du folgende Vorgangsweise versuchen: Zunächst eine Abfrage mit entsprechendem Filter, um für die User DN und sAMAccountName zu erhalten, und dann jedes passende User-Objekt (im Beispiel unten werden Computerkonten, die OU "Users" und 2 einzelne User ausgespart) einzeln aufrufen:
01.
Const vCompany = "MusterCompany" 
02.
 
03.
Set adoConnection = CreateObject("ADODB.Connection") 
04.
Set adoCommand = CreateObject("ADODB.Command") 
05.
adoConnection.Provider = "ADsDSOOBject" 
06.
adoConnection.Open "Active Directory Provider" 
07.
Set adoCommand.ActiveConnection = adoConnection 
08.
 
09.
Set objRootDSE = GetObject("LDAP://RootDSE") 
10.
strDNSDomain = objRootDSE.Get("DefaultNamingContext") 
11.
'Abfrage auf User beschränken ... 
12.
strFilter = "(objectClass=user)" 
13.
'... und gewünschte Felder festlegen (sowie "subtree" für alle (Unter-)OU) 
14.
strQuery = "<LDAP://" & strDNSDomain & ">;" & strFilter _ 
15.
    & ";distinguishedName,sAMAccountName;subtree" 
16.
adoCommand.CommandText = strQuery 
17.
'Abfrage ausführen 
18.
Set adoRecordset = adoCommand.Execute 
19.
 
20.
Do Until adoRecordset.EOF 
21.
	'Keine Computerkonten ändern 
22.
	If Right(adoRecordSet.Fields("sAMAccountName"), 1) <> "$" Then 
23.
 
24.
		'Konten in OU Users nicht ändern 
25.
		If InStr(adoRecordSet.Fields("distinguishedName"), "CN=Users") = 0 Then 
26.
 
27.
			'Bestimmte User aussparen 
28.
			Select Case LCase(adoRecordSet.Fields("sAMAccountName")) 
29.
 
30.
			'Folgende Konten (Anmeldenamen in Kleinbuchstaben) nicht ändern 
31.
			Case "test01", "test02" 
32.
				'hier keine Aktion durchführen 
33.
 
34.
			'Änderung für alle übrigen Konten durchführen 
35.
			Case Else 
36.
				Set obj = GetObject("LDAP://test.test.de/" & _ 
37.
					adoRecordSet.Fields("distinguishedName")) 
38.
				obj.Put "company", vCompany 
39.
				obj.SetInfo 
40.
				WScript.Echo obj.samAccountName & VbCrLf & obj.company 
41.
			End Select 
42.
 
43.
		End If 
44.
 
45.
	End If 
46.
    adoRecordSet.MoveNext 
47.
Loop
Noch ein Selektionsbeispiel: Um (zB beim Testen) nur alle User aus einer bestimmten OU und deren Unter-OUs zu erhalten, könntest Du folgende Bedingung verwenden:
01.
If InStr(adoRecordSet.Fields("distinguishedName"), "OU=TestOU") <> 0 Then
Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Basic
VBScript erweitern für Subfolder (8)

Frage von 132078 zum Thema Basic ...

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

Frage von MedicalAd zum Thema Windows 7 ...

VB for Applications
gelöst Per Vbscript bestimmte Zeile ungeachtet der Nummerierung prüfen (7)

Frage von aletri zum Thema VB for Applications ...

Entwicklung
gelöst Get ip from external txt file and use in vbscript (5)

Frage von thankusomuch zum Thema Entwicklung ...

Heiß diskutierte Inhalte
DSL, VDSL
gelöst DSL 200m verlängern (15)

Frage von Angela44 zum Thema DSL, VDSL ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...

Windows Server
SBS 2011 Standard virtualisieren (11)

Frage von HeinrichM zum Thema Windows Server ...

Exchange Server
gelöst DHCP Sever MS Server 2012 Problem (10)

Frage von Florian86 zum Thema Exchange Server ...