Help for this page

Select Code to Download


  1. or download this
    use Win32::TieRegistry;
    $REMOTE= $Registry->Connect( '127.0.0.1','LMachine',{Delimiter=>"\\"} 
    +) or die;
    my $key_to_delete="SYSTEM\\RAdmin\\";
    $REMOTE->{$key_to_delete}->AllowSave( 1 );
    $REMOTE->{$key_to_delete}->RegSaveKey( "C:/test.reg", [] ) or die;
    
  2. or download this
    my $load_to_key=$REMOTE->{"SYSTEM\\"};
    $load_to_key->AllowLoad( 1 );
    $load_to_key->RegLoadKey( "RAdmin", "c:/test.reg" ) or die $^E;