Using Win32::Lanman, read all the information for a user into a hash. Then change the
value of the
login script hash variable if it is equal to the one you are looking for. Then write
the hash back
to the user attributes. Win32::Lanman prefers strongly that you set all the values of
the user
attributes hash when writing them back.
Hope this helps,
--Chuck
--- "Ryan, David" <[EMAIL PROTECTED]> wrote:
> I am trying to delete the value for Logon Script Name in User Manager for
> Domains if a user has allusers.bat for a logon script. I can change it to
> anything through the following script (junk, space character, etc.), but
> cannot duplicate the manual keystrokes of deleting the current value
> (allusers.bat in this case). Any help would be appreciated (specifically, I
> need help with the #*** commented line below):
> ----------------------------------------------------------------------------
> ------------
> #! /usr/bin/perl
>
> use Win32::NetAdmin qw(GetUsers GroupIsMember
> UserGetAttributes UserSetAttributes);
>
> my %hash;
>
> GetUsers("", FILTER_NORMAL_ACCOUNT , \%hash)
> or die "GetUsers() failed: $^E";
>
> foreach (keys %hash) {
> my ($password, $passwordAge, $privilege,
> $homeDir, $comment, $flags, $scriptPath);
> UserGetAttributes("", $_, $password, $passwordAge, $privilege, $homeDir,
> $comment, $flags, $scriptPath) or die "UserGetAttributes() failed:
> $^E";
> if ($scriptPath ne "allusers.bat") {
> #*** undef $scriptPath doesn't work; $scriptPath = " " doesn't work;
> $scriptPath = "" doesn't work;***#
> UserSetAttributes("", $_, $password, $passwordAge, $privilege, $homeDir,
> $comment, $flags, undef $scriptPath) or die "UserSetAttributes()
> failed: $^E";
> }
> }
>
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
