Solved

Getting Short Name from NAB for a member of a group

Posted on 2004-10-11
2
357 Views
Last Modified: 2013-12-18
I'm trying to get the short name field out of the nab for individual members of a group in the nab.

My attempts so far are below with the problem (at least the first one) is that the evaluate statement for
searchname is evaluating to a blank.  The first part works (it brings back the group members names in the following format CN = John Smith/OU=xyz/O=abc).  So i basically want to convert that to John Smith, go to the $VIMPeople View of the NAB and extract the shortname from the document.

Any ideas would be appreciated.

Thanks

smeyer4314

      Dim nabdb As notesdatabase
      Dim nabdoc As notesdocument
      Dim nabdoc2 As notesdocument      
      Dim nabview As notesview
      Dim nabview2 As notesview
      Dim nabsession As New notessession
      
      filenum = Freefile()
      Open "c:\my documents\group_list.txt" For Output As #Freefile
      
      srv = "myserver"
      dbn = "names.nsf"
      
      Set nabdb = New notesdatabase(srv,dbn)
      Set nabview = nabdb.getview("Groups")
      
      Set nabview2 = nabdb.getview("$VIMPeople")
      
      docname = "MyLookupGroup"
      Set nabdoc = nabview.getdocumentbykey(docname,True)
      
      If nabdoc Is Nothing Then
            Msgbox("no document")
      Else
            Forall member In nabdoc.members
                  Print #filenum, member
                  Msgbox(member)
' ok to here
'                  searchname = Evaluate(|@name([Abbreviate];member)|)
                            tname = searchname(0)
                  Msgbox (tname)      
' returns a blank tname
'            
                  Set nabdoc2 = nabview2.getdocumentbykey(tname,True)
                  If nabdoc2 Is Nothing Then
                        Msgbox("no document on internet name lookup")
                  Else
                        short_name = nabdoc2.shortname(0)
                        Print #filenum, short_name
                        
                  End If
            End Forall
      End If
      
      Close #fileNum
      
      
      
End Sub
0
Comment
Question by:smeyer4314
2 Comments
 
LVL 31

Accepted Solution

by:
qwaletee earned 125 total points
ID: 12280635
Instead of $VIMPeople, use .getView("($Users)")

You can drop the whole Evaluate.  Just use nabView2.getDocumentByKey(member,true) -- because that view includes all users sorted by canonical name (CN=...)
0
 

Author Comment

by:smeyer4314
ID: 12280978
Qwaltee;

Thanks, that worked.

Steve m
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Lotus Notes and VMWare require a double-click 22 1,414
Lotus Domino 9.0 install on same pc with 8.5.3 9 134
Installing Lotus Notes on Citrix XenApp 3 152
xss alert in domino url 9 32
Lack of Storage capacity is a common problem that exists in every field of life. Here we are taking the case of Lotus Notes Emails, as we all know that we are totally depend on e-communication i.e. Emails. This article is fully dedicated to resolvin…
Article by: Rob
Notes 8.5 Archiving Steps and Tips This article covers setting up a Notes archive, and helps understand some of the menu choices making setting up and maintaining a Notes archive file easier.
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

766 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question