VB Scipt將子網添加到Active Directory站點 - 檢查子網是否存在

Question

我打算使用以下命令將子網添加到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 

有人可以讓我知道如何添加一行來檢查子網是否已經存在？

謝謝。

阿梅利亞

Answer 1

看看http://briandesmond.com/blog/script-for-bulk-import-of-active-directory-subnets/。具體來說，GetSubnetDN方法應該是有意義的。