Visual Basic Sample Code For Host Functionality - Symantec PCANYWHERE - OLE AUTOMATION GUIDE V12.1 Manual

62 Visual Basic object definitions
CHostDataEx object
Property
Bool = <CHostDataEx>.AllowDriveSecurity
Bool = <CHostDataEx>.UseDirectoryServices
String = <CHostDataEx>.DirectoryServiceEntry

Visual Basic sample code for host functionality

Table 2-67 CHostDataEx properties and return values
The following Visual Basic sample code retrieves a host data object and modifies
its properties:
Private Sub Command1_Click()
Dim HostDataManager as Object
Dim HostData as Object
Dim s as string
'Create CHostDataManager object
Set HostDataManager = CreateObject(WINAWSVR.BEHOSTDATAMANAGER)
'display and change current directory
s = HostDataManager.CurrentDirectory()
MsgBox ( s )
HostDataManager.ChangeDirectory ("C:\dev\bin.w32\data")
s = HostDataManager.CurrentDirectory()
MsgBox ( s )
'retrieve remote data object
Set HostData = HostDataManager.RetrieveObject("pod.BHF", 2, 0)
'display some properties
s = HostData.AreaCode()
MsgBox (s)
s = HostData.PhoneNumber()
MsgBox (s)
'set some properties
RemoteData. HostData = "212"
Return Description
value
Bool Returns whether the drive security option is
enabled.
Bool Returns whether the directory services option is
enabled.
String Returns the directory service settings.