recovering group PIDs

[Virgil]

Is there a way to recover group PIDs? The method below
doesn't work:

Function faq_ListGroupsInSystem()
Dim ws As Workspace
Dim i As Integer

Set ws = DBEngine.Workspaces(0)
For i = 0 To ws.Groups.Count - 1
Debug.Print ws.Groups(i).Name
Debug.Print ws.Groups(i).PID
Next i
End Function

 

[Joan Wild]

Is there a way to recover group PIDs? The method below
doesn't work:

No. What are you trying to do?