sourcecode
ralfthewise
The code is in three parts. Genericreg.pl, regentry.pm, and reglist.pm.
Genericreg.pl
<CODE>
##############################################################################
# John McKee
# 6/01/2001
#
# GenericReg Edits Version 1
#
# Files:
# 1. Genericreg.pl
# 2. Regentry.pm
# 3. Reglist.pm
#
# Standard Registry Edits
# 1. Command Prompt from Explorer
# 2. Personalized Bitmap at Logon
# 3. Don't Display Last User at Logon
#
# Build Perl version 5.6.1
#
# Contents Genericreg.pl:
# 1. Gui
# 2. 6 Subfunctions for registry edits
#
##############################################################################
use Tk;
use Tk::Menubutton;
use Tk::Canvas;
use Win32::Registry;
use regentry;
use reglist;
my ($hkey,$SubKey);
$call_entry = regentry->new();
$call_list = reglist->new();
gui();
###################################################################################
#GUI
###################################################################################
sub gui
{
my $top = MainWindow->new();
$top->title('Generic Registry Edits');
#menubar frame widget
$menu = $top->Frame(-relief=>"raised", -borderwidth=>2);
#end menubar
#pulldowns in menubar
$menu_pulldown1 = $menu->Menubutton(-text=>"File", -underline=>0);
$menu_pulldown2 = $menu->Menubutton(-text=>"Custom", -underline=>0);
#end pulldowns
#pulldown commands for file menu
# $menu_pulldown1->command(-label=>"Open", -command=>sub{open_choice()});
# $menu_pulldown1->separator();
$menu_pulldown1->command(-label =>"Exit", -command=>sub{exit 0});
#end pulldown commands for file menu
#pulldown commands for the custom menu
$menu_pulldown2->command(-label=>"Create Custom Edits", -command=>sub {$call_entry->Gui()});
$menu_pulldown2->separator();
$menu_pulldown2->command(-label=>"List Custom Edits", -command=>sub {$call_list->Gui()});
$menu_pulldown2->separator();
#$menu_pulldown2->command(-label=>"Commit Changes from List", -command=> sub{commit_changes()});
#end pulldown commands for custom menu
#Buttons
$button1 =$top->Button(-text =>"Command Prompt Open from Explorer", -foreground=>"red", -command =>sub{c_prompt()});
$button2 =$top->Button(-text =>"Don't Show Last User", -foreground=>"red", -command => sub{last_user()});
$button3 =$top->Button(-text =>"Personalized Logon Bitmap", -foreground=>"red", -command =>sub{bitmap()});
$button_undo_1 =$top->Button(-text =>"Undo Prompt", -foreground=>"blue", -command=>sub{undo_c_prompt()});
$button_undo_2 =$top->Button(-text =>"Undo Last User", -foreground=>"blue", -command=>sub{undo_last_user()});
$button_undo_3 =$top->Button(-text =>"Undo Bitmap", -foreground=>"blue", -command=>sub{undo_bitmap()});
#end Buttons
#Label Area
$label = $top->Label(-text => "Non-Critical Registry Edits", -background=>"DarkSlateGray3", -relief=>"groove", -width=>"30", -height=>"4", -font=>"{Times New Roman} 12 {normal}");
#end Label Area
#text for info button
$menu_popup = $menu->Button(-text=>"Help", -underline=>0, -relief=>"flat",-command => sub
{
$newtop = $top->Toplevel();
$newtop->title('Copyright Info');
$copyright = $newtop->Button(-text=>"Copyright Info",-command =>sub {system "notepad copyright.txt"});#this button opens a notepad file with instructions
$copyright->pack();
$help = $newtop->Button(-text=>"Help", -command=> sub {system "notepad front_help.txt"});
$help->pack();
$canvas = $newtop->Canvas();
$canvas->pack();
});
#end text for info button
#packs
$menu->pack(-side=>'top', -fill=>'x');
$menu_pulldown1->pack(-side,'left');
$menu_pulldown2->pack(-side,'left');
$menu_popup->pack(-side,'right');
$label->pack(-side=>"top",-fill=>"x");
$frame1 =$top->Frame()->pack(-fill=>"x",-pady=>"2.5p"); #pack frames and pady 2.5 pixels
$frame2 =$top->Frame()->pack(-fill=>"x",-pady=>"2.5p"); # "
$frame3 =$top->Frame()->pack(-fill=>"x",-pady=>"2.5p"); # "
$button1 =$frame1->Button(-text =>"Command Prompt Open from Explorer", -foreground=>"red", -command =>sub{c_prompt()})->pack(-side=>"left",-fill=>"x");
$button_undo_1 =$frame1->Button(-text =>"Undo Prompt", -foreground=>"blue", -command=>sub{undo_c_prompt()})->pack(-side=>"right",-fill=>"x");
$button2 =$frame2->Button(-text =>"Don't Show Last User", -foreground=>"red", -command => sub{last_user()})->pack(-side=>"left",-fill=>"x");
$button_undo_2 =$frame2->Button(-text =>"Undo Last User", -foreground=>"blue", -command=>sub{undo_last_user()})->pack(-side=>"right",-fill=>"x");
$button3 =$frame3->Button(-text =>"Personalized Logon Bitmap", -foreground=>"red", -command =>sub{bitmap()})->pack(-side=>"left",-fill=>"x");
$entry1 = $frame3->Entry(-textvariable => \$location, -background=>"DarkSlateGray3", -borderwidth=>4)->pack(-side=>"left");
$button_undo_3 =$frame3->Button(-text =>"Undo Bitmap", -foreground=>"blue", -command=>sub{undo_bitmap()})->pack(-side=>"right",-fill=>"x");
#end packs
MainLoop;
}
#End Gui
#**********************************************************************************
# Standard edits, utilizing the Perl module Win32::Registry.
# The custom edits in regentry.pm create/utilize *.reg files,
# (Standard formating of *.reg files).
sub c_prompt
{
###################################################################################
#Command Prompt from Windows Explorer Right Click
###################################################################################
my $Register = "Directory\\Shell";
$HKEY_CLASSES_ROOT->Open($Register,$hkey)|| die $!;
$hkey->SetValue("CommandPrompt",REG_SZ,"Command Prompt Here");
$hkey->Close();
my $Register2 = "Directory\\Shell\\CommandPrompt";
my $commandp = "cmd.exe /k cd %1";
$HKEY_CLASSES_ROOT->Open($Register2,$hkey)||die $!;
$hkey->SetValue("command",REG_SZ,$commandp);
$hkey->Close();
#**********************************************************************************
}
sub last_user
{
###################################################################################
#Don't Display Last User Name
###################################################################################
my $Register3 = "Software\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon";
undef $garbage;
$HKEY_LOCAL_MACHINE->Open($Register3,$hkey)||die $!;
$hkey->SetValueEx("DontDisplayLastUserName",$garbage,REG_SZ,"1");
$hkey->Close();
#**********************************************************************************
}
sub bitmap
{
###################################################################################
#Change Logon Bitmap
###################################################################################
my $Register4 = ".DEFAULT\\Control Panel\\Desktop";
my $bitmap_path = "$location"; # replace '?' with path to desired .bmp. Use entry box.
my $LogonBitmap = $bitmap_path;
$HKEY_USERS->Open($Register4,$hkey)||die $!;
$hkey->SetValueEx("Wallpaper",$garbage,REG_SZ,$LogonBitmap);
#**********************************************************************************
}
sub undo_c_prompt
{
###################################################################################
#Undo Command Prompt from Explorer
###################################################################################
$register6="Directory\\Shell\\CommandPrompt";
$HKEY_CLASSES_ROOT->Open($register6,$hkey)||die $!;
$hkey->DeleteKey ("Command");
$hkey->Close();
$register6="Directory\\Shell";
$HKEY_CLASSES_ROOT->Open($register6,$hkey)||die $!;
$hkey->DeleteKey ("CommandPrompt");
$hkey->Close();
#**********************************************************************************
}
sub undo_last_user
{
###################################################################################
#Undo Show Last User
###################################################################################
$register7="Software\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon";
$HKEY_LOCAL_MACHINE->Open($register7,$hkey)||die $!;
$hkey->DeleteValue ("DontDisplayLastUserName");
$hkey->Close();
#**********************************************************************************
}
sub undo_bitmap
{
###################################################################################
#Undo Logon Bitmap
###################################################################################
$register8=".DEFAULT\\Control Panel\\Desktop";
$HKEY_USERS->Open($register8,$hkey)||die $!;
$hkey->DeleteValue ("Wallpaper");
$hkey->Close();
#**********************************************************************************
}
</CODE>
regentry.pm
<CODE>
##############################################################################
#John McKee
#regentry.pm
#
#
# This is an extension program to genericreg.pl
# 1. This is a GUI which allows the user to
# create a set of custom registry edits
# and save those edits to a file.
#
# Unresolved Issues
# 1. In-Depth Help File
# 2. Clear all entry boxes when a new radiobutton is pushed
#
##############################################################################
package regentry;
use Tk;
use Tk::Menubutton;
use Tk::Canvas;
use Tk::Entry;
use Tk::Radiobutton;
#Constructor
sub new
{
bless{};
}
#end constructor
sub Gui
{
#Gui, Title, and Warning Label
$top = MainWindow->new();
$top->title('Custom Registry Edits');
$label = $top->Label(-text => "REALLY!\n Don't do this unless you know\n what you're doing or willing\n to suffer the chaos that\n can ensue from monkeying\n with the all mighty registry hive!", -background=>"DarkSlateGray3", -relief=>"groove", -width=>"32", -height=>"6", -font=>"{Times New Roman} 12 {normal}")->pack();
#end Gui, Title, and Warning Label
#RadioButtons for desired registry hive
$top->Radiobutton (-text => "HKEY_CLASSES_ROOT", -variable=>\$regkey, -value=>"HKEY_CLASSES_ROOT", -activeforeground=>"blue")->pack();
$top->Radiobutton (-text => "HKEY_CURRENT_USER", -variable=>\$regkey, -value=>"HKEY_CURRENT_USER", -activeforeground=>"blue")->pack();
$top->Radiobutton (-text => "HKEY_LOCAL_MACHINE", -variable=>\$regkey, -value=>"HKEY_LOCAL_MACHINE", -activeforeground=>"blue")->pack();
$top->Radiobutton (-text => "HKEY_USERS", -variable=>\$regkey, -value=>"HKEY_USERS", -activeforeground=>"blue")->pack();
$top->Radiobutton (-text => "HKEY_CURRENT_CONFIG", -variable=>\$regkey, -value=>"HKEY_CURRENT_CONFIG", -activeforeground=>"blue")->pack();
$top->Radiobutton (-text => "HKEY_DYN_DATA", -variable=>\$regkey, -value=>"HKEY_DYN_DATA", -activeforeground=>"blue")->pack();
#end RadioButtons for desired registry hive
#Labels for Custom Edits
$regedit = "Enter the registry hive you wish to edit:";
$create_key = "Enter name of key to create/edit:";
$create_value = "Enter name of value to create/edit:";
$memo ="Name for this change:";
#end Labels
#Separate Frames for better look
$frame4 =$top->Frame()->pack();
$frame1 =$top->Frame()->pack();
$frame2 =$top->Frame()->pack();
$frame3 =$top->Frame()->pack();
#end Frames
#Label and Entry Boxes with packing
$label1 = $frame1->Label(-textvariable => \$regedit)->pack(-side=>"left");
$entry1 = $frame1->Entry(-textvariable => \$text)->pack(-side=>"left");
$label2 = $frame2->Label(-textvariable => \$create_key)->pack(-side=>"left");
$entry2 = $frame2->Entry(-textvariable => \$text2)->pack(-side=>"left");
$label3 = $frame3->Label(-textvariable => \$create_value)->pack(-side=>"left");
$entry3 = $frame3->Entry(-textvariable => \$text3)->pack(-side=>"left");
$label4 = $frame4->Label(-textvariable => \$memo)->pack(-side=>"left");
$entry4 = $frame4->Entry(-textvariable => \$name)->pack(-side=>"left");
#end Label and Entry Boxes
#Buttons Save, Close, Help
#Note: Save button also clears entry boxes
$top->Button(-text=>"Save RegEdits to a File", -foreground=>"blue", -command=>sub{save(),$entry1->delete( 0, 'end' ),$entry2->delete( 0, 'end' ),$entry3->delete( 0, 'end' ),$entry4->delete( 0, 'end' )})->pack(); #sub to save selections
$top->Button(-text=>"Close", -foreground=>"blue", -command=> sub {$top->destroy()})->pack();
$top->Button(-text=>"Help (Don't be afraid to use this)", -foreground=>"white", -background=>"red", -command=>sub {system "notepad regentry_hlp.txt"})->pack();
#end Buttons
MainLoop;
}
#End Gui
#*****************************************************************************
##########################################################################
#Filehandler for the custom edits
#Creates *.reg files based on the name & values given in the entry gui
##########################################################################
sub save ()
{
open (FD, ">$name.reg")||die "Unable to open storage file";
print FD "REGEDIT4\n\n[$regkey\\$text]\n\"$text2\"=\"$text3\"\n";
close (FD);
}
#*************************************************************************
return 1;
</CODE>
and finally reglist.pm
<CODE>
##############################################################################
#John McKee
#reglist.pm
#
#
# This is an extension program to genericreg.pl
# 1. This creates a listbox from *.reg's in pwd,
# which were created by the user via
# custom registy edits.
# 2. It lists the name of the regstry edits that
# the user requires and allows that user
# to select more than one, if so desired.
# And allow the user to delete edits no
# longer required
#
##############################################################################
package reglist;
use Tk;
#Constructor
sub new
{
bless{};
}
#end Constructor
sub Gui
{
undef(@selections);
my $top = MainWindow->new();
$top->title('Listing of Custom Registry Edits');
#Listbox widget
$listbox = $top->ScrlListbox(-label=>"Custom Edits", -height=>6, -selectmode =>"extended", -background=>"DarkSlateGray3");
#end listbox widget
#Buttons (Exit, Delete, and Select)
$exitbutton = $top->Button(-text =>"Exit", -command=>sub {$top->destroy()});
$deletebutton = $top->Button(-text=>"Delete", -command=>\&del_selection);
$selectbutton = $top->Button(-text=>"Select", -command=>\&proc_selection);
$okbutton = $top->Button(-text=>"Commit Changes", -command=>\&commit_changes);
#end buttons
#Sunken Selection Frame
$frame = $top->Frame(-relief =>"ridge", -relief=>"raised", -borderwidth =>4, -background=>"DarkSlateGray4");
$label = $frame->Label(-text =>"Selected: ",-background=>"DarkSlateGray3");
$entry = $frame->Label(-textvariable => \$seltext, -relief=>"sunken", -background=>"white");
#end Frame
#packs
$listbox->pack(-fill=>"both", -expand=>"yes");
$exitbutton->pack(-side=>"left");
$selectbutton->pack(-side=>"left");
$deletebutton->pack(-side=>"right");
$okbutton->pack(-side=>"right");
$frame->pack(-side=>"right", -anchor=>"se",-expand=>"yes",-fill=>"x");
$label->pack(-side=>"left");
$entry->pack(-side=>"left");
#end packs
##########################################################################
# Gets all *.reg files from pwd an insert into listbox
##########################################################################
open (FD, "dir /B *.reg |") || die "Unable to read";
while (<FD>)
{
chop; #Cut newline
$listbox->insert("end","$_"); #pull *.reg's into listbox
}
close (FD);
#*************************************************************************
$seltext=proc_selection();
MainLoop;
}
sub proc_selection
{
##########################################################################
# Store the selections the user makes
##########################################################################
$seltext=join(', ',$listbox->Getselected);
push (@selections,$listbox->Getselected); #stored in @selections
#*************************************************************************
}
sub del_selection
{
##########################################################################
# Deletes selected Registry edits
##########################################################################
$del_choice = $listbox->get('active'); #gets highlighted selection(s)
$listbox->delete('active'); #deletes from listbox
system ("erase $del_choice"); #deletes from directory
#*************************************************************************
}
sub commit_changes
{
##########################################################################
# Reads selection list from the list box and commits those changes
# to the registry after the user hits the commit changes button
##########################################################################
foreach (@selections)
{
system ($_); #uses crackjack $_ to run
} #each *.reg selected
#*************************************************************************
}
return 1;
</CODE>
The is a gui driven registry editor for network admins. It allows admins to create standard registry edits for workstation builds, maintenance, etc.
NT Admin, GUI Programming
John McKee
ralfthewise@hotmail.com