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方法应该是有意义的。