SOAP::Lite client talking to a IIS .NET Web Service

After about 4 hours of messing with different ways to get SOAP::Lite to work with a Microsoft IIS .NET Web Service, we finally found the following sample that made everything work. All attempt to try and do this in one line of code failed. This method also works with the current release of SOAP::Lite and doesn't require the beta version. Every other way we used to call the WebService resulted in us getting a blank variable passed into the WebService, rather than the value we were hoping for. You can get get SOAP::Lite from CPAN. This has been a great way for us to integrate our Unix/Linux tools with new systems we are developing on Windows.

#!/usr/bin/perl
use SOAP::Lite;
my $soap = SOAP::Lite
->uri('http://tempuri.org')
->on_action(sub{sprintf '%s%s', @_ })
->proxy('https://www.example.com/whatever/script.asmx');
my $method = SOAP::Data->name('MethodNameHere')
->attr({xmlns => 'http://tempuri.org/'});
my @params = (
              SOAP::Data->name(PARAMA => "123456789"),
              SOAP::Data->name(PARAMB => "SOMEVALUEHERE"),
              SOAP::Data->name(PARAMC => $DateString),
              SOAP::Data->name(PARAMD => "ABC")
            );
print $soap->call($method => @params) -> result;

The code we actually used

#!/local/mnt/perl/bin/perl -w 
# -- SOAP::Lite -- guide.soaplite.com --  
use SOAP::Lite; 
my $soap =  SOAP::Lite
    -> uri('http://tempuri.org/')
    -> proxy('http://natestconf01.natest.qualcomm.com/wsVacation/wsVacation.asmx')
    -> on_action(sub{sprintf '%s%s', @_ }); 
my $method = SOAP::Data->name('IsOnVacation')->attr({xmlns => 'http://tempuri.org/'}); 
my @params = (
        SOAP::Data->name(strUsername => "testuser40")
        ); 
print $soap->call($method => @params) -> result;

Web Site that I got the solution from

This wasn't on the SOAP::Lite web site, or Microsofts Interoperability Docs.

GUComics – Half Nekkid MMORPG Games…

Hmmm I think I need to get out more. I kinda understand why they allow these characters in WOW and EverQuest II... Sigh...

http://www.gucomics.com/archives/view.php?cdate=20041110
http://www.gucomics.com/archives/view.php?cdate=20041111
http://www.gucomics.com/archives/view.php?cdate=20041112

Ode to Coffee

From the darkness I rise...

My mind still in its grasp...

How to free myself...

Soon I will sip from the sweet nectar...

and for ever be enraptured with its goodness...

oh sweet coffee....

Renaming a CN for a user in Active Directory

I actually found this little bit of code on another site. I don't take credit for it, but have used it quiet succesfully.

The problem with your vbscript is you can't change the cn attribute that way. You actually have to 'create' a new container and do a 'move', sort of. The following code should change all the names in a given OU for you, but please test of course!

Set objOU = GetObject("LDAP://ou=someou,dc=domain,dc=com")
objOU.Filter = Array("user")
For Each objUser In objOU
If objUser.cn = objUser.sn & " " & objUser.GivenName Then
     strNewPath = "CN="& objUser.samaccountname
     strCNName = objUser.cn
     Set cont = GetObject("LDAP://ou=someou,dc=domain,dc=com")
     Set newobj = cont.MoveHere("LDAP://CN="& strCNName &",someou,dc=domain,dc=com", strNewPath)
End If
Next

Original Post

LDAP Tools

There is a great tool for querying LDAP. LDAP Browser from Softerra, they give the browser away for free, if you want to be able to update you have to buy their product. It allows you to connect up to Active Directory and iPlanet to query LDAP information. With this information you can query any property about Distribution Lists, Contacts, Users. Pretty cool. More LDAP code snippets in C# to come.

Calvin and Hobbs – Understanding Art

Reminds me of burning man... but doesn't everything. Warning art shows now going on every day at my house. HAHAHAHA... Luckly I live alone.

Voting 2004

This is how i'm voting in the upcoming election. I'm looking for input if you have it on any of these issues.

www.SDVOTE.com