# Kod ustawia dla konta komputera domylne haso.
# Po wykonaniu tej operacji trzeba ponownie przyczy komputer do domeny.

use Win32::OLE;
$Win32::OLE::Warn = 3;

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