Click or drag to resize

IAssociateIsWebLoginEnabled Property

can user login over web? This requires a separate licence

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
bool IsWebLoginEnabled { get; }

Property Value

Type: Boolean

True - The user may log on to the web client

False The user does not have permission to log on to the web client

Examples

Is weblogin enbled

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
Dim soDB, myAssoc
Set soDB = CreateObject("SuperOfficeDB.Database")

If soDB.Login ("USERNAME", "PASSWORD") then

    Set myAssoc = sodb.GetAssociate(sodb.UserAssociateId)
    msg = msg & "myAssoc.FullName: " & myAssoc.FullName & vbCrLf
    msg = msg & "myAssoc.Group: " & myAssoc.Group & vbCrLf
    msg = msg & "myAssoc.GroupID: " & myAssoc.GroupID & vbCrLf
    msg = msg & "myAssoc.Identity: " & myAssoc.Identity & vbCrLf
    msg = msg & "myAssoc.IdentName: " & myAssoc.IdentName & vbCrLf
    msg = msg & "myAssoc.IsAsynchEnabled: " & myAssoc.IsAsynchEnabled & vbCrLf
    msg = msg & "myAssoc.IsExtPersonAdmin: " & myAssoc.IsExtPersonAdmin & vbCrLf
    msg = msg & "myAssoc.IsIntellisyncEnabled: " & myAssoc.IsIntellisyncEnabled & vbCrLf
    msg = msg & "myAssoc.IsLoginEnabled: " & myAssoc.IsLoginEnabled & vbCrLf
    msg = msg & "myAssoc.IsNetLoginEnabled: " & myAssoc.IsNetLoginEnabled & vbCrLf
    msg = msg & "myAssoc.IsOutlookLinkEnabled: " & myAssoc.IsOutlookLinkEnabled & vbCrLf
    msg = msg & "myAssoc.IsOutlookSynchronizerEnabled: " & myAssoc.IsOutlookSynchronizerEnabled & vbCrLf
    msg = msg & "myAssoc.IsPrivateAppntEnabled: " & myAssoc.IsPrivateAppntEnabled & vbCrLf
    msg = msg & "myAssoc.IsPublishEnabled: " & myAssoc.IsPublishEnabled & vbCrLf
    msg = msg & "myAssoc.IsReportSDKEnabled: " & myAssoc.IsReportSDKEnabled & vbCrLf
    msg = msg & "myAssoc.IsTravelEnabled: " & myAssoc.IsTravelEnabled & vbCrLf
    msg = msg & "myAssoc.IsWebLoginEnabled: " & myAssoc.IsWebLoginEnabled & vbCrLf
    msg = msg & "myAssoc.IsWinLoginEnabled: " & myAssoc.IsWinLoginEnabled & vbCrLf
    msg = msg & "myAssoc.LoginName: " & myAssoc.LoginName & vbCrLf
    msg = msg & "myAssoc.Person.FullName: " & myAssoc.Person.FullName & vbCrLf
    msg = msg & "myAssoc.PersonId: " & myAssoc.PersonId & vbCrLf
    msg = msg & "myAssoc.Role.Description: " & myAssoc.Role.Description & vbCrLf
    msg = msg & "myAssoc.Type: " & myAssoc.Type & vbCrLf

    MsgBox msg

Else
    MsgBox "Unable to log in"
End If

See Also