AD Unix Attributes auslesen

Hallo, nach langen und erfolglosen recherchen im Internet bzw. unzähliger herumprobiererei bitte ich nun euch um eure Hilfe!

Folgendes Problem: Ich muss von sämtlichen Usern in einer Windows Active Directory die Vornamen, Nachnamen und die zugehörigen Unix Atrribute in VBS auslesen und in ein Excel file exportieren.

Ich wäre euch wirklich dankbar wenn jemand eine passende Lösung für dieses Problem hätte!.

Mfg

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 120377

Url: https://administrator.de/forum/ad-unix-attributes-auslesen-120377.html

Ausgedruckt am: 21.04.2025 um 20:04 Uhr

5 Kommentare

Neuester Kommentar

Hallo,

ehrlich gesagt bin ich überfragt, was die Unix-Attribute sind. Aber: Daten aus dem AD liest man sehr einfach mit csvde aus (alternativ auch ldifde, aber das bekommt man etwas schwerer in ein Excel).

Gruß

Filipp

Hallo goodyear,

eventuell gibt dir mein Script in VBS die richtige Anregung.
Hierbei werden die Daten von den angelegten Useraccounts auf einer Maschine ins Excel übertragen.

On Error Resume Next

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  

Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_UserAccount Where LocalAccount = True")  

Set objXL = WScript.CreateObject("Excel.Application")  
objXL.Workbooks.Add

Dim Reihe , Spalte
Reihe = 1
Spalte = 1


For Each objItem in colItems

    objXL.Cells(Spalte,Reihe).Value = "Account Type: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.AccountType
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Caption: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Caption
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Description: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Description
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Disabled: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Disabled
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Domain: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Domain
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Full Name: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.FullName
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Local Account: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.LocalAccount
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Lockout: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Lockout
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Name: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Name
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Password Changeable: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.PasswordChangeable
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Password Expires: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.PasswordExpires
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Password Required: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.PasswordRequired
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "SID: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.SID
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "SID Type: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.SIDType
    Spalte = Spalte + 1
    objXL.Cells(Spalte,Reihe).Value = "Status: "  
    objXL.Cells(Spalte,Reihe + 1).Value = objItem.Status
    Spalte = Spalte + 1
    Spalte = Spalte + 1

Next

	objXL.Columns("A:A").EntireColumn.HorizontalAlignment = 4  
	objXL.Columns("B:B").EntireColumn.HorizontalAlignment = 2  
    	objXL.Columns("A:B").EntireColumn.AutoFit  

	objXL.Visible = True

vielleicht hilft es dir.
Mit den Unix-Attributen kann ich jetzt leider auch nix anfangen.
Bei Wiki finde ich nix außer "Mehrbenutzer-BS".
Vielleicht kannst du mich ja mal aufklären.

Danke und Gruß
Tsuki

Mit Script kann ich nicht weiterhelfen, allerdings vermute ich mal das es um die Services for Unix Attribute geht.

Falls ja wirst Du hier fündig: http://www.selfadsi.de/attadsfu.htm

Ich möchte mich einmal für eure rasche Hilfe bedanken, im speziellen für das VBS Excel Script.

Jedoch konnte ich heute das Problem durch einen Zufall selbst fertig lösen!

@Unix Attribute: Sind Attribute im Active Directory, die es Benutzern ermöglichen sich mit den Windows anmeldeinformationen aus dem Active Directory (Benutzername, Kennwort) an UNIX Maschinen anzumelden, ohne für die UNIX MAschinen erneut seperate PAsswörter und Benutzernamen zu benötigen. Ich hoffe ich konnte die Frage beantworten!

Also nochmals danke für eure Unterstützung!