11. Juli 2013 11:03
        service = New CrmService()
        service.Url = "http://" + My.Settings.Server + "/MSCrmServices/2007/CrmService.asmx"
        token = New CrmSdk.CrmAuthenticationToken()
        token.OrganizationName = My.Settings.Organisation
        token.AuthenticationType = 0
        service.CrmAuthenticationTokenValue = token
        service.UseDefaultCredentials = True
        service.Credentials = System.Net.CredentialCache.DefaultCredentials
            Dim request As RetrieveMultipleRequest = New RetrieveMultipleRequest
            request.ReturnDynamicEntities = True
            request.Query = Filter
            response = CType(clsWebservice.service.Execute(request), RetrieveMultipleResponse)
11. Juli 2013 18:56
15. Juli 2013 08:31
 discoveryService = New CrmDiscoveryService()
        discoveryService.UseDefaultCredentials = True
        discoveryService.Url = "http://" + My.Settings.Server + "/MSCRMServices/2007/AD/CrmDiscoveryService.asmx"
        orgRequest = New RetrieveOrganizationsRequest()
        orgResponse = discoveryService.Execute(orgRequest)