Not completely :-(

The mailbox security is not working.

vb code:

code:
Dim sec As New ADsSecurity 'You can also use -- Set sec = CreateObject("ADsSecurity") for late binding
Dim sd As IADsSecurityDescriptor
Dim dacl As IADsAccessControlList
Dim ace As New AccessControlEntry

Const ADS_RIGHT_EXCH_MODIFY_USER_ATT = &H2
'-------------------------------------------------
' Set the mailbox security
' to allow the user to modify a user attribute,
' send mail, and receive mail
'-------------------------------------------------
Set sd = sec.GetSecurityDescriptor(mailBox.ADsPath)
Set dacl = sd.DiscretionaryAcl
ace.Trustee = domain & "\" & strAlias
ace.AccessMask = ADS_RIGHT_EXCH_MODIFY_USER_ATT Or ADS_RIGHT_EXCH_MAIL_SEND_AS Or ADS_RIGHT_EXCH_MAIL_RECEIVE_AS
ace.AceType = ADS_ACETYPE_ACCESS_ALLOWED
dacl.AddAce ace
sd.DiscretionaryAcl = dacl
sec.SetSecurityDescriptor sd



"Translated to KiX"
code:
$ADS_RIGHT_EXCH_MODIFY_USER_ATT = "H2"
$secobj = CreateObject("ADsSecurity")
$sd = getobjectoption("IADsSecurityDescriptor")
$dacl = getobjectoption("IADsAccessControlList")
$aceobj = CreateObject("AccessControlEntry")
$sd = $Secobj.GetSecurityDescripter($mailbox.$ADsPath)
$dacl = $sd.DiscretionaryAcl
$aceobj.Thrustee = "@DOMAIN\$strAlias"
$aceobj.AccessMask = $ADS_RIGHT_EXCH_MODIFY_USER_ATT
$aceobj.AceType = $ADS_ACETYPE_ACCESS_ALLOWED
$dacl.AddAce = $aceobj
$sd.DiscretionaryAcl = $dacl

$secobj.SetSecurityDescriptor = $sd

Result:
Script error: unknown or unexpected command []!
$sd = $Secobj.GetSecurityDescripter($mailbox.$ADsPath)

Any ideas?
_________________________
regards, Martijn