[VBS – TIP] – Consumare un Web Service da VBS

Tramite VB Scripts è anche possibile (in maniera un pochino limitata) invocare Web Services.
Nell’esempio ci connetteremo a un servizio di traduzione offerto da Altavista(http://www.altavista.com).
Questo servizio web permette, senza scrivere una riga di codice, di avere a disposizione un potente strumento di traduzione da inserire nelle vs. applicazioni.
Il servizio lo abbiamo trovato consultando un elenco pubblico di WebServices che risiede sul sito :” http://www.xmethods.net“.
Codice di implementazione della SP di Esempio :

Public Function Main()

Dim objSOAP,Risultato;

Set objSOAP=CreateObject(“MSSOAP.SoapClient”)
 sWSDLPath = “http://www.xmethods.net/sd/BabelFishService.wsdl”;

objSOAP.ClientProperty(“ServerHTTPRequest”) = True;

objSOAP.mssoapinit sWSDLPath, “BabelFish”, “BabelFishPort”;

stringa = InputBox(“Inserire la frase”);

Risultato = objSOAP.babelfish(“en_it”,stringa)
 MsgBox(Risultato)

End Function Main()