Listando as Subnets associadas a um site do AD via Script

Olá pessoal,

Através da ferramenta Active Directory Sites and Services é possivel realizar as configurações relacionadas a Sites e Subnets no Active Directory e também obter visualmente  as informações referentes.

Para fins de documentação, ainda mais se tratando de ambientes bem grandes com muitos sites, pode ser interessante utilizar um dos dois scripts (um vns e outro PowerShell) que compartilho com vocês para listar as subnets associadas a um determinado site (localidade) no AD.

O script abaixo é em vbs. Substitua Nome_do_Site pelo nome do site cuja informação você deseja obter. Salve o arquivo como ListaSubnets.vbs, por exemplo.

strSiteRDN = “cn=Nome_do_Site”

Set objRootDSE = GetObject(“LDAP://RootDSE”)
strConfigurationNC = objRootDSE.Get(“configurationNamingContext”)

strSitePath = “LDAP://” & strSiteRDN & “,cn=Sites,” & strConfigurationNC

Set objSite = GetObject(strSitePath)

objSite.GetInfoEx Array(“siteObjectBL”), 0
arrSiteObjectBL = objSite.GetEx(“siteObjectBL”)

WScript.Echo strSiteRDN & ” Subnets” & vbCrLf & _
String(Len(strSiteRDN) + 8, “-“)

For Each strSiteObjectBL In arrSiteObjectBL
WScript.Echo Split(Split(strSiteObjectBL, “,”)(0), “=”)(1)
Next

Abaixo compartilho outro que faz a mesmsa coisa, mas em PowerShell. Substitua Nome_do_Site pelo nome do site cuja informação você deseja obter. Salve o arquivo como ListaSubnets.ps1, por exemplo.

$siteName = “Nome_do_Site”
$configNCDN = (Get-ADRootDSE).ConfigurationNamingContext
$siteContainerDN = (“CN=Sites,” + $configNCDN)
$siteDN = “CN=” + $siteName + “,” + $siteContainerDN
$siteObj = Get-ADObject -Identity $siteDN -properties “siteObjectBL”, “description”, “location”
foreach ($subnetDN in $siteObj.siteObjectBL) {
Get-ADObject -Identity $subnetDN -properties “siteObject”, “description”, “location”
}

 Sem duvida alguma esses scripts vão auxiliar os amigos leitores nas tarefas diárias de administração do AD.