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

用于将子网添加到Active Directory站点的VB脚本 - 检查是否存在子网

1 个答案: