IAssociateGroups Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Get usergroup
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
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 & vbCrLfmsg = msg & myAssoc.Groups.Count & " usergroups:" & vbCrLf For Each Item In myAssoc.Groups msg = msg & Item.Text & vbCrLf Next MsgBox msg Else MsgBox "Unable to log in" End If