I wrote something a couple of years ago to change the admin pw on desktops and used NetUserSetProp():
$info{password} = $newPw;
Win32::Lanman::NetUserSetProp("\\\\$workstation", $adminAct, \%info);
It worked when I tested it but we never put it into production, so I'm not sure if this will [still] work.
-Shawn
___________________________
Be reasonable.
On Fri Feb 3 13:05 , Rick Coloccia <[EMAIL PROTECTED]>sent:
Howard is of course right.
I am executing the script as a domain administrator, against machines
in the domain, so access shouldn't be an issue, and there aren't any
group policies in place either...
I dug into using lanman, as Solli suggested, but I get numeric error
code 1371, which translates into "you can't do this on a built in account."
Win32::Lanman::NetUserSetInfo("\\\\ramoth", "administrator",
{'password' => 'testpassword'});
Next I'm thinking about using psexec and good ol- fashioned net user
commands, but I'd really like to avoid that if I can.
Any other thoughts?
Thanks so much everyone...
-Rick
_______________________________________________ Perl-Win32-Admin mailing list Perl-Win32-Admin@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
