Imports System

imports Newtonsoft.Json.Linq            

​

Public Module Module1

    public Class Vehicle

    End Class

    public Class Car 

    Inherits Vehicle

    End Class

    public Class Motorocycle  

    Inherits Vehicle

    End Class

    Public Sub Main()

        dim sJAuser as string = "[{'id':'2e87e741-ec34-469b-a660-1f221e9652e4','site_id':4,'site_name':'EU','user_name':'Iam Show Show 231024','first_name':'Iam','last_name':'Show 231024','user_status':'closed','default_account_id':'95a6fba2-6979-4130-b1d3-6bb35ce865ef','default_account_name':'PAUL HARTMANN AG','is_organization_admin':false,'created_on':'2024-01-10T14:42:40.087','memberships':[{'email':'Iam.Show231024@external.hartmann.info','account_id':'95a6fba2-6979-4130-b1d3-6bb35ce865ef','external_account_id':'531374142','account_name':'PAUL HARTMANN AG','is_external_account':false,'status':'closed','permission_profile':{'id':9087890,'name':'DocuSign Viewer'},'created_on':'2024-01-10T14:42:40.087','groups':[{'id':5397328,'name':'Everyone','type':2}],'is_admin':false,'closed_on':'2024-01-10T14:45:51.427'},{'email':'Iam.Show231024@external.hartmann.info','account_id':'sfds95a6fba2-6979-4130-b1d3-6bb35ce865ef','external_account_id':'531374142','account_name':'PAUL HARTMANN AG','is_external_account':false,'status':'closed','permission_profile':{'id':9087890,'name':'DocuSign Viewer'},'created_on':'2024-01-10T14:47:22.93','groups':[{'id':5397328,'name':'Everyone','type':2}],'is_admin':false,'closed_on':'2024-01-11T09:28:49.187'}],'identities':[],'device_verification_enabled':true,'require_two_step_verification':false,'allow_two_step_verification_snooze':false}]"     

        Dim jAUser As JArray = JArray.Parse(sJAuser)

        Dim membership = jAUser.SelectToken("$..memberships[?(@.status=='closed')]")

        dim sPermissionProfile as string

        If Not membership Is Nothing Then

            sPermissionProfile = membership.Item("account_id").Item("id").ToString()

        End If

        Console.WriteLine(sPermissionProfile)

    End Sub

End Module

​

​