Greetings,

I'm having some difficulty calling the Win32 API function CoInitializeSecurity() from Perl. I'm using ActiveState Perl 5.8.3 and the Win32::API module. The COM objects I need to talk to require impersonation and, according to the docs, I can do this with the aforementioned function. However, translating the C/VB docs into a Win32::API call has proven a bit beyond my humble powers. Has anyone successfully called this OLE32.DLL function successfully from Perl? My target platform is Server 2003, but this function is available on earlier platforms.

Here's my sloppy test harness:

use strict;
use Data::Dumper;
use Win32::API;

print "Setting COM security\n";

# CoInitilizeSecurity defined : 
# http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com
+/htm/cmf_a2c_8ayh.asp

my $CoInit = Win32::API->new( "OLE32.DLL",
                              "CoInitializeSecurity"
                              # input prototypes
                              # 1 P, # Access perms
                              # 2 N, # num of els in asAuthSvr
                              # 3 P, # array of auth services
                              # 4 P, # reserved
                              # 5 N, # default auth level
                              # 6 N, # proxy impersonation level
                              # 7 P, # sole auth list 
                              # 8 N, # add'l capabilities
                              # 9 P, # reserved
                              "PNPPNNPNP",
                              "N",  # return
                             ) or warn "Can't get DLL";

my $NULL = 0;
my $RPC_C_AUTHEN_NONE = 0;
my $RPC_C_AUTHEN_LEVEL_NONE = 1;
my $RPC_C_IMP_LEVEL_IMP     = 3;
my $EOAC_NONE = 0;

my $result = $CoInit->Call( $NULL,
                            0,
                            $RPC_C_AUTHEN_NONE,
                            $NULL,
                            $RPC_C_AUTHEN_LEVEL_NONE,
                            $RPC_C_IMP_LEVEL_IMP,
                            $NULL,
                            $EOAC_NONE,
                            $NULL,
                           );

# $result = -2147221008
if ($result != 0){
  warn "Oops: ", Dumper($result), "\n";
}

print "done\n";
[download]

Also note that I have tried Win32::API::Prototype but it fails to translate the return argument and the first parameter. Any suggestions as to how I might crack this nut would be met with warm appreciation.

Thank you for your time.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.