【文件属性】:
文件名称:AD域控操作案例
文件大小:3KB
文件格式:VBS
更新时间:2019-03-25 14:05:51
AD 域控 vbs
适合AD域控开发的入门参考
Const ADS_SCOPE_SUBTREE = 2
Const ADS_PROPERTY_CLEAR = 1
Set objRootDSE = GetObject("LDAP://rootDSE")
strADsPath = "LDAP://" & objRootDSE.Get("defaultNamingContext")
Set objDomain = GetObject(strADsPath)
setRootOu(objDomain)
'对根组织遍历
sub setRootOu(tmpobj)