Example of using of API Logon

Question

Greetings,
I'm looking for example of using API Logon. The logon API is
Logon(User As String, Password As String, CMS As String, Mode As String, ThreeTier As Boolean, Offline As Boolean) As Boolean
I need an example because I'm using vbscript.

Answer 1

Here's some code that logs onto enterprise and starts servers.
'     This script starts any server that
'     is current not running with the exception
'     of the wcs and aps.
Dim CMS
Dim Username
Dim Password
Dim Authtype
'Set CMS logon credentials - change these to match your particular CE environment
CMS = "katwin2kce9"
Username = "Administrator"
Password = "" 
Authtype = "secEnterprise"
Dim ceServerStop
ceServerStop = 2
Dim ceServerStart
ceServerStart = 1
'Declare variables for Enterprise Session
Dim oEnterpriseSessionMgr
Dim ceSession
Dim iStore
'Load the Enterprise Session Manager
Set oEnterpriseSessionMgr = CreateObject("CrystalEnterprise.SessionMgr")
'Logon to the CMS and create iStore object
Set ceSession = oEnterpriseSessionMgr.Logon(Username, Password, CMS, Authtype)
Set iStore = ceSession.Service("","InfoStore")
'Declare InfoObject Variables
Dim ServerInfoObjects
'Retrieve a list of all the servers that are currently stopped
Set ServerInfoObjects = IStore.Query("SELECT * FROM CI_SYSTEMOBJECTS WHERE SI_PROGID = 'CrystalEnterprise.Server' AND SI_SERVER_IS_ALIVE = 0")
'Retrieve a server object using the plugin interface.
Dim ServerObjects
'Iterate through the collection of servers until we find the one that matches
For each InfoObject in ServerInfoObjects
     'load the plugin
     Set ServerObject = InfoObject.PluginInterface("")
     'If ServerObject.ServerIOR = ServerIOR Then
          'Error handle and start service
          on error resume next
          'Start the service - does not require a commit
          ServerObject.ManageServer ceServerStart
     'End If
Next
if err.number <> 0 then
     MsgBox "Attempt to start the service failed\nerror number: " & err.number & "\nerror description: " & err.description
else
     MsgBox "Servers were started."
end if