Problema al consumir web service en java

[amvt]

Buenas tardes:

Estoy tratando de consumir un servicio web de un tercero, hecho java, aqui la ruta del WS:

http://gw.pre-prod.efact.pe:8585/chocolate20514584789/TransactionService0a0e7c9d909c4d45be3d44af058a4fb3 ?wsdl

Tengo que enviarle el usuario y password mendiante el SOAP HEADER, pero no se como realizar esto desde .net.

Googleando, encontre ejemplos pero en muchos decian que en el WS del tercero deberia tener propiedades de usuario y clave, pero no es asi.

Alguien puede enviarme un ejemplo o utilizar este servicio para hacerlo??? (ojo, que obviamente si utilizan la direccion del WS no se conectaran, porq no puse el usuario y clave, pero lo que necesito es la forma de como hacerlo)

[wwwmaster]

No podria garantizarlo, pero con .net yo me conecto a unos webservices asi, me retornan JSON:

Dim wbrq As HttpWebRequest = HttpWebRequest.Create(URLDELWS)
wbrq.ContentType = "application/json; charset=utf-8" '"application/x-www-form-urlencoded"

2 metodos diferentes:
wbrq.Method = "GET"
o bien:
wbrq.Method = "POST"


Adjuntando datos a la peticion:
'Get the headers associated with the request.

Dim myWebHeaderCollection As WebHeaderCollection = wbrq.Headers
myWebHeaderCollection.Add("sessionId", sessionID)
Dim RequestHttpHeaders As NameValueCollection = New NameValueCollection()

wbrq.Accept = "application/json"
wbrq.UserAgent = ".NET Framework Test Client"


LOS PARAMETROS LOS ENVIO CON UN OBJETO DICTIONARY (SOLO STRINGS x AHORA)
Dim dictionary As New Dictionary(Of String, String)
Dim PARAM1 As String = "XXXX"
Dim PARAM2 As String = "PASSWORD"
Dim PARAM3 As Long = CUSTID

dictionary.Add("username", PARAM1)
dictionary.Add("password", PARAM2)

RECUPERA RESPUESTA
Dim stream As StreamReader
Dim wbrs As HttpWebResponse = wbrq.GetResponse
stream = New StreamReader(wbrs.GetResponseStream, Encoding.GetEncoding("utf-8"))

La siguiente variable contiene la respuesta COMO STRING q luego parseo manualmente ya q por ahora no uso objetos Json en el.net

Dim JSON_respuesta As String = ""
JSON_respuesta = stream.ReadToEnd.Trim