MCSE技术论坛

Const ADS_PROPERTY_UPDATE = 2
Set objOU = GetObject("LDAP://OU=HR,dc=NA,dc=fabrikam,dc=com")
Set objUserCopy = objOU.Create("user", "cn=BarrAdam")
objUserCopy.Put "sAMAccountName", "barradam"
objUserCopy.SetInfo

Set objUserTemplate = _
    GetObject("LDAP://cn=HuffArlene,OU=HR,dc=NA,dc=fabrikam,dc=com")
arrSVAttributes = Array("description", "department", _
  "company", "wWWHomePage")
 
arrMVAttributes = Array("url", "otherTelephone")

For Each strAttrib in arrSVAttributes
    strValue = objUserTemplate.Get(strAttrib)
    objUserCopy.Put strAttrib, strValue
Next

For Each strAttrib in arrMVAttributes
    arrValue = objUserTemplate.GetEx(strAttrib)
    objUserCopy.PutEx ADS_PROPERTY_UPDATE, strAttrib, arrValue
Next

objUserCopy.SetInfo

强!原创?

脚本中心的:default6:

在将测试的架构扩展推入生产环境时，建议使用 Ldifde.exe 实用工具

呵呵，我在我的中心也贴了这个