IAssociateIsAsynchEnabled Property |
Namespace: SuperOffice.COM.SuperOfficeDB
True The user may travel with updates
False The user does not have permission to travel with update.
Check Asynch enabled
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
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