Help for this page
$myDomain = Win32::OLE->GetObject("WinNT://$server/$pworduser")
$objUser = Win32::OLE->GetObject("WinNT://$server/$pworduser")
$objUser->SetPassword($password);