InternetLevel can't be change by schedule agent

In our company have web mail access policy for all user’s mailbox(default internetlevel = 0),so we have schedule agent for enable/disable web mail access(Change InternetLevel). It worked fine on ND 6.5.5.

Enable - ACL.InternetLevel = 4

Disable - ACL.InternetLevel = 0

I found problem about changing internetlevel after upgrading ND 8.0.1 on mail server.My schedule agent was ran normaly and not error but internetlevel is not be change.

First,I think ACL.save is not work or not ? So I called other method and define other properties then save ACL. It 's work fine.

Second,I changed schedule agent to agent(On Event) then ran that agent.it 's work fine too.

That mean is InternetLevel problem and run by schedule agent only.

Dim s as New NotesSession

Dim ACL as NotesACL

Set ACL = s.CurrentDatabase.ACL

ACL.InternetLevel = 4 ’ Not change

Call ACL.Addrole(“DEV”) ’ changed

Call ACL.Save

Please suggest me to fix this error or other way… ,thanks