Siebel Object Interfaces Reference > Programming > Getting Started with the Siebel Object Interfaces >

Accessing the Siebel Web Client Automation Server

The Web Client Automation Server allows external applications to invoke business services and manipulate property sets. The Web Client Automation Server is implemented as a small COM object resident within the Web browser (IE 5.0 or greater). The Web Client Automation Server can be used with the Web client and the Mobile Web Client. The Web Client Automation Server is supported with the high interactivity mode only.

NOTE:  You cannot invoke the Siebel Web Client Automation Server directly from the active Siebel instance. Trying to do so will cause an error.

To set up Microsoft Visual Basic to access the Siebel Web Client Automation Server

1. Start Microsoft Visual Basic.
2. Select Standard EXE.
3. Choose Project > References.
4. In the list box, highlight and check the SiebelHTML 1.0 Type Library.

The following example shows how to use Microsoft Visual Basic 6.0 with the Siebel 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
      TheApplication().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
      TheApplication().RaiseErrorText("Could not Get Siebel Service: " & errCode & "::" & errText)
   End If

Set siebApp = Nothing
End If
End Sub