Listing 1: GetSDViaADSI.wsf

<?xml version="1.0"?>
<package>
	<job>
		<?job error="True" debug="True" ?>
		<script language="VBScript" src=".\Functions\DecipherSDFunction.vbs" />
		<script language="VBScript" src=".\Functions\DisplayFormattedPropertyFunction.vbs" />
		<script language="VBScript">
		<![CDATA[
		Option Explicit
		Const cADUserDN = "CN=LISSOIR Alain,CN=Users,DC=MyW2KDomain,DC=com"
		Dim objUser, objSD
		' On Error Resume Next
		Set objUser = GetObject ("LDAP://" & cADUserDN)
		Set objSD = objUser.Get("msExchMailboxSecurityDescriptor")
(BEGIN CALLOUT A)
		DecipherSecurityDescriptor objSD
(END CALLOUT A)
		Set objSD = Nothing
		Set objUser = Nothing
		]]>
	</script>
	</job>
</package>