A. To return the current site of a computer, you can use the ADSystemInfo object to call the GetDCSiteName function, as the following code shows:

                              Dim sys                              
                              Set sys = CreateObject("ADSystemInfo")                              wscript.echo "Domain Controller site: " & sys.GetDCSiteName(".")                              
which you can see running as follows:
                              D:\temp>cscript getsite.vbs                              Microsoft (R) Windows Script Host Version 5.6                              Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.                              Domain Controller site: Smallville