Script to change NT password? need your help

[Sina]

Hi everyone,

how do you change the NT domain password for a user?

use Win32::AdminMisc;
if (Win32::AdminMisc::UserChangePassword("domainname",
"user1",
"oldpassword",
"newpassword&quot){
print "Password successfully changed\n";
}else{
print "Password failed to change.\n";
}

I tried the above but I just keep getting the password can not be changed.

thanks

 

[luciddream]

maybe you don't have sufficient priveledges to change passwords. luciddream@subdimension.com

 

[Sina]

Yes, I'm logged in as admin.

 

[luciddream]

i think maybe you want to use

Win32::AdminMics::SetPassword("domainname", "user1", "newpassword"

luciddream@subdimension.com

 

[Sina]

I tried that also, but still the same problem.

The scripts are mentioned in Win32 perl (by Roth) but I don't know why it does not work.

Also do you know of any way to change the windows resolution using perl?

Thank you