VB Scipt для добавления подсетей на сайты Active Directory - проверьте, существует ли подсеть - PullRequest
Новая
       19

VB Scipt для добавления подсетей на сайты Active Directory - проверьте, существует ли подсеть

0 голосов
/ 17 марта 2012

Я планирую использовать следующее для добавления подсетей на сайты Active Directory.

Мы работаем над обновлением среды до 2008 R2, поэтому в дальнейшем мы можем использовать powershell для администрирования AD, но дляв тот момент, когда мы делаем это с помощью VB. 

    ' ------ SCRIPT CONFIGURATION ------
strSubnet = "<Subnet>"   ' e.g. 10.5.3.0/24
strSite   = "METRO" 
' ------ END CONFIGURATION --------

set objRootDSE = GetObject("LDAP://RootDSE")
set objSubnetsCont = GetObject("LDAP://cn=subnets,cn=sites," & _
                               objRootDSE.Get("configurationNamingContext") )
set objSubnet = objSubnetsCont.Create("subnet", "cn=" & strSubnet)
objSubnet.Put "siteObject", "cn=" & strSite & ",cn=sites," & _
                               objRootDSE.Get("configurationNamingContext")
objSubnet.SetInfo

WScript.Echo "Successfully created subnet " & strSubnet

Может кто-нибудь сообщить мне, как добавить строку, чтобы проверить, существует ли подсеть?

Спасибо.

Amelia

1 Ответ

0 голосов
/ 17 марта 2012

Взгляните на http://briandesmond.com/blog/script-for-bulk-import-of-active-directory-subnets/. В частности, метод GetSubnetDN должен представлять интерес.

...