400 Bad Request
{"error": {"errors": [{"domain": "global","reason": "badRequest","message": "invalid accountId: UA-7974431-1."}],"code": 400,"message": "invalid accountId: UA-7974431-1."}}
service.Management.Profiles.List(uaAccount(1), "~all")
You have to list the Account Id.
I'm also calling the Goal method to get a list of goals
service.Management.Goals.List
And finally the data get method
service.Data.Ga.Get
Error:"invalid_grant", Description:"", Uri:""
But the methods are currently pulling data for other clients.
Is this a known issue?
thanks,
Sean
Public Function getData(ByVal site_id As Integer, ByVal ua As String, ByVal profile_id As String, ByVal con As SqlConnection, ByVal startDate As Date, ByVal endDate As Date, ByVal dimensions As String, ByVal metrics As String, ByVal filters As String, ByVal startIndex As Integer, ByVal prefix As String) As GaData
Dim certificate As New X509Certificate2(keyPath, "notasecret", X509KeyStorageFlags.Exportable)
Dim credential = New ServiceAccountCredential(New ServiceAccountCredential.Initializer(serviceAccountId) With {.Scopes = {AnalyticsService.Scope.AnalyticsReadonly}}.FromCertificate(certificate))
Dim service = New AnalyticsService(New BaseClientService.Initializer() With {.HttpClientInitializer = credential, .ApplicationName = "ImpaqtPPC"})
Dim sDate As String
Dim eDate As String
sDate = startDate.ToString("yyyy-MM-dd")
eDate = endDate.ToString("yyyy-MM-dd")
Dim acct() = ua.Split("-")
Dim request = service.Data.Ga.Get("ga:" & profile_id, sDate, eDate, metrics)
request.Dimensions = dimensions
request.Sort = "ga:date"
request.StartIndex = startIndex
request.PrettyPrint = False
request.Output = 1
request.SamplingLevel = DataResource.GaResource.GetRequest.SamplingLevelEnum.DEFAULT
request.MaxResults = 10000
If Not filters = "" Then
request.Filters = filters
End If
Dim data As GaData = request.Execute()
Return data
End Function