# This code resets an existing computer object's password to the 
# initial default. You'll need to rejoin the computer after doing this.

# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Windows Server Cookbook" by Robbie Allen
# ISBN: 0-596-00633-0
# ---------------------------------------------------------------
use Win32::OLE;
$Win32::OLE::Warn = 3;

$objComputer = Win32::OLE->GetObject('LDAP://<ComputerDN>');
$objComputer->SetPassword('<ComputerName>');