Try the below .. works for me,

$user = Win32::OLE->GetObject("WinNT://$DOMAIN/$login");

$user->{pwdLastSet} = 0;
$user->SetInfo or die 
Win32::OLE::LastError;
I need to set the box "User Must Change Password at Next Logon" for the
users of my domain but I looked at Lanman and AdminMisc and saw no way of
doing it. 
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin

Reply via email to