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
- Run the Siebel Enterprise Server Installer.
The Siebel Enterprise Server Installer installs the Web Client Automation Server by default.
- Start Microsoft Visual Basic.
- Choose Standard EXE.
- Choose the Project menu, and then the References menu item.
- In the list box, choose SiebelHTML 1.0 Type Library.
- 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
|