Hi everyone
I'm pretty new to this mailing list and to Active State Perl too!!!!!!!
I'm sort of stuck up with something that seemed quite easy in the beginning.
Actually i'm working on this code... which provides the user with admin
privileges to be able to change the NT password for some other user account.
Now for this i started off with the Win32::AdminMisc SetPassword($domain,
$loginname, ,$newpassword) function and it returns an error message 0x8cf
(lookup 0x13D). I couldn't get to the detail of this error code so if
anyone of you can please spare me some time and help me get thru...!
I've also enclosed the code piece that throws the error :
if (Win32::AdminMisc::SetPassword($dom, $loginname, ,$password1))
{
Win32::AdminMisc::UserSetMiscAttributes($dom, $loginname,
USER_PASSWORD_EXPIRED => "1") || die print "Couldn't set to expire";
print "Password changed successfully !!!";
}
else
{
print "Password could not be changed<BR>";
print " failed:$^E <BR>";
}
I've already defined the variables used in the functions at the start of the
script.
Thanks
Priyanka
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
