Web Service mit WS-Security (Oasis) aufrufen

18/05/2010 - 15:10 von Konrad Hammerer | Report spam
Hallo!

Ich möchte gerne einen aus VB.NET heraus einen Web Service aufrufen.
Dazu verwende "Dienstverweis hinzufügen..." + folgenden Code:

Dim test As New ServiceReference1.EGO_ITEM_PUB_PortTypeClient

test.PROCESS_USER_ATTRS_FOR_ITEM(Nothing, Nothing)

Nun bekommen ich folgende Exception:

Missing <wsse:Security> in SOAP Header

Laut WebService-Anbieter muss ich folgendes im SOAP Header mit liefern:

<wsse:Security
xmlns:wsse="http://docs.oasis-open.org/wss/2004...">
<wsse:UsernameToken>
<wsse:Username>MeinUser</wsse:Username>
<wsse:Password
Type="http://docs.oasis-open.org/wss/2004...s</wsse:Password>
</wsse:UsernameToken>
</wsse:Security>

Jetzt meine Frage:

Wie kann ich diesen Abschnitt in meinen oben aufgeführten Request mit
einbauen?

Vielen Dank und viele Grüße,
Konrad
 

Lesen sie die antworten

#1 Peter Fleischer
18/05/2010 - 21:09 | Warnen spam
"Konrad Hammerer" schrieb im Newsbeitrag
news:
Hallo!

Ich möchte gerne einen aus VB.NET heraus einen Web Service aufrufen. Dazu
verwende "Dienstverweis hinzufügen..." + folgenden Code:

Dim test As New ServiceReference1.EGO_ITEM_PUB_PortTypeClient

test.PROCESS_USER_ATTRS_FOR_ITEM(Nothing, Nothing)

Nun bekommen ich folgende Exception:

Missing <wsse:Security> in SOAP Header



Hi Konrad,
bau mal die Authentifizierung ein, z.B. so:

Dim sign As sign.signWS

Private Sub WSInitSign()
Datum.Text = Options.EventDate.ToShortDateString
sign = New sign.signWS
Dim cr As New sign.Authentication
cr.User = UserPassword.GetEncryptedUserName
cr.Password = UserPassword.GetEncryptedPassword
sign.AuthenticationValue = cr
End Sub

Viele Gruesse

Peter

Ähnliche fragen