Update msexchmobilemailboxflags to 1 if ActiveSync is enabled

I'm trying to add script to user provisioning policy that would update the msexchmobilemailboxflags to 1 if ActiveSync is enabled for the user, below is my futile attempt but its not working. I would appreciate if some can provide some guidance...scripting is not my thing

Sub onPostModify(Request)
  If Request.Class <> "user" Then Exit Sub

  DirObj.Getinfo
  loca=DirObj.Get("edsva-MsExch-ProtocolSettings-ActiveSync-Enable")

  If loca = "True" Then
    DirObj.put "msexchmobilemailboxflags", "1"
    DirObj.setinfo
  End If
 
End Sub