Мы продолжаем получать указанную ниже ошибку всякий раз, когда пытаемся получить доступ к API для получения текущих номеров пользователей. Я пробовал несколько вещей, но не могу добраться до сути этого. Может ли кто-нибудь пролить свет на то, что не так/отсутствует?
Я должен отметить, что, таким образом, он отлично работает на моем локальном ПК, но не работает на сервере.
Вот ошибка:
Ошибка ConnectToAnalytics: System.Security.Cryptography.CryptographicException: указан недопустимый тип поставщика. в System.Security.Cryptography.Utils.CreateProvHandle (параметры CspParameters, логическое значение randomKeyContainer) в System.Security.Cryptography.Utils.GetKeyPairHelper (CspAlgorithmType keyType, параметры CspParameters, логическое значение randomKeyContainer, Int32 dwKeySize, SafeProvHandle& safeProvHandle, SafeKeyHandle& atKeyHandle) .Cryptography.RSACryptoServiceProvider.GetKeyPair() в System.Security.Cryptography.RSACryptoServiceProvider..ctor(Int32 dwKeySize, параметры CspParameters, логическое значение useDefaultKeySize) в System.Security.Cryptography.X509Certificates.X509Certificate2.get_PrivateKey() в Google.Apis.Auth. OAuth2.ServiceAccountCredential.Initializer.FromCertificate(сертификат X509Certificate2) в C:\Users\mdril\Documents\GitHub\google-api-dotnet-client\Src\GoogleApis.Auth.DotNet4\OAuth2\ServiceAccountCredential.cs:строка 100 в Core. Подключить к аналитике()
Эта ошибка возникает, когда я запускаю код:
Public Shared Function GetRealtimeUsers() As String
Try
'realtime on site
Dim gsService As AnalyticsService = Core.ConnectToAnalytics
Dim RequestRealtime As DataResource.RealtimeResource.GetRequest = gsService.Data.Realtime.[Get]([String].Format("ga:{0}", "xxxxx"), "rt:activeUsers")
Dim feed As RealtimeData = RequestRealtime.Execute()
Return Int(feed.Rows(0)(0)).ToString()
Catch ex As Exception
Return "QUOTA USED"
End Try
Здесь ошибка: RequestRealtime.Execute()
Для справки - вот скрипт подключения:
Public Shared Function ConnectToAnalytics() As AnalyticsService
Try
Dim scopes As String() = New String() {AnalyticsService.Scope.Analytics, AnalyticsService.Scope.AnalyticsEdit, AnalyticsService.Scope.AnalyticsManageUsers, AnalyticsService.Scope.AnalyticsReadonly}
Dim keyFilePath = HttpContext.Current.Server.MapPath("\xxx.p12")
Dim serviceAccountEmail = "xxx"
Dim certificate = New X509Certificate2(keyFilePath, "xxxx", X509KeyStorageFlags.Exportable)
Dim credential = New ServiceAccountCredential(New ServiceAccountCredential.Initializer(serviceAccountEmail) With {.Scopes = scopes}.FromCertificate(certificate))
Return New AnalyticsService(New BaseClientService.Initializer() With {.HttpClientInitializer = credential, .ApplicationName = "Client for xxx"})
Catch ex As Exception
Core.SendAdminStatusReport("ConnectToAnalytics error: " & ex.ToString)
Throw ex
End Try
End Function