Protezione directory

Private Function test_Local(ByVal hostname As String) As String
        Dim return_str As String = ""
        Try
            Dim MembersCollection As IADsMembers
            Dim GroupToEnum As New DirectoryEntry("WinNT://" & hostname & "/administrators,group")
            MembersCollection = GroupToEnum.Invoke("Members")
            Dim filter As System.Object() = {"user"}
            MembersCollection.Filter = filter
            Dim user As IADsUser
            Dim grp As IADsGroup

            For Each user In MembersCollection
                return_str = return_str & user.ADsPath.Substring(8) & ";"
            Next

            Dim grpfilter As System.Object() = {"group"}
            MembersCollection.Filter = grpfilter
            For Each grp In MembersCollection
                return_str = return_str & grp.ADsPath.Substring(8) & ";"
            Next
            return_str = return_str.Substring(0, (return_str.Length - 1))
            Return return_str
        Catch ex As Exception
            return_str = "NP"
            Return return_str
        End Try
    End Function