Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen gezeigt.
| — |
win:getattributes [2011/03/31 17:16] (aktuell) |
||
|---|---|---|---|
| Zeile 1: | Zeile 1: | ||
| + | [[:win|{{ :WindowsLogo.png?40|}}]] | ||
| + | ===== Eigenschaften von Domänen Benutzern abfragen ===== | ||
| + | Folgendes Visual Basic Skript liest per LDAP alle Eigenschaften eines Benutzerobjekts in einem Active Directory aus:((http://gallery.technet.microsoft.com/scriptcenter/en-us/4d192f4d-2830-4a3e-9352-64a7e696a36e))\\ (Passen Sie die Ausgabedatei bei der Definition der <fc #008000>strExportFile</fc> Variable Ihren Gegebenheiten an) | ||
| + | |||
| + | <code vb|getattributes.vbs> | ||
| + | SET objRootDSE = GETOBJECT("LDAP://RootDSE") | ||
| + | strExportFile = "C:\temp\MyExport.xls" | ||
| + | |||
| + | strRoot = objRootDSE.GET("DefaultNamingContext") | ||
| + | strfilter = "(&(objectCategory=Person)(objectClass=User))" | ||
| + | strAttributes = "sAMAccountName,userPrincipalName,givenName,sn," & _ | ||
| + | "initials,displayName,physicalDeliveryOfficeName," & _ | ||
| + | "telephoneNumber,mail,wWWHomePage,profilePath," & _ | ||
| + | "scriptPath,homeDirectory,homeDrive,title,department," & _ | ||
| + | "company,manager,homePhone,pager,mobile," & _ | ||
| + | "facsimileTelephoneNumber,ipphone,info," & _ | ||
| + | "streetAddress,postOfficeBox,l,st,postalCode,c" | ||
| + | strScope = "subtree" | ||
| + | SET cn = CREATEOBJECT("ADODB.Connection") | ||
| + | SET cmd = CREATEOBJECT("ADODB.Command") | ||
| + | cn.Provider = "ADsDSOObject" | ||
| + | cn.Open "Active Directory Provider" | ||
| + | cmd.ActiveConnection = cn | ||
| + | |||
| + | cmd.Properties("Page Size") = 1000 | ||
| + | |||
| + | cmd.commandtext = "<LDAP://" & strRoot & ">;" & strFilter & ";" & _ | ||
| + | strAttributes & ";" & strScope | ||
| + | |||
| + | SET rs = cmd.EXECUTE | ||
| + | |||
| + | SET objExcel = CREATEOBJECT("Excel.Application") | ||
| + | SET objWB = objExcel.Workbooks.Add | ||
| + | SET objSheet = objWB.Worksheets(1) | ||
| + | |||
| + | FOR i = 0 To rs.Fields.Count - 1 | ||
| + | objSheet.Cells(1, i + 1).Value = rs.Fields(i).Name | ||
| + | objSheet.Cells(1, i + 1).Font.Bold = TRUE | ||
| + | NEXT | ||
| + | |||
| + | objSheet.Range("A2").CopyFromRecordset(rs) | ||
| + | objWB.SaveAs(strExportFile) | ||
| + | |||
| + | |||
| + | rs.close | ||
| + | cn.close | ||
| + | SET objSheet = NOTHING | ||
| + | SET objWB = NOTHING | ||
| + | objExcel.Quit() | ||
| + | SET objExcel = NOTHING | ||
| + | |||
| + | Wscript.echo "Script Finished..Please See " & strExportFile | ||
| + | </code> | ||
| + | |||
| + | Kopieren Sie dieses Skript in eine Textdatei, benennen Sie diese in .vbs um und führen es an einer beliebigen AD integrierten Workstation aus. Es muss Excel auf diesem System installiert sein. | ||
| + | |||
| + | **Verwandte Artikel:** | ||
| + | [[:win:getlogonscript|-> (AD) User Logonskript abfragen]] | ||
| + | [[:win:user_properties|-> (AD) Eigenschaften eines Domänen Benutzers abfragen (CMD)]] | ||
| + | [[:win:group_member|-> (AD) Mitglieder einer Gruppe anzeigen lassen]] | ||
| + | \\ | ||
| + | --- //pronto 2010/11/23 17:39// | ||
| + | {{keywords>active directory ad skript user properties benutzer eigenschaften microsoft}} | ||
