Siebel Tools Reference > Configuring the Customer Dashboard > Using Siebel VB Script and eScript >

Siebel VB Example

Below is an example script written in Siebel VB that uses the dashboard commands. It gets the contact ID, Field 4, and Field Time for the current record populated in the dashboard and prints those values to a file.

For more information about using Siebel eScript, see Siebel eScript Language Reference.

Sub Script_Open

     Dim bs as Service
     Dim inpargs as PropertySet
     Dim outargs as PropertySet
     Dim fvalue as String

Open "d:\sabari.txt" for Output as #1
Set bs = TheApplication().GetService("Persistent Customer dashboard")
     Set inpargs = TheApplication.NewPropertySet
     Set outargs = TheApplication.NewPropertySet

     bs.InvokeMethod "GetCurrentContactId",inpargs,outargs
     fvalue = outargs.GetProperty("Contact Id")
     Write #1, "The current id in the dashboard = " & fvalue

     Inpargs.SetProperty "Field Name","Field 4"
     bs.InvokeMethod "GetDashboardFieldValue",inpargs,outargs
     fvalue = outargs.GetProperty("Field Value")
     Write #1," The Account Name in the dashboard = "& fvalue
     Close #1

End Sub


 Siebel Tools Reference, Version 7.5, Rev. A 
 Published: 18 April 2003