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

Wie kann ich FullName bzw First und Lastname aus dem ADS auslesen?

Frage Entwicklung VB for Applications

Mitglied: fraggle666

fraggle666 (Level 1) - Jetzt verbinden

18.02.2008, aktualisiert 22.02.2008, 7301 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
Adressen aus Hyperlinks auslesen (3)

Frage von kluthi69 zum Thema Microsoft Office ...

Visual Studio
gelöst Pastebin auslesen mit Visual Basic? (2)

Frage von UltraZz zum Thema Visual Studio ...

Batch & Shell
gelöst Powershell INI Tags auslesen (2)

Frage von H41mSh1C0R zum Thema Batch & Shell ...

Microsoft Office
gelöst Excel VBA Datein auslesen (8)

Frage von schwalbepilot zum Thema Microsoft Office ...

Neue Wissensbeiträge
Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Erkennung und -Abwehr

Ccleaner-Angriff war nur auf große Unternehmen gemünzt

(10)

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

Sicherheit

Eventuell neue Lücke in Intels ME

Information von sabines zum Thema Sicherheit ...

Heiß diskutierte Inhalte
Humor (lol)
Freidach Beitrag (25)

Frage von Penny.Cilin zum Thema Humor (lol) ...

Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Windows 7
SSD - Win7 Lags (19)

Frage von ph5555 zum Thema Windows 7 ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...