
DM API METHODS AND PROPERTIES 129
AddLogin
'dimensioned as constants.
Const iLibraryLogin As Integer = 0
Const iNetWareBindery As Integer = 1
Const iNetWareNDS As Integer = 2
Const iMicrosoftNetwork As Integer = 8
'Create an instance of the logon object.
pClient = Server.CreateObject("PCDClient.PCDLogin")
'Use the Attaché password to log on to the
'LegalLaw library.
hr = pClient.AddLogin iLibraryLogin, _
"LegalLaw", "t_rex", "roar"
'The DM Server authenticates the logon.
hr = pClient.Execute()
.
.
.
The following example captures the logon information a user enters on
a form. Again, it uses an Attaché password.
.
.
.
Private Type LOGIN_TYPE
LIBRARY_LOGIN As Integer
NETWORK_BINDERY As Integer
NETWORK_NDS As Integer
BANYAN_VINES As Integer
MS_NETWORD As Integer
End Type
'Module scope variables.
Dim MyLoginType As LOGIN_TYPE
Private Sub Command1_Click()
'Set up MyLOGIN_TYPE with logons that the
Kommentare zu diesen Handbüchern