Methods
| UpdateLicense | Update license information by license code. |
Properties
| MaxDomain | Maximum domains EAS supports. It is limited by current license. |
| MaxUser | Maximum users EAS supports. It is limited by current license. |
| Expired | Indicate whether current server is expired. |
| Expiration | Date of expiration. |
| Licensee | Licensee description. |
| Description | Current license description. |
| Version | Server version. |
Remarks
ISvrLicense object sets/gets license information of EmailArchitect Server. Only "system" account has the permission to access this object.
Usage Example
Dim server, user, password, requestAddr
server = "localhost"
user = "system"
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 oLicense
Set oLicense = oSvr.License
If oLicense.Expired > 0 Then
WScript.Echo( "trial expired" )
End If