[WSDL / VB] Pb d'authentification

Pb d'authentification [WSDL / VB] - VB/VBA/VBS - Programmation

Marsh Posté le 06-03-2010 à 18:36:01    

Bonjour,
 
Je débute dans les web services et je m'arrache déjà les cheveux :pt1cable: , alors avant de devenir chauve, je m'en remets à vous  :sol:  
 
Je suis en train de monter un site web de vente en ligne et l'un des fournisseurs propose l'accès à son catalogue par WSDL/SOAP. J'ai compris tout l'intérêt de la chose pour faciliter la saisie des 12000 références...
Les ennuis commencent quand je cherche à utiliser le web service avec Excel pour stocker les réponses. Le serveur du fournisseur requiert une authentification et je n'arrive pas à la fournir par code VB.
 
Voilà l'@ du serveur WSDL du fournisseur :
https://portal.velleman.eu/ServiceP [...] .asmx?WSDL
 
Voilà le code VB :

Code :
  1. Private Sub Class_Initialize()
  2.     '*****************************************************************
  3.     'This subroutine will be called each time the class is instantiated.
  4.     'Creates sc_ComplexTypes as new SoapClient30, and then
  5.     'initializes sc_ComplexTypes.mssoapinit2 with WSDL file found in
  6.     'https://portal.velleman.eu/ServicePortal/WebServices/ProductServices.asmx?WSDL.
  7.     '*****************************************************************
  8.     Dim str_WSML As String
  9.     Dim strBasicAuth As String
  10.     Dim strUsername As String
  11.     Dim strPassword As String
  12.    
  13.     str_WSML = ""
  14.     Set sc_ProductService = New SoapClient30
  15.     strUsername = "gloriarglouglou"
  16.     strPassword = "unPassword"
  17.    
  18.     sc_ProductService.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE
  19.     sc_ProductService.ConnectorProperty("AuthUser" ) = strUsername
  20.     sc_ProductService.ConnectorProperty("AuthPassword" ) = strPassword
  21.     sc_ProductService.ConnectorProperty("WinHTTPAuthScheme" ) = 24  '1
  22.    
  23.     'Use the proxy server defined in Internet Explorer's LAN settings by
  24.     'setting ProxyServer to <CURRENT_USER>
  25.     sc_ProductService.ConnectorProperty("ProxyServer" ) = "<CURRENT_USER>"
  26.     'Autodetect proxy settings if Internet Explorer is set to autodetect
  27.     'by setting EnableAutoProxy to True
  28.     sc_ProductService.ConnectorProperty("EnableAutoProxy" ) = True


 
 
Merci pour votre aide !


---------------
Mon principal défaut, c'est de croire que je n'ai que des qualités. Ma principale qualité, c'est de ne connaitre que mon principal défaut. (Geluck)
Reply

Marsh Posté le 06-03-2010 à 18:36:01   

Reply

Marsh Posté le 08-03-2010 à 18:51:33    

Bonjour,
 
Pour compléter l'appel au secours, voilà une capture d'écran de l'erreur VB :
http://img1.imagilive.com/0310/erreur_SOAP874.JPG
 
Merci pour vos conseils !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed