Siebel Object Interfaces Reference > Customizing Siebel Object Interfaces > Accessing a Siebel Object Interface >

Accessing the Web Client Automation Server

This topic describes how to access the Web Client Automation Server. For more information, see Mobile Web Client Automation Server.

To access the Web Client Automation Server

1. Run the Siebel Enterprise Server Installer.

   The Siebel Enterprise Server Installer installs the Web Client Automation Server by default.

2. Start Microsoft Visual Basic.
3. Choose Standard EXE.
4. Choose the Project menu, and then the References menu item.
5. In the list box, choose SiebelHTML 1.0 Type Library.
6. Add the required code.

   For more information, see Example of Accessing the Web Client Automation Server.

Example of Accessing the Web Client Automation Server

The following example includes the code you use in Microsoft Visual Basic 6.0 to access the Web Client Automation Server:

Private Sub Command1_Click()
'Siebel Application Object
Dim siebApp As SiebelHTMLApplication
Dim siebSvcs As SiebelService
Dim siebPropSet As SiebelPropertySet
Dim bool As Boolean
Dim errCode As Integer
Dim errText As String
Dim connStr As String
Dim lng As String
'Create The SiebelHTML Object
Set siebApp = CreateObject("Siebel.Desktop_Integration_Application.1")

If Not siebApp Is Nothing Then

   'Create A New Property Set
   Set siebPropSet = siebApp.NewPropertySet
   If Not siebPropSet Is Nothing Then
      Set siebPropSet = Nothing
   Else
      errCode = siebApp.GetLastErrCode
      errText = siebApp.GetLastErrText
      siebApp.RaiseErrorText "Property set creation failed." & errCode & "::" & errText
   End If

   'Get A Siebel Service
   Set siebSvcs = siebApp.GetService("Workflow Process Manager")
   If Not siebSvcs Is Nothing Then
      Set siebSvcs = Nothing
   Else
      errCode = siebApp.GetLastErrCode
      errText = siebApp.GetLastErrText
      siebApp.RaiseErrorText "Could not Get Siebel Service." & errCode & "::" & errText
   End If

Set siebApp = Nothing
End If
End Sub