set objIadsTools = CreateObject("IADsTools.DCFunctions")
strSite = objIadsTools.DsGetSiteName("<NazwaKomputera>")
Wscript.Echo "Lokacja: " & strSite
