That was a huge help! I think I misspoke.... I knew I was attempting to bind to ADSI and not WMI in the second snippet. My problem was in using alternate credentials for an OLE ADSI binding.

In case anyone reads this in the future and would like my resolution, here it is:

$winntobj = Win32::OLE->GetObject('WinNT:') 
    or croak( 'Cannot create WINNT object - ', $! );
if ($debug) {
    print "Attempting bind to WINNT on $server for authenticating $use
+r/$password...\n";
}

$userobj = $winntobj->OpenDSObject(
"WinNT://$server/$pworduser,User",
$user,
$password,
1
);

my $err = Win32::OLE->LastError();
if ($err == 0) {
    print STDOUT "Successful authentication!\n";
else {
    print STDOUT $err;
}
$userobj->SetPassword($newpassword);
[download]

...and this works as long as the authenticated user has administrative rights. I'd still be interested in knowing if anyone has a WMI solution for this as well, but I am very happy using ADSI. Thanks again!!!

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.