sub GetNamedSecurityInfo {
	my($pObjectName, $ObjectType, $SecurityInfo) = @_;

	print "Raw.pm - pObjectName = $pObjectName.\n";
	print "Raw.pm - ObjectType = $ObjectType.\n";
	print "Raw.pm - SecurityInfo = $SecurityInfo.\n";
	$Win32::API::DEBUG = 1;
	$call ||= Win32::API->new('advapi32', 'GetNamedSecurityInfo', [qw(P I I P P P P P)], 'I') or Carp::croak("Unable to connect to GetNamedSecurityInfo.");
	
	print "Raw.pm - new Win32::API succeeded\n";
	$ObjectType = &Win32::Security::SE_OBJECT_TYPE->build_mask($ObjectType);
	print "Raw.pm - obtained objectType = $ObjectType.\n";
	$SecurityInfo = &Win32::Security::SECURITY_INFORMATION->build_mask($SecurityInfo);
	print "Raw.pm - obtained security info\n";
	my($ppsidOwner, $ppsidGroup, $ppDacl, $ppSacl, $ppSecurityDescriptor) = ("\0"x4) x 5;

	my $retval = $call->Call($pObjectName, int($ObjectType),
			$SecurityInfo, $ppsidOwner, $ppsidGroup, $ppDacl, $ppSacl, $ppSecurityDescriptor);
	print "Raw.pm - retVal set\n";
	$retval and Carp::croak(&_format_error('GetNamedSecurityInfo', $retval));

	foreach ($ppsidOwner, $ppsidGroup, $ppDacl, $ppSacl, $ppSecurityDescriptor) {
		$_ = unpack("V", $_);
	}

	print "$ppsidOwner, $ppsidGroup, $ppDacl, $ppSacl, $ppSecurityDescriptor.\n";
	return($ppsidOwner, $ppsidGroup, $ppDacl, $ppSacl, $ppSecurityDescriptor);
}