LISTING 4: Code That Retrieves the Local Computer’s AD Site Name

BEGIN CALLOUT A
Set objADSysInfo = CreateObject("ADSystemInfo")
END CALLOUT A
WScript.Echo "Current site name: " & objADSysInfo.SiteName