Public Overrides Sub CreateNewOutputRows()
        Dim de As New DirectoryEntry
        Dim searcher As New DirectorySearcher
        Dim search_result As SearchResultCollection
        Dim result As SearchResult
        Dim MemberOfList As StringBuilder
        Dim props As ResultPropertyCollection
        Dim PropertiesList, s, sid As String
        Dim i As Integer




        Using (de)
            de.Path = Me.ReadOnlyVariables("gLDAPQuery").Value.ToString()

            Using (searcher)
                searcher.SearchRoot = de
                searcher.Filter = Me.ReadOnlyVariables("gLDAPFilter").Value.ToString()
                searcher.SearchScope = SearchScope.Subtree
                searcher.PropertiesToLoad.Add("name")
                searcher.PropertiesToLoad.Add("objectSID")
                

                searcher.Sort = New SortOption("name", SortDirection.Ascending)

                searcher.PageSize = 1000

                search_result = searcher.FindAll()

                For Each result In search_result
                    props = result.Properties
                    ActiveDirectoryOutputBuffer.Name = props("name")(0).ToString()
                    
                    sid = props("objectSID")(0).ToString

                    ActiveDirectoryOutputBuffer.objectSID = Encoding.ASCII.GetString(props("objectSID"))
                   Next
            End Using
        End Using

        de = Nothing
        searcher = Nothing
        search_result = Nothing
        result = Nothing
        props = Nothing
     
    End Sub

End Class

sid = (byte[])props("objectSID")(0) 
                    ActiveDirectoryOutputBuffer.objectSID = New SecurityIdentifier(sid, 0).ToString() 

Dim sid As SecurityIdentifier
ActiveDirectoryOutputBuffer.objectSID = sid.ToString