批量修改AD的属性(转)
摘要:
Dim objInfoConst ADS_SCOPE_SUBTREE = 2Set fso = CreateObject("Scripting.FileSystemObject")Set objFile = fso.OpenTextFile("Userinfo.csv")Set objConnection = CreateObject("ADODB.Connection")Set objCommand = CreateObject("ADODB.Command")objConnection.Provider = & 阅读全文
posted @ 2011-04-07 13:40 空瓶 阅读(686) 评论(0) 推荐(0) 编辑