Can anyone shed some light on why I get
-1 - at modifyUser.pl line 12
When I run
use Win32::AdminMisc;
use Win32API::Net;
my ( %acct_info, $PDC, );
$PDC = Win32::AdminMisc::GetPDC( 'domain Name' );
Win32API::Net::UserGetInfo( $PDC, 'testuser', 3, \%acct_info ) || die $!;
$acct_info{ passwordExpired } = 1;
Win32API::Net::UserSetInfo( $PDC, 'testuser', 3, \%acct_info, $error) || die "$error -
$!";
Thanks
Ron
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
