Remote Scripting + parametre

Parametre 1 = Ldap streng til brugeren
Parametre 2 = &H2 (Fjerne rettighederne på self) eller &H20003 (Sætter rettighederne Read og Full Mailbox rights)

Dim objUser
Dim oSecurityDescriptor
Dim dacl
Dim ace
Dim Vaerdi

Set StreamIn = WScript.Arguments
sUserADsPath = StreamIn(0)

Set objUser = GetObject(sUserADsPath)
Set oSecurityDescriptor = objUser.MailboxRights

Set dacl = oSecurityDescriptor.DiscretionaryAcl
Set ace = CreateObject("AccessControlEntry")

For Each ace In dacl
If ace.Trustee = "NT AUTHORITY\SELF" Then 
       
  ' &H2    = Fjern flueben i Read og Full Mailbox Access
  ' &H20003 = Tilføj flueben i Read og Full Mailbox Access
    ace.AccessMask = StreamIn(1)
Else
End If
Next

oSecurityDescriptor.DiscretionaryAcl = dacl
objUser.MailboxRights = oSecurityDescriptor
objUser.SetInfo

Scriptet skal køres på Exchange serveren. Da den gør brug af cdoex.dll og cdo.dll. Disse kan man ikke bare tag og registrerer på en afviklingsserver. Dvs. man kan godt registrerer dem, men man kan ikke gøre brug af alle funktioner, personlig erfaring og også et hint fra Microsoft.