Creates an Active Directory site and sets the site link for the new site.
strSiteRDN = "cn=Ga-Atl-Sales"strSiteLinkRDN = "cn=DEFAULTIPSITELINK"strSiteLinkType = "IP" ' Valid values: "IP" or "SMTP"Const ADS_PROPERTY_APPEND = 3Set objRootDSE = GetObject("LDAP://RootDSE")strConfigurationNC = objRootDSE.Get("configurationNamingContext")strSitesContainer = "LDAP://cn=Sites," & strConfigurationNCSet objSitesContainer = GetObject(strSitesContainer)Set objSite = objSitesContainer.Create("site", strSiteRDN)objSite.SetInfoSet objLicensingSiteSettings = objSite.Create("licensingSiteSettings", _"cn=Licensing Site Settings")objLicensingSiteSettings.SetInfoSet objNtdsSiteSettings = objSite.Create("nTDSSiteSettings", _"cn=NTDS Site Settings")objNtdsSiteSettings.SetInfoSet objServersContainer = objSite.Create("serversContainer", "cn=Servers")objServersContainer.SetInfostrSiteLinkPath = "LDAP://" & strSiteLinkRDN & ",cn=" & strSiteLinkType & _",cn=Inter-Site Transports,cn=Sites," & strConfigurationNCSet objSiteLink = GetObject(strSiteLinkPath)objSiteLink.PutEx ADS_PROPERTY_APPEND, "siteList", _Array(objSite.Get("distinguishedName"))objSiteLink.SetInfo
This is a VB Script, this can be used by saving the file in .vbs file