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 Wie kann ich FullName bzw First und Lastname aus dem ADS auslesen?

Mitglied: fraggle666

fraggle666 (Level 1) - Jetzt verbinden

18.02.2008, aktualisiert 22.02.2008, 7366 Aufrufe, 3 Kommentare

Hallo zusammen,

ich versuche gerade mittels eines VB Scriptes und einer Textdatei, die mit User ID´s gefüttert ist, die Namen auszulesen.

Bisher bekomme ich folgende Werte:
UserID: Testuser (Testuser = der Login Name)
UserName:
Users Distinguished Name: CN=Testuser,OU=Users,OU=DE,DC=test,DC=test,DC=test
Users HomeDrive: H:
Users HomeDirectory: \\server\Home$\Testuser
Users TSRProfilePath: \\server.test.test.test\Profile$\Testuser\Profile.tsr


Und der Vor- und Nachname soll nun mit ausgegeben werden.


Vorname = Pferde
Nachname = Apfel


Hier das Script:

On Error Resume Next

strLogTimeStamp = mid(date(),7 ,4) & mid(date(), 4, 2) & mid(date(), 1, 2) & "_" & mid(time(), 1, 2) & mid(time(), 4, 2) & mid(time(), 7, 2)
strProgName = "Test1"
strLogPfad = "C:\Temp\" & strProgName

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Set fs = CreateObject("Scripting.FileSystemObject")
Set objTextFile = fs.OpenTextFile("C:\temp\lala.txt", ForReading)


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Log-Datei vorbereiten WScript.Echo "Username : " objuser.displayname
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if not fs.FolderExists("L:\LOGS") then
fs.CreateFolder "L:\LOGS"
End if

If not fs.FolderExists(strLogPfad) then
fs.CreateFolder strLogPfad
End if

Set strLogDatei = fs.OpenTextFile(strLogPfad & "\Uebersicht_" & strLogTimeStamp & ".txt", ForWriting, True)
Set strHomeDrvFile = fs.OpenTextFile(strLogPfad & "\HomeDriveFehlt_" & strLogTimeStamp & ".txt", ForWriting, True)
Set strHomeDirFile = fs.OpenTextFile(strLogPfad & "\HomeDirFehlt_" & strLogTimeStamp & ".txt", ForWriting, True)
Set strTSRProf = fs.OpenTextFile(strLogPfad & "\TSRProfielFehlt_" & strLogTimeStamp & ".txt", ForWriting, True)

C = 0
D = 0
E = 0
F = 0

Do While objTextFile.AtEndOfStream <> True Or C = 10
strName = objTextFile.ReadLine
displayname = objuser.displayname
usrdistinguished = getdistinguishedname()
strLogDatei.Writeline "--------------------------------------------"
strLogDatei.Writeline "UserID: " & strName
strLogDatei.Writeline "UserName: " & displayname
strLogDatei.Writeline "Users Distinguished Name: " & usrdistinguished
Set objUser = GetObject("LDAP://" & usrdistinguished)
objUser.GetInfo
strHomeDirectory = objUser.Get("homeDirectory")
strHomeDrive = objUser.Get("homeDrive")
strTSRProfPath = objUser.TerminalServicesProfilePath
' If strHomeDrive <> "" Then
' strLogDatei.Writeline "Users HomeDrive: " & strHomeDrive
' D = D + 1
' Else
' strHomeDrvFile.Writeline "Dieser User hat kein HomeDrive: " & strName & " - " & usrdistinguished
' End If
' If strHomeDirectory <> "" Then
' strLogDatei.Writeline "Users HomeDirectory: " & strHomeDirectory
' E = E + 1
' Else
' strHomeDirFile.Writeline "Dieser User hat kein HomeDirectory: " & strName & " - " & usrdistinguished
' End If
' If strTSRProfPath <> "" Then
' strLogDatei.Writeline "Users TSRProfilePath: " & strTSRProfPath
' F = F + 1
' Else
' strTSRProf.Writeline "Dieser User hat kein TSRProfilePath: " & strName & " - " & usrdistinguished
' End If
C = C + 1
Loop

strLogDatei.Writeline "Anzahl der Userobjecte = " & c
strLogDatei.Writeline "Anzahl der HomeDrives = " & d
strLogDatei.Writeline "Anzahl der HomeDirectorys = " & e


'
'
' Function to get distinguished name of user logged on
'
'
' ReturnValue - distinguished name
'
function getdistinguishedname()
' On Error Resume Next

Dim X
Dim Con
Dim oCommand
Dim objArgs
Dim ADsObject
Dim sADsPath
Dim objName
Dim objClass
Dim objSchema
Dim classObject

Set X = createobject("WSCRIPT.Network")
'strName=x.username
Set Con = CreateObject("ADODB.Connection")
Con.Provider = "ADsDSOObject"
Con.Open "Active Directory Provider"

Set oCommand = CreateObject("ADODB.Command")
oCommand.ActiveConnection = Con

Set objRootDSE = GetObject("LDAP://rootDSE")
sDomain = objRootDSE.Get("defaultNamingContext")

Set domain = GetObject("GC://" & sDomain)
sADsPath = "<" & domain.ADsPath & ">"

sFilter = "(&(objectCategory=person)(objectClass=user)(Name=" & strName & "))"
sAttribsToReturn = "distinguishedName"
sDepth = "subtree"

oCommand.CommandText = sADsPath & ";" & sFilter & ";" & _
sAttribsToReturn & ";" & sDepth
Set rs = oCommand.Execute

rs.MoveFirst
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Name = "distinguishedName" Then
distinguishedPath = rs.Fields(i).Value
End If
Next
rs.MoveNext
Wend

'Quit if nothing is found
If rs.RecordCount = 0 Then
WScript.Quit
End If


getdistinguishedname = distinguishedPath

end function



Das Problem ist, es handelt sich dabei um ein vorgeschriebenes Script meines Vorgängers, dass ich nun anpassen soll.
Ich habe bis dato noch nie etwas mit VB zu tun gehabt, und versuche dieses Script zu verstehen...

Könnt ihr mir helfen? :/

Danke euch
Mitglied: fraggle666
18.02.2008 um 14:15 Uhr
Do While objTextFile.AtEndOfStream <> True Or C = 10
strName = objTextFile.ReadLine
usrdistinguished = getdistinguishedname()
displayname = objuser.displayname
strLogDatei.Writeline "--------------------------------------------"
strLogDatei.Writeline "UserID: " & strName
strLogDatei.Writeline "UserName: " & displayname
strLogDatei.Writeline "Users Distinguished Name: " & usrdistinguished
Set objUser = GetObject("LDAP://" & usrdistinguished)
objUser.GetInfo
strHomeDirectory = objUser.Get("homeDirectory")
strHomeDrive = objUser.Get("homeDrive")
strTSRProfPath = objUser.TerminalServicesProfilePath

Soweit bin ich nun. Allerdings kopiert er mir nun immer den Display Name, des nachfolgenden Benutzers in die aktuelle Zeile...

Sehr mysteriös
Bitte warten ..
Mitglied: fraggle666
19.02.2008 um 11:42 Uhr
nunja,

nächstes Problem. Wie kann ich nun "alle" User Daten mittels VBS aus dem ADS auslesen?
Im vorher geschilderten Problem hatte ich ja eine Textdatei mit Usern, die ich nur mit den ADS Daten abgleichen wollte.

Ich war schon hier:
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts ...

Aber irgendwie bekomm ich das trotzdem nicht hin. Mit diesen Scripts, wird ja, wenn ichs richtig verstanden habe, nur jeweils ein User abgefragt.

Zu Hülf!
Bitte warten ..
Mitglied: fraggle666
22.02.2008 um 10:35 Uhr
Eine vbs Datei erstellen und in einem cmd Fenster mit cscript "ads.vbs" > K:\test.txt starten :

Set ou = GetObject("LDAP://OU="Zielfolder",OU="Übergeordneter Folder",DC="Domain",DC="de"")

For Each obj In ou

wscript.echo obj.name


Next


Das wars
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Office 2007 Upgrade auf 2013 ständiges First Run Fenster

gelöst Frage von xbast1xMicrosoft Office5 Kommentare

Hi zusammen, ich habe gerade auf einigen Testrechner ein Upgrade von Office 2007 (H&B) auf Office 2013 Standard durchgeführt ...

Samba

Verknüpfung von ADS- und Linux Gruppen

gelöst Frage von 98500Samba19 Kommentare

Hey@ALL Folgende Frage. Ich habe in meinem ADS diverse Gruppen angelegt: Beispiel: - ADS_01_Leitung - ADS_02_Vertrieb - ADS_03_ Buchhaltung ...

Sicherheit

Kaspersky KES10 Windows User ADS Kennwort änderung

Frage von Flubber42Sicherheit5 Kommentare

Hallo Administratoren, seit unserm Update auf die Neuste Kaspersky Version Kaspersky Endpoint Securety 10 (KES10) dürfen wir ein sehr ...

Windows Server

Migration ADS von 2003 auf Server 2012

Frage von rel0aded0neWindows Server6 Kommentare

Hallo an alle :) Ich habe eine Frage zu einer Testumstellung an der ich gerade sitze. Ich habe folgende ...

Neue Wissensbeiträge
iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 10 StundeniOS2 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 2 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Webbrowser
Microsoft bestätigt Edge mit Chromium-Kern
Information von Frank vor 2 TagenWebbrowser5 Kommentare

Microsoft hat nun in seinem Blog bestätigt, dass die nächste Edge Version kein EdgeHTML mehr für die Darstellung benutzen ...

Sicherheit

MikroTik: Sicherheitslücke wird ausgenutzt obwohl ein Update seit langem verfügbar ist

Information von sabines vor 3 TagenSicherheit

Obwohl ein Update, dass die nun massenhaft ausgenutzte Lücke schließt, seit langem (März 2018) verfügbar ist, wird es offensichtlich ...

Heiß diskutierte Inhalte
Exchange Server
Exchange Server 2010: Keine Eingehenden E-MAils
Frage von gabeBUExchange Server15 Kommentare

Hallo Zusammen Ich habe das kurzen auf dem Exchange 2010 Server das Problem, dass ich keine externen E-Mails mehr ...

Rechtliche Fragen
Systemhaus auf Abwegen
Frage von rocco61Rechtliche Fragen14 Kommentare

Hallo zusammen, bin derzeit ratlos bei dem folgenden Scenario: In einen Seniorenheim wurde beschlossen, die IT an eine andere ...

Server
Server in zwei verschiedene Netzwerke einbinden
Frage von BennyFServer10 Kommentare

Hallo zusammen, bei uns im Haus sind im Erdgeschoss die Geschäftsräume und ab dem 1. Stock sind unsere privaten ...

Outlook & Mail
Kalendersync mit Android und Outlook
Frage von Stefan007Outlook & Mail9 Kommentare

Hi Leute, kennt jemand eine Möglichkeit um Termine zwischen installiertem Outlook auf dem PC und dem Kalender auf einem ...