perl WbemScripting.SWbemLocator, perl WbemScripting.SWbemLocator security

->

OLE ConnectServer method does not return, Using Perl with WMI to set folder level permissions, Calling process-GetOwner in win32 API,

$lobj = Win32::OLE->new('WbemScripting.SWbemLocator') or
  die "can't create locator:".Win32::OLE->LastError()."\n";

$lobj->{Security_}->{impersonationlevel}= 3 ;
[download]

See also this collection of win32 tutorials/examples/tips