Get current active connections of specified service.
BSTR GetConnectionInfo([in] BSTR Name)
Parameters
Name
Service name, it can be smtpd, pop3d, webmail or rocd.
Return Value
Return value is detailed connection/session information. Each line shows the information of a connection/session.
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!" )
End If
Dim oServices
Set oServices = oSvr.ServiceCollection
'get smtp service active connections
WScript.Echo oServices.GetConnectionInfo("smtpd")
See Also