Hi all!
I wrote a script which extends the PATH environment in the registry
of Winnt and Win2k. The only problem I have is, how can I activate
the path without loggin out or rebooting the system?
[**script**]
use Win32::Registry;
my $Key;
my $KeyName = "SYSTEM\\CurrentControlSet\\Control\\Session
Manager\\Environment";
my $Value = "Path";
my $newpath = "c:\\programme\\jre\\1.3.1\\bin";
if ($HKEY_LOCAL_MACHINE->Open($KeyName, $Key)) {
my ($DataType, $Data);
if ($Key->QueryValueEx($Value, $DataType, $Data)) {
if ((REG_SZ == $DataType) || (REG_EXPAND_SZ == $DataType)) {
if (! ($Data =~ m/c:\\programme\\jre\\1.3.1\\bin/)) {
print "Value not set, create it..\n";
$Data = "$Data;$newpath";
$Key->SetValueEx($Value, 0, $DataType, $Data);
}else{
print "Value allready exists!\n";
print "$Data";
}
}
}
$Key->Close || warn "Can't close registry!\n";
}
[**script**]
Any help will be greatly appriciated.
Alex
--
Alexander Apprich Phone +49 (0)7071-9457-291
science + computing ag FAX +49 (0)7071-9457-211
Hagellocher Weg 73
D-72070 Tuebingen Email: [EMAIL PROTECTED]
You think that everybody is the same.
I don't think anybody is like you.
Just think about it... you'll get it... (Limp Bizkit: Re-arranged)
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
