# Kod tworzy konto komputera w bazie danych usugi Active Directory

# ------ KONFIGURACJA SKRYPTU ------
my $strBase = "<NazwaWyrniajcaObiektuNadrzdnegoKomputera>";  # np. cn=Computers,dc=rallencorp,dc=com
my $strComp = "<NazwaKomputera>";      # np. jan-xp
my $strDescr = "<Opis>";      # np. Stacja robocza Jana z systemem Windows XP
# ------ KONIEC KONFIGURACJI ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
# $ADS_USER_FLAG_ENUM
my $ADS_UF_WORKSTATION_TRUST_ACCOUNT = 0x1000;

my $objCont = Win32::OLE->GetObject("LDAP://" . $strBase);
my $objComp = $objCont->Create("computer", "cn=" . $strComp);
$objComp->Put("sAMAccountName", $strComp . "\$");
$objComp->Put("description", $strDesc);
$objComp->Put("userAccountControl", $ADS_UF_WORKSTATION_TRUST_ACCOUNT);
$objComp->SetInfo;
print "Utworzono konto dla komputera\n";
