$myDomain = Win32::OLE->GetObject("WinNT://$server/$pworduser")
##</code><code>##

$objUser = Win32::OLE->GetObject("WinNT://$server/$pworduser")

##</code><code>##

$objUser->SetPassword($password);