Get computers AD site name

[Trippinout]

Anyone have a quick simple script to just get the current AD Site name from a computer.
Script will be run locally on the computer.

Thanks

[td]

This longish script illustrates how to obtain the site name for the current domain along with a bunch of other stuff.

http://techsupt.winbatch.com/webcgi/webbatch.exe?techsupt/nftechsupt.web+WIL~Extenders/ADSI/Samples~from~Users+Useful~ADSI~Site~server~functions.txt

[td]

Here's a two liner that may (or may not) get you what you want.

adSys = CreateObject('ADSystemInfo')
strSiteName = adSys.GetDCSiteName('ServerNameHere')

[Trippinout]

Perfect. Thanks..

[td]

A not very elegant  ADSI extender version.

Code (winbatch) Select Expand

AddExtender("wwads44i.dll")
strServer = 'yourserver'
strServerPath = dsFindPath('LDAP://CN=Sites,CN=Configuration,DC=yoursub,DC=yourdomain', '(&(objectClass=server)(cn=%strServer%))')
strSite = ItemExtract(2, ItemExtract(3, strServerPath, ','), '=')
Pause(strServer:"'s Site", strSite)