I can't give you a direct answer, but maybe you'd like to try SOAP::Lite
instead. It's cross-platform (may not be relavant), and it has worked on
both Java and C# web services.
Briggs, Larry wrote:
> Hi I am trying to convert the following VB script webservice call into perl
> I am trying to use Win32::OLE. Can this be done and if it can how would I go
> about doing this. I have provided the Perl code that I have tried to write
> so far. Any help that you can provide to point me in the right direction.
>
> Const appUserID = "ServiceID"
> Const password = "ServicePass"
> Const appTokenName = "TokenName"
> encryptedToken = Request.Cookies("Cookies")
> ' set up data to post to web service
> postData = ""
> postData = postData & "userID=" & appUserID
> postData = postData & "&password=" & password
> postData = postData & "&encryptedToken=" & encryptedToken
>
> ' set URL to web service method
> decryptWebServiceURL =
> "https://Webserver/decryptTokenService/decryptToken.asmx/decryptToken";
>
> ' create ServerXMLHTTP object
> Set oServXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
>
> ' initialize ServerXMLHTTP object
> Call oServXMLHTTP.open("POST", decryptWebServiceURL, False)
>
> ' set ServerXMLHTTP header to post data
> Call oServXMLHTTP.setRequestHeader("Content-Type",
> "application/x-www-form-urlencoded")
>
> ' send request to web service
> Call oServXMLHTTP.send(postData)
>
> ' retrieve results from web service
> Set decryptToken = oServXMLHTTP.responseXML
>
> ' destroy ServerXMLHTTP object
> Set oServXMLHTTP = Nothing
>
> Perlcode
> #!perl -w
> use strict;
> use CGI qw/:standard/;
> use CGI::Cookie;
> use CGI::CARP qw(fatalsToBrowser);
> use MIME::Base64;
> $GopaxCookie = $Cookies{"GOPAX"};
> my $ServiceID = "ServiceID";
> my $PassWd = "ServicePass";
> use Win32::OLE qw(in with);
> my $Postdata ="";
> $Postdata = $Postdata."userID=". $ServiceID ;
> $Postdata = $Postdata."password=". $PassWd ;
> $Postdata = $Postdata."encryptedToken=". $GopaxCookie;
> my $decryptWebServiceUrl =
> "https://Webserver/decryptTokenService/decryptToken.asmx/decryptToken";;
>
> my $DOM = Win32::OLE->new('MSXML2.ServerXMLHTTP') or die "new() failed";
> $DOM->open("POST",$decryptWebServiceUrl, "FALSE");
>
> $DOM->setRequestHeader("Content-Type","application/x-www-form-urlencoded");
> $DOM->send($Postdata);
> my $Results = $DOM->responseXML;
>
> Thanks
> Larry
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
