Get specified setting.
BSTR GetItem([in] BSTR bstrKey)
Parameters
bstrKey
Key name of specified setting. For domain setting, "blocklist" is valid; for user setting, "blocklist", "response", "forward" or "signature" is valid.
Return Value
Return value is the value of specified setting.
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"))