use strict;
use WIN32;
use Win32::OLE;

my $domain = Win32::DomainName();
chomp (my $user = shift @ARGV);
chomp(my $new_pw = shift @ARGV);

if (my $objUser = Win32::OLE->GetObject("WinNT://$domain/$user,user")) {
	$objUser->SetPassword($new_pw);
}