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

$objIadsTools = Win32::OLE->new('IADsTools.DCFunctions');
$strSite = $objIadsTools->DsGetSiteName('<NazwaKomputera>');
print 'Lokacja: ', $strSite, "\n";
