Comments on: List All User Object Attributes in Active Directory Schema.. Whew! http://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/ Smash forehead on keyboard to continue... Wed, 18 Jan 2012 03:07:46 +0000 hourly 1 http://wordpress.org/?v=3.3.1 By: JohnLhttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-1483 JohnL Thu, 11 Aug 2011 14:59:22 +0000 http://halfloaded.com/?p=116#comment-1483 I ran the script and got an compilation error, "Sub expected". I ran it on a domain computer with an administrative user account. Is this supposed to be run from the Domain Controller itself? I ran the script and got an compilation error, “Sub expected”. I ran it on a domain computer with an administrative user account. Is this supposed to be run from the Domain Controller itself?

]]> By: Andrewhttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-1172 Andrew Thu, 23 Jun 2011 19:50:51 +0000 http://halfloaded.com/?p=116#comment-1172 For these, I typically just use: cscript /nologo script.vbs > output.csv For these, I typically just use: cscript /nologo script.vbs > output.csv

]]> By: Andrewhttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-1171 Andrew Thu, 23 Jun 2011 19:19:38 +0000 http://halfloaded.com/?p=116#comment-1171 Thanks Mike. Glad you found it useful. Thanks Mike. Glad you found it useful.

]]> By: mikephttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-1169 mikep Thu, 23 Jun 2011 11:00:20 +0000 http://halfloaded.com/?p=116#comment-1169 And by the way GREAT SCRIPT, THANK YOU !!! And by the way GREAT SCRIPT, THANK YOU !!!

]]> By: mikephttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-1168 mikep Thu, 23 Jun 2011 10:57:47 +0000 http://halfloaded.com/?p=116#comment-1168 You probally already know this but by adding a few lines you can ouput this to a file: '* Script name: List All Attributes.vbs '* Created on: 01/28/2009 '* Author: Andrew J Healey '* Purpose: Exports all attributes from the user object type within '* the Active Directory schema. '* Usage: cscript /nologo "list all attributes.vbs" > Attributes.csv '* History: Andrew J Healey 01/28/2009 '* - Created script ' ' ****** add code ********* Set WSHShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") objpath = WshShell.SpecialFolders("Desktop") Set objFolder = objFSO.GetFolder(objpath) For Each objFile In objFolder.files If objFile.Name = "users.txt" Then objFile.Delete True End If Next Set objfile = objFSO.CreateTextFile(objpath&"\ad.csv", True) set objfile = nothing Set objfile = objFSO.OpenTextFile(objpath&"\ad.csv", 8, True) ' ****** end add ********* Dim objUserClass : Set objUserClass = GetObject("LDAP://schema/user") Dim objSchemaClass : Set objSchemaClass = GetObject(objUserClass.Parent) ' ****** change code - from ********* 'wscript.echo chr(34) & "Mandatory" & chr(34) & "," & _ ' chr(34) & "Name" & chr(34) & "," & _ ' chr(34) & "Syntax" & chr(34) & "," & _ ' chr(34) & "Single/Multi Valued" & chr(34) ' ****** change code - to ********* writeme = chr(34) & "Mandatory" & chr(34) & "," & chr(34) & "Name" & chr(34) & "," & chr(34) & "Syntax" & chr(34) & "," & chr(34) & "Single/Multi Valued" & chr(34) objfile.writeline(writeme) ' ****** end change code ********* Call GetAttributes(objUserClass.MandatoryProperties,objSchemaClass,True) Call GetAttributes(objUserClass.OptionalProperties,objSchemaClass,False) Private Sub GetAttributes(x,y,z) Dim strAttribute For Each strAttribute in x Dim strOut : strOut = "" If z = True then strOut = strOut & chr(34) & "Yes" & chr(34) & "," & chr(34) & strAttribute & chr(34) & "," Else strOut = strOut & chr(34) & "No" & chr(34) & "," & chr(34) & strAttribute & chr(34) & "," End If Dim objAttribute : Set objAttribute = y.GetObject("Property", strAttribute) strOut = strOut & chr(34) & objAttribute.Syntax & chr(34) & "," If objAttribute.MultiValued Then strOut = strOut & chr(34) & "Multi" & chr(34) Else strOut = strOut & chr(34) & "Single" & chr(34) End If ' ****** change code - from ********* ' wscript.echo strOut ' ****** change code - to ********* objfile.writeline(strOut) ' ****** end section ********* strOut = Empty Next Set objAttribute = Nothing strAttribute = Empty End Sub ' ****** add code ********* Set objDomain = Nothing objfile.close set objfile = nothing set objfso = nothing Wscript.Echo "AD file created, DONE" ' ****** end add ********* You probally already know this but
by adding a few lines you can ouput this to a file:

‘* Script name: List All Attributes.vbs
‘* Created on: 01/28/2009
‘* Author: Andrew J Healey
‘* Purpose: Exports all attributes from the user object type within
‘* the Active Directory schema.
‘* Usage: cscript /nologo “list all attributes.vbs” > Attributes.csv
‘* History: Andrew J Healey 01/28/2009
‘* – Created script
‘

‘ ****** add code *********

Set WSHShell = CreateObject(“WScript.Shell”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
objpath = WshShell.SpecialFolders(“Desktop”)
Set objFolder = objFSO.GetFolder(objpath)
For Each objFile In objFolder.files
If objFile.Name = “users.txt” Then
objFile.Delete True
End If
Next
Set objfile = objFSO.CreateTextFile(objpath&”\ad.csv”, True)
set objfile = nothing
Set objfile = objFSO.OpenTextFile(objpath&”\ad.csv”, 8, True)

‘ ****** end add *********

Dim objUserClass : Set objUserClass = GetObject(“LDAP://schema/user”)
Dim objSchemaClass : Set objSchemaClass = GetObject(objUserClass.Parent)

‘ ****** change code – from *********

‘wscript.echo chr(34) & “Mandatory” & chr(34) & “,” & _
‘ chr(34) & “Name” & chr(34) & “,” & _
‘ chr(34) & “Syntax” & chr(34) & “,” & _
‘ chr(34) & “Single/Multi Valued” & chr(34)

‘ ****** change code – to *********

writeme = chr(34) & “Mandatory” & chr(34) & “,” & chr(34) & “Name” & chr(34) & “,” & chr(34) & “Syntax” & chr(34) & “,” & chr(34) & “Single/Multi Valued” & chr(34)
objfile.writeline(writeme)

‘ ****** end change code *********

Call GetAttributes(objUserClass.MandatoryProperties,objSchemaClass,True)
Call GetAttributes(objUserClass.OptionalProperties,objSchemaClass,False)
Private Sub GetAttributes(x,y,z)
Dim strAttribute
For Each strAttribute in x
Dim strOut : strOut = “”
If z = True then
strOut = strOut & chr(34) & “Yes” & chr(34) & “,” & chr(34) & strAttribute & chr(34) & “,”
Else
strOut = strOut & chr(34) & “No” & chr(34) & “,” & chr(34) & strAttribute & chr(34) & “,”
End If
Dim objAttribute : Set objAttribute = y.GetObject(“Property”, strAttribute)
strOut = strOut & chr(34) & objAttribute.Syntax & chr(34) & “,”
If objAttribute.MultiValued Then
strOut = strOut & chr(34) & “Multi” & chr(34)
Else
strOut = strOut & chr(34) & “Single” & chr(34)
End If

‘ ****** change code – from *********

‘ wscript.echo strOut

‘ ****** change code – to *********

objfile.writeline(strOut)

‘ ****** end section *********

strOut = Empty
Next
Set objAttribute = Nothing
strAttribute = Empty
End Sub

‘ ****** add code *********
Set objDomain = Nothing
objfile.close
set objfile = nothing
set objfso = nothing
Wscript.Echo “AD file created, DONE”
‘ ****** end add *********

]]> By: Tomhttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-1025 Tom Tue, 08 Feb 2011 00:44:29 +0000 http://halfloaded.com/?p=116#comment-1025 A great help and works well! Thanks much! A great help and works well! Thanks much!

]]> By: links for 2010-11-12 | Ronaldo Richierihttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-364 links for 2010-11-12 | Ronaldo Richieri Fri, 12 Nov 2010 16:03:48 +0000 http://halfloaded.com/?p=116#comment-364 [...] List All User Object Attributes in Active Directory Schema.. Whew! Um script ASP para listar atributos ActiveDirectory de um usuário ou de um contexto. (tags: ldap) [...] [...] List All User Object Attributes in Active Directory Schema.. Whew! Um script ASP para listar atributos ActiveDirectory de um usuário ou de um contexto. (tags: ldap) [...]

]]> By: Domhttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-193 Dom Wed, 12 Aug 2009 11:55:43 +0000 http://halfloaded.com/?p=116#comment-193 works well, thanks! works well, thanks!

]]> By: Glenhttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-188 Glen Fri, 01 May 2009 05:32:41 +0000 http://halfloaded.com/?p=116#comment-188 Most impressive! Thanks mate. Most impressive! Thanks mate.

]]> By: Markhttp://halfloaded.com/blog/list-all-user-object-attributes-in-active-directory-schema-whew/comment-page-1/#comment-79 Mark Mon, 02 Mar 2009 14:27:20 +0000 http://halfloaded.com/?p=116#comment-79 Thanks for the script! There's a typo in the file name in the Usage section though :) Thanks for the script!

There’s a typo in the file name in the Usage section though :)

]]>