Webservice Call using Win32::OLE

[Briggs, Larry]

 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