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

$lobj->{Security_}->{impersonationlevel}= 3 ;