RE: How to change the uservariables in Windows 2000

[Messenger, Mark]

Hmm... if you want it to apply on logon, have you considered a custom GPO ADM?  Or a 
quick script that sets the appropriate values under HKCU\Environment?

Just a thought...

-----Original Message-----
From: Bob Gervais [mailto:[EMAIL PROTECTED]
Sent: Friday, November 14, 2003 1:57 AM
To: [EMAIL PROTECTED]
Subject: How to change the uservariables in Windows 2000


Hi,
 
I am trying to change the path in Windows 2000 (terminal server session)
on a per user basis and set a specific variable.
I have tried to use Win32::AdminMisc, but this only changes the path and
the variable during the time the script runs.
 
Is there a way to set the path globally (at logon) so the user can use
during his/her session?
 
Please keep in mind that I am no "real" programmer, just a sysadmin
trying to automate some tasks with perl. 
 
Here is the script I wrote:
 
------------------------------------------------------------------------
---
 
#!perl
 
use win32::adminmisc;
use win32;
use strict;
my $UserLoginName = $ENV{"USERNAME"};
my $Fixed_Path = $ENV{"PATH"};
my $VCSID = uc(substr($UserLoginName,0,3));
Win32::AdminMisc::SetEnvVar("VCSID",$VCSID);
my $UserPath;
 
for ($UserLoginName) 
  {
  if ($UserLoginName eq "domainuser1")     
     {
     $UserPath = $Fixed_Path.";d:\\User1"
     }
  elsif ($UserLoginName eq "domainuser2")   
     {
     $UserPath = $Fixed_Path.";d:\\User2"
     }     
  elsif ($UserLoginName eq "domainuser3")  
     {
     $UserPath = $Fixed_Path.";d:\\User3"
     }     
  elsif ($UserLoginName eq "domainuser4")   
     {
     $UserPath = $Fixed_Path.";d:\\User4"
     }     
  elsif ($UserLoginName eq "domainuser5")  
     {
     $UserPath = $Fixed_Path.";d:\\User5"
     }     
  elsif ($UserLoginName eq "domainuser6")   
     {
     $UserPath = $Fixed_Path.";d:\\User6"
     }
  };
Win32::AdminMisc::SetEnvVar("PATH",$UserPath);

 
------------------------------------------------------------------------
---

Thanx,

Bob


_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs