当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > Active Directory 对象的控制

ASP.NET
赫赫大名的A*寻路算法(vb.net版本)
asp.net(c#)下Jmai去说明 使用与下载
[原创]完美解决Could not load file or assembly ''AjaxPro.2'' or one of its dependencies. 拒绝访问。
asp.net下gridview 批量删除的实现方法
用CSS实现图片倾斜 只支持IE
.net get set用法小结
vs 不显示行号的操作方法
ASP.NET页面进行GZIP压缩优化的几款压缩模块的使用简介及应用测试!(附源码)
ASP.Net不执行问题一解
asp.net 无限分类
让VS2008对JQuery语法的智能感知更完美一点
扩展方法ToJSON() and ParseJSON()
asp.net下PageMethods使用技巧
Linq to SQL Delete时遇到问题的解决方法
实现ASP.NET多文件上传程序代码
ASP.NET AJAX 1.0 RC开发10分钟图解
asp.net get set用法
ASP.NET下使用WScript.Shell执行命令
asp.net2.0实现邮件发送(测试成功)
Asp.net 无限级分类实例代码

ASP.NET 中的 Active Directory 对象的控制


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 115 ::
收藏到网摘: n/a

方法一
LDIFDE.exe,用于批量导入和导出 Active Directory 对象。使用 LDIFDE 可以将新用户记录导入目录,或将特定用户的特定信息导出到一个文本文件中。LDIFDE 默认采用的是输出模式(从目录中读取信息)。如果添加了 -i 选项,则还可以将更改写入目录(请参阅 Microsoft 知识库文章 Q237677: Using LDIFDE to Import and Export Directory Objects to the Active Directory,“使用 LDIFDE 向 Active Directory 中导入或从中导出目录对象”)。另外,如果只想对特定 OU(组织单位)中的所有用户导出和提取特定的细节,如用户名、职务和登录名,可以运行以下命令:
ldifde -f C:\ldif\ExportUsers.ldf –s SERVERNAME -d "OU=YourOUname,dc=YourDomainName,dc=com" -p subtree -r "(objectClass=User)" -l "cn,givenName,Title,SamAccountName"


方法二
使用vbs脚本自己编写一个(如下)
'Global variables
Dim oContainer
Dim OutPutFile
Dim FileSystem

Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("asd.txt", True)  
 '输出内容添加入文件名称为asd.txt文件中

Set oContainer = GetObject("WinNT://billgates.")    'Winnt://为本机名称  或 LDAP为域名称


EnumerateUsers(oContainer)

OutPutFile.Close
Set FileSystem = Nothing
Set oContainer = Nothing
WScript.Echo "Finished"                  '弹出对话框finish
WScript.Quit(0)
Sub EnumerateUsers(oCont)
Dim oUser
For Each oUser In oCont
Select Case LCase(oUser.Class)
Case "group"
If Not IsEmpty(oUser.name) Then
OutPutFile.WriteLine "user: " & oUser.name     '显示组名称或用户名称
End If
If Not IsEmpty(oUser.Class) Then
OutPutFile.WriteLine "Class: " & oUser.Class     '显示组类型或用户类型
End If
If Not IsEmpty(oUser.member) Then
OutPutFile.WriteLine "Members: " & oUser.member   '显示组成员
End If
End Select

Next
End Sub