$winntobj = Win32::OLE->GetObject('WinNT:') 
	or croak( 'Cannot create WINNT object - ', $! );
if ($debug) {
	print "Attempting bind to WINNT on $server for authenticating $user/$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);