Hello list,
just a few tweaks for the win2ksp3-notips.pl. I hope you find it usefull:
# Delete program for creating internet connection wizard icon on desktop
foreach my $reg_key ($cuser_key, $defuser_key, $ntuser_key) {
my $path = "$soft_ms/Windows/CurrentVersion/Runonce//^SetupICWDesktop";
my $value = delete $reg_key->{$path}
or die "Unable to delete ", $reg_key->Path, "$path $^E";
}
# Delete program for loading international icon in system tray
foreach my $reg_key ($cuser_key, $defuser_key, $ntuser_key) {
my $path = "$soft_ms/Windows/CurrentVersion/Run//internat.exe";
my $value = delete $reg_key->{$path}
or die "Unable to delete ", $reg_key->Path, "$path $^E";
}
# Disable My Documents Icon on Desktop
foreach my $reg_key ($cuser_key, $defuser_key, $ntuser_key) {
my $path =
"$soft_ms/Windows/CurrentVersion/Explorer/CLSID/{450D8FBA-AD25-11D0-98A8-0800361B1103}/ShellFolder//Attributes";
my $value = [ pack('L', 0xf0500174), REG_DWORD ];
($reg_key->{$path}) = $value
or die "Unable to set ", $reg_key->Path, "$path to $value: $^E";
}
Best regards,
Stefan Speckenheuer
-------------------------------------------------------
This SF.net email is sponsored by: Tablet PC.
Does your code think in ink? You could win a Tablet PC.
Get a free Tablet PC hat just for playing. What are you waiting for?
http://ads.sourceforge.net/cgi-bin/redirect.pl?micr5043en
_______________________________________________
unattended-info mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unattended-info
