Methods
GetItem | Get specified setting. |
PutItem | Put specified setting. |
Remarks
PersonalSetting object maintains domain/user personal settings.
Usage Example
Dim server, user, password, requestAddr server = "localhost" user = "hunter@emailarchitect.net" password = "mypassword" requestAddr = "192.168.0.1" Dim oSvr Set oSvr = CreateObject("EmailArchitectObjects.ServerRoot") r = oSvr.Connect( server, user, password, 0, requestAddr ) If r <> 0 Then WScript.Echo( "connect server failed!" ) WScript.Quit End If Dim oSetting Dim oDomains, oDomain Set oDomains = oSvr.DomainCollection Set oDomain = oDomains.Items(CStr(oSvr.Domain)) Set oSetting = oDomain.DomainSetting 'get domain block sender list, current user must be domain administrator WScript.Echo( oSetting.GetItem("blocklist")) Dim oUsers, oUser Set oUsers = oDomain.UserCollection Set oUser = oUsers.Items(CStr(oSvr.User)) Set oSetting = oUser.PersonalSetting 'get user email forwarding setting WScript.Echo( oSetting.GetItem("forward"))