Yeah, that's just a user input dialog. Once you have the new pw, you could do something like

 Code:
dim $objUser
$objUser = GetObject("WinNT://myDomain/myUsername")
$objUser.SetPassword($NewPassword)

to set it. I got that from here. See that site for more examples including LDAP. Here's another one.

cj