Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

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}}
win/getattributes.txt (13534 views) · Zuletzt geändert: 2011/03/31 17:16 (Externe Bearbeitung)
CC Attribution-Share Alike 3.0 Unported
www.chimeric.de Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0