RE: TieRegistry

[Napier, Ed]

Here's a subroutine that I've used before to edit the LSA remotely.

 

sub EditLsa
 {

 

   my $system=shift;

 

 my $Registry;
     use Win32::TieRegistry  (
        TiedRef => \$Registry,  Delimiter => "/",
        SplitMultis => 1 );

 

  

 

   $key = $Registry->{"//$system/LMachine/System/CurrentControlSet/Control/Lsa"}
 or print $^E;
    my $providers=$key->{"Authentication Packages"};

 

    print "$system BEFORE @$providers\n";

 

    my @LIST= grep !/TivoliAP/,  @$providers;

 

    splice(@LIST,1,0,"TivoliAP");
    print "$system AFTER @LIST\n";
    $key->{"Authentication Packages"} = [ \@LIST,  "REG_MULTI_SZ"  ];

 

 } # End routine EditLsa

 

 

-----Original Message-----
From: Eric Hennessey [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, November 20, 2002 10:38 AM
To: [EMAIL PROTECTED]
Subject: FW: TieRegistry

Re-posting due to previously posting to wrong list.

 

-----Original Message-----
From: Eric Hennessey
Sent: Wednesday, November 20, 2002 10:34 AM
To: [EMAIL PROTECTED]
Subject: TieRegistry

Hi all...

 

Does anyone out there have any sample code snippets for using TieRegistry to create keys and update key values, for both local and remote machines?  Any samples would be most appreciated.

 

Thanks!

Eric