Listing Active Directory Sites

Lists Active Directory sites.

Set objRootDSE = GetObject("LDAP://RootDSE")
strConfigurationNC = objRootDSE.Get("configurationNamingContext")
 
strSitesContainer = "LDAP://cn=Sites," & strConfigurationNC
Set objSitesContainer = GetObject(strSitesContainer)
 
objSitesContainer.Filter = Array("site")
 
For Each objSite In objSitesContainer
    WScript.Echo objSite.Name
Next

This is a VB Script, this can be used by saving the file in .vbs file