VbScript: GetADSubnets

Chris — Sat, 25 Oct 2008 10:46:37 +0000

The VbScript below demonstrates how subnet information might be retrieved from Active Directory. It is possible to use a search using to return this information (for objectClass=subnet). This method connects to the subnets container and loops through the contents returning the network address and mask length in a Dictionary object.

Function GetADSubnets
  ' Return Type: Array

  Dim objRootDSE : Set objRootDSE = GetObject("LDAP://RootDSE")
  Dim objSubnets : Set objSubnets = GetObject("LDAP://CN=Subnets,CN=Sites," & _
    objRootDSE.GEt("configurationNamingContext"))

  Dim arrSubnets() : Dim i : i = 0
  For Each objSubnet in objSubnets
    ReDim Preserve arrSubnets(i)
    arrSubnets(i) = objSubnet.Get("name")
    i = i + 1
  Next

  GetADSubnets = arrSubnets
End Function

Usage example

WScript.Echo Join(GetADSubnets, vbCrlf)

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.

Indented! » subnet

VbScript: GetADSubnets

Usage example