Connect Method

Connect to server.

long
Connect(
	[in]BSTR   Server,
	[in]BSTR   User,
	[in]BSTR   Password,
	[in]long   RequireSession,
	[in, optional, defaultvalue("127.0.0.1")] BSTR RequestAddr
)

Parameters

Server

Server name or IP address.

User

User ID to logon.

Password

Password of user, it is case-sensitive.

RequireSession

Indicate if server generates a session for this logon. If this value is zero, server doesn't generate a session for this logon. If this value is 1, server generates a session key for this logon. The session key can be used with OpenSession method to logon server.

RequestAddr

IP address of current logon machine. OpenSession method must use the same value as what Connect method used; otherwise OpenSession method will fail.

Return Value

Return value is zero if this method succeeds; otherwise return value is non-zero.

Usage Example

[VBScript - Connect without session]
Dim server, user, password, requestAddr
server = "localhost"
user = "myuser@adminsystem.com"
password = "mypassword"
requestAddr = "192.168.0.1"

Set oSvr = CreateObject("EmailArchitectObjects.ServerRoot")
r = oSvr.Connect( server, user, password, 0, requestAddr )
If r <> 0 Then
  WScript.Echo( "connect server failed!" )
End If

[VBScript - Connect with session required.]
Const SESSION_REQUIRED = 1
Dim server, user, password, sessionkey, requestAddr
server = "localhost"
user = "myuser@adminsystem.com"
password = "mypassword"
requestAddr = "192.168.0.1"

Set oSvr = CreateObject("EmailArchitectObjects.ServerRoot")
'Connect with session required
r = oSvr.Connect( server, user, password, SESSION_REQUIRED, requestAddr ) 
If r <> 0 Then
  WScript.Echo( "connect server failed!" )
  WScript.Quit
End If

'get session key generated by server.
sessionkey = oSvr.SessionKey
oSvr.Close

'now connect server with session key, 
once this method succeeded, current object has the same user security context
r = oSvr.OpenSession( sessionkey, server, requestAddr )
If r <> 0 Then
  WScript.Echo( "open session failed!" )
  WScript.Quit
End If