German Zertifikat Problem bei REST Aufruf

Discussion in 'German Forum' started by rebuz, Jul 27, 2019.

  1. rebuz

    rebuz Member Licensed User

    Hallo,
    ich versuche via einem Httpjob eine Rest API anzusprechen.
    leider bekomme ich immer die gleiche Meldung:

    ResponseError. Reason: javax.net.ssl.SSLHandshakeException: java.security.cert.CertPathValidatorException: Trust anchor for certification path not found., Response:

    aus meiner Sicht müsste ich die Zertifikatsprüfung ausschalten können. leider habe ich noch kein weg gefunden dies mit diesem Code zu umgehen.



    Code:
    Sub GetOU()

        
    Dim j As HttpJob
        
    Dim ret As String
        j.Initialize(
    "", Me) 'name is empty as it is no longer needed
        ret= url & "endpoints.json"
        ret=
    "https://192.168.7.122/bConnect/info.json"
        j.Username=
    "administrator"
        j.Password=
    "******"
        j.Download(ret)

        
        
    Wait For (j) JobDone(j As HttpJob)
        
    If j.Success Then
            
    'The result is a json string. We parse it and log the fields.
            Dim jp As JSONParser
            jp.Initialize(j.GetString)
            
    Dim quotes As List = jp.NextArray
            
    For Each quot As Map In quotes
                
    Log("Title: " & quot.Get("title"))
                
    Log("Content: " & quot.Get("content"))
            
    Next
        
    End If
        j.Release
    End Sub

    in der REST Dokumentation ist ein beispiel wie es mit einem VBS Skript geht. (siehe setOption)

    Code:
    url = "https://" & server & "/bConnect/" & version & "/" & controller & "." & outputformat & attribues
    'request
    httpObj.Open "GET", url, False, user, password
    httpObj.setOption 
    213056 'suppress cert warning
    httpObj.SetRequestHeader "pragma""no-cache" 'avoid caching
    httpObj.SetRequestHeader "Cache-Control""no-cache, no-store" 'avoid caching
    httpObj.send
    'HTTP status codes: 200=OK; 400=bad request; 403=unauthorized; 500=internal server error;
    plot = "HTTPS response status code: " & httpObj.Status & vbCrLf & vbCrLf

    bin für jeden hinweis Dankbar.

    Gruss Remo
     
  2. rebuz

    rebuz Member Licensed User

Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice