 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: List All ADAM OU Attributes and Values
|
||
|
' Description: Lists all the attributes and values for an ADAM OU named Accounting.
On Error Resume Next Set objUser = _ GetObject("LDAP://localhost:389/ou=Accounting,dc=fabrikam,dc=com") Set objUserProperties = GetObject _ ("LDAP://localhost:389/schema/organizationalUnit") For Each strAttribute in objUserProperties.MandatoryProperties strValues = objUser.GetEx(strAttribute) For Each strItem in strValues Wscript.Echo strAttribute & " -- " & strItem Next Next For Each strAttribute in objUserProperties.OptionalProperties strValues = objUser.GetEx(strAttribute) If Err = 0 Then For Each strItem in strValues Wscript.Echo strAttribute & " -- " & strItem Next Else Wscript.Echo strAttribute & " -- No value set" Err.Clear End If Next | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
