Expanding Group Names for Lotus Domino using LotusScript

Function expandGroupListMembers(GroupName) As Variant
Dim session As New NotesSession
Dim db As NotesDatabase
Dim gView As NotesView
Dim memberList As Variant
Dim gDoc As NotesDocument

Set db = session.CurrentDatabase
Dim nab As New NotesDatabase(db.Server ,"names.nsf") ' this assumes that db is NOT running locally but is a server

Set gView = nab.GetView("($VIMGroups)" )
Set gDoc = grpsView.GetDocumentByKey( GroupName , True )

If gDoc Is Nothing Then Exit Function 'could not find this GroupName in view so stop and return empty

memberList = gDoc.GetItemValue( "Members" )
Forall member In memberList
Dim subMemberList As Variant
subMemberList = expandGroupListMembers(member) 'see if member is a group and if so get its members, recursively.
If Not Isempty(subMemberList) Then
'member was a group, now add all its members to list
If Isempty (expandGroupList) Then
expandGroupListMembers= subMemberList
Else
expandGroupListMembers=  AddArraysEval (expandGroupListMembers, subMemberList)
End If
Else
'member was not a group therefore assume is a person and add to list
' note it could be a server or something else
If Isempty (expandGroupListMembers) Then
expandGroupListMembers= member
Else
expandGroupListMembers=  AddArraysEval (expandGroupListMembers, member)
End If

End If
End Forall

End Function

Function AddArraysEval (a1 As Variant, a2 As Variant) As Variant
'from http://www.nsftools.com/tools/lsbook.htm
'** add two arrays or scalar values using @Functions
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim var As Variant
Set db = session.CurrentDatabase
Set doc = New NotesDocument(db)
Call doc.ReplaceItemValue("a1", a1)
Call doc.ReplaceItemValue("a2", a2)
AddArraysEval = Evaluate("a1 : a2", doc)
'** clean up the memory we used
Set doc = Nothing
Set db = Nothing
End Function