# Kod ponownie ustawia haso obiektu konta komputera. Hasem jest domylna warto pocztkowa.
# Po wykonaniu operacji komputer trzeba ponownie przyczy do domeny.

use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objComputer = Win32::OLE->GetObject("LDAP://<NazwaWyrniajcaKomputera>");
$objComputer->SetPassword("<NazwaKomputera>");
