Scriptaholic - Get the current site of a computer

Just use this function:

function GetSite
dim objInfo
set objInfo = CreateObject("ADSystemInfo")
GetSite = objInfo.SiteName
end function

Want more information about ADSystemInfo?