ERROR: objectManager.QueryObjects() failing when querying users

Question

I have a list of user ObjectIDs saved in a community preference and am trying to write a function to itterate through them and display a link to each user's profile page where the hyperlink text is the user's description property.
The profile page links works just fine thanks to the cool pt:OpenerLink transformer tag, but I'm having trouble doing a query for a user's Description property.
I get an "Object Reference not set to an instance of an object." at: Plumtree.Remote.PRC.ObjectManagerWrapper.QueryObjects(Int32 folderID, Int32 startRow, Int32 maxRows, ObjectProperty sortProperty, Boolean ascending, ObjectProperty[] propsToReturn, QueryFilter[] filters) at sam7.portlet3.buildUserLinks3(String strValue) in C:\Plumtree\ZZZRemotePortlets\sam7\portlet3.aspx.vb:line 126
The buildUserLinks3() routine that does the query and builds the link is included below. Line 126 is the queryResults=ObjectManager.QueryObjects(...) call.
What have I missed?
Public Function buildUserLinks3(ByVal strValue As String)
Dim arrValues As Array Dim intObjectID As Integer Dim strOutput As StringBuilder = New StringBuilder
Dim RemoteSession As IRemoteSession Dim ObjectManager As IObjectManager Dim strUserDescription As String
Dim folderID As Integer folderID = -1 'search all folders
Dim startRow As Integer startRow = 0 'start at the first found
Dim maxRows As Integer maxRows = 1 'return a single result
Dim sortProperty As ObjectProperty sortProperty = UserProperty.UniqueName 'sort on the unique name
Dim ascending As Boolean ascending = True 'sort ascending
Dim propsToReturn(2) As ObjectProperty 'choose to return specific properties
propsToReturn(0) = UserProperty.ObjectID propsToReturn(1) = UserProperty.SimpleName
Dim filters(1) As QueryFilter 'filter the results
RemoteSession = RemoteSessionFactory.GetTokenContext(portletRequest.GetRemoteAPIEndpoint(), portletRequest.GetLoginToken()) ObjectManager = RemoteSession.GetObjectManager(ObjectClass.User)
' parse the comma-separated list of User object IDs and look up the user's Properties. If strValue.Length > 1 And (strValue <> "null") Then arrValues = strValue.Split(",") For Each intObjectID In arrValues
' get the user's properties Try
' Set a query filter to sort for a unique objectID filters(0) = New StringQueryFilter(UserProperty.ObjectID, _ Operator.Equals, _ intObjectID.ToString) 'where the objectID equals the itterated value
Dim queryResults As IObjectQuery queryResults = ObjectManager.QueryObjects( _ folderID, _ startRow, _ maxRows, _ sortProperty, _ ascending, _ propsToReturn, _ filters)
' There will be only one returned row based on the query filter above, but itterate anyway... ' it is good form in case something changes later. ' We'll keep overwriting the strUserDescription value until the last returned row. Dim i As Integer Dim queryObject As IObjectQueryRow For i = 0 To queryResults.GetRowCount() queryObject = queryResults.GetRow(i) strUserDescription = queryObject.GetStringValue(UserProperty.Description) Next i
Catch e As Exception 'Response.Write("<BR>" & e.Message & " <BR>") 'Response.Write(e.StackTrace & " <BR>") 'Response.End()
strUserDescription = "UserID " & intObjectID.ToString & vbCrLf & _ "<BR>    - NAME LOOOKUP ERROR" & vbCrLf & _ "<BR>    - " & vbCrLf & e.Message & _ "<BR>    - " & vbCrLf & e.StackTrace & _ "<BR>" & vbCrLf End Try
' handy little transformer tags... yes, precious, my precious... strOutput.Append("<pt:openerLink xmlns:pt='http://www.plumtree.com/xmlschemas/ptui/' ") strOutput.Append("pt:objectID='") strOutput.Append(intObjectID.ToString) strOutput.Append("' ") strOutput.Append("pt:classID='1' ") strOutput.Append("pt:mode='3' ") strOutput.Append("target='myWindow' ") strOutput.Append("onclick=window.top.open('','myWindow','height=500,width=700,status=no,toolbar=no,menubar=no,location=no');") strOutput.Append(">") strOutput.Append(strUserDescription) strOutput.Append("</pt:openerLink>" & vbCrLf & "<BR>" & vbCrLf) Next Else strOutput.Append("") End If Return (strOutput.ToString) End Function

Answer 1

I have a list of user ObjectIDs saved in a community preference and am trying to write a function to itterate through them and display a link to each user's profile page where the hyperlink text is the user's description property.
The profile page links works just fine thanks to the cool pt:OpenerLink transformer tag, but I'm having trouble doing a query for a user's Description property.
I get an "Object Reference not set to an instance of an object." at: Plumtree.Remote.PRC.ObjectManagerWrapper.QueryObjects(Int32 folderID, Int32 startRow, Int32 maxRows, ObjectProperty sortProperty, Boolean ascending, ObjectProperty[] propsToReturn, QueryFilter[] filters) at sam7.portlet3.buildUserLinks3(String strValue) in C:\Plumtree\ZZZRemotePortlets\sam7\portlet3.aspx.vb:line 126
The buildUserLinks3() routine that does the query and builds the link is included below. Line 126 is the queryResults=ObjectManager.QueryObjects(...) call.
What have I missed?
Public Function buildUserLinks3(ByVal strValue As String)
Dim arrValues As Array Dim intObjectID As Integer Dim strOutput As StringBuilder = New StringBuilder
Dim RemoteSession As IRemoteSession Dim ObjectManager As IObjectManager Dim strUserDescription As String
Dim folderID As Integer folderID = -1 'search all folders
Dim startRow As Integer startRow = 0 'start at the first found
Dim maxRows As Integer maxRows = 1 'return a single result
Dim sortProperty As ObjectProperty sortProperty = UserProperty.UniqueName 'sort on the unique name
Dim ascending As Boolean ascending = True 'sort ascending
Dim propsToReturn(2) As ObjectProperty 'choose to return specific properties
propsToReturn(0) = UserProperty.ObjectID propsToReturn(1) = UserProperty.SimpleName
Dim filters(1) As QueryFilter 'filter the results
RemoteSession = RemoteSessionFactory.GetTokenContext(portletRequest.GetRemoteAPIEndpoint(), portletRequest.GetLoginToken()) ObjectManager = RemoteSession.GetObjectManager(ObjectClass.User)
' parse the comma-separated list of User object IDs and look up the user's Properties. If strValue.Length > 1 And (strValue <> "null") Then arrValues = strValue.Split(",") For Each intObjectID In arrValues
' get the user's properties Try
' Set a query filter to sort for a unique objectID filters(0) = New StringQueryFilter(UserProperty.ObjectID, _ Operator.Equals, _ intObjectID.ToString) 'where the objectID equals the itterated value
Dim queryResults As IObjectQuery queryResults = ObjectManager.QueryObjects( _ folderID, _ startRow, _ maxRows, _ sortProperty, _ ascending, _ propsToReturn, _ filters)
' There will be only one returned row based on the query filter above, but itterate anyway... ' it is good form in case something changes later. ' We'll keep overwriting the strUserDescription value until the last returned row. Dim i As Integer Dim queryObject As IObjectQueryRow For i = 0 To queryResults.GetRowCount() queryObject = queryResults.GetRow(i) strUserDescription = queryObject.GetStringValue(UserProperty.Description) Next i
Catch e As Exception 'Response.Write("<BR>" & e.Message & " <BR>") 'Response.Write(e.StackTrace & " <BR>") 'Response.End()
strUserDescription = "UserID " & intObjectID.ToString & vbCrLf & _ "<BR>    - NAME LOOOKUP ERROR" & vbCrLf & _ "<BR>    - " & vbCrLf & e.Message & _ "<BR>    - " & vbCrLf & e.StackTrace & _ "<BR>" & vbCrLf End Try
' handy little transformer tags... yes, precious, my precious... strOutput.Append("<pt:openerLink xmlns:pt='http://www.plumtree.com/xmlschemas/ptui/' ") strOutput.Append("pt:objectID='") strOutput.Append(intObjectID.ToString) strOutput.Append("' ") strOutput.Append("pt:classID='1' ") strOutput.Append("pt:mode='3' ") strOutput.Append("target='myWindow' ") strOutput.Append("onclick=window.top.open('','myWindow','height=500,width=700,status=no,toolbar=no,menubar=no,location=no');") strOutput.Append(">") strOutput.Append(strUserDescription) strOutput.Append("</pt:openerLink>" & vbCrLf & "<BR>" & vbCrLf) Next Else strOutput.Append("") End If Return (strOutput.ToString) End Function