goodyear
Jul 13, 2009, updated at 20:14:45 (UTC)
view5749
view5
0
Goto Top

AD Unix Attributes auslesen

GermansolvedQuestionWindows ServerMicrosoft

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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 120377

Url: https://administrator.de/contentid/120377

Printed on: April 27, 2024 at 02:04 o'clock

5 Comments
Latest comment
Goto Top
Member: filippg
filippg Jul 13, 2009 at 21:59:09 (UTC)
Goto Top
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
Member: TsukiSan
TsukiSan Jul 14, 2009 at 03:16:33 (UTC)
Goto Top
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
Member: Quicknip
Quicknip Jul 14, 2009 at 18:30:40 (UTC)
Goto Top
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
Member: goodyear
goodyear Jul 14, 2009 at 19:03:43 (UTC)
Goto Top
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!
Member: TsukiSan
TsukiSan Jul 15, 2009 at 02:19:17 (UTC)
Goto Top
Hallo goodyear,

dir auch danke, für die aufklärenden Worte bezüglich Unix Attribute!
Wieder was gelernt! face-smile

Viele Grüße
Tsuki
GermansolvedQuestionWindows ServerMicrosoft