Internet Explorer and Firefox proxy settings script.

proxy-settings.vbs

use strict;
use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>1 );
&setProxy();
###############
sub setProxy{
    #Set access to use proxy server (IE)
    #http://nscsysop.hypermart.net/setproxy.html
    my $server=shift || "localhost";
    my $port=shift || 8080;
    my $enable=shift || 1;
    my $override=shift || "127.0.0.1;<local>";
    #set IE Proxy
    my $rkey=$Registry->{"CUser/Software/Microsoft/Windows/CurrentVersion/Internet Settings"};
    $rkey->SetValue( "ProxyServer", "$server\:port", "REG_SZ" );
    $rkey->SetValue( "ProxyEnable",pack("L",$enable), "REG_DWORD" );
    $rkey->SetValue( "ProxyOverride", $override, "REG_SZ" );
    #Change prefs.js file for mozilla
    #http://www.mozilla.org/support/firefox/edit
    if(-d "$ENV{APPDATA}\\Mozilla\\Firefox\\Profiles"){
        my $mozdir="$ENV{APPDATA}\\Mozilla\\Firefox\\Profiles";
        opendir(DIR,$mozdir) || return "opendir Error: $!";
        my @pdirs=grep(/\w/,readdir(DIR));
        close(DIR);
        foreach my $pdir (@pdirs){
            next if !-d "$mozdir\\$pdir";
            next if $pdir !~/\.default$/is;
            my @lines=();
            my %Prefs=(
                "network\.proxy\.http" => "\"$server\"",
                "network\.proxy\.http_port" => $port,
                "network\.proxy\.type" => $enable,
                );
            if(open(FH,"$mozdir\\$pdir\\prefs.js")){
                @lines=<FH>;
                close(FH);
                my $cnt=@lines;
                #Remove existing proxy settings
                for(my $x=0;$x<$cnt;$x++){
                    my $line=strip($lines[$x]);
                    next if $line !~/^user_pref/is;
                    foreach my $key (%Prefs){
                        if($line=~/\"$key\"/is){
                            delete($lines[$x]);
                                }
                            }
                        }
                   }
              if(open(FH,">$mozdir\\$pdir\\prefs.js")){
            binmode(FH);
            #print "Writing $mozdir\\$pdir\\prefs.js\n";
            foreach my $line (@lines){
                $line=strip($line);
                   print FH "$line\r\n";
                  }
            foreach my $key (sort(keys(%Prefs))){
                print FH qq|user_pref("$key",$Prefs{$key});\r\n|;
                }
            close(FH);
            return 1;
            }
              }
         }
    return 0;
    }
###############
sub strip{
    #usage: $str=strip($str);
    #info: strips off beginning and endings returns, newlines, tabs, and spaces
    my $str=shift;
    if(length($str)==0){return;}
    $str=~s/^[\r\n\s\t]+//s;
    $str=~s/[\r\n\s\t]+$//s;
    return $str;
    }