Help for this page

Select Code to Download


  1. or download this
    my $SysEnv= $Reg->connect("$Host", "LMachine/System/CurrentControlSet/
+" . 
  "Control/Session Manager/Environment/")
  or die "Can't connect to $Host 's registry or can't open Registry ke
+y," .
    " Session Manager/Environment: $^E\n";
  2. or download this
    my $SysEnv= $Reg->{"//$Host/LMachine/System/CurrentControlSet/" . 
  "Control/Session Manager/Environment/"} # no connect, use {}, not ()
  or die "Can't connect to $Host 's registry or can't open Registry ke
+y," .
    " Session Manager/Environment: $^E\n";