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

ASP.NET
如何使用vb6.0来实现中文实名搜索
C#实现Window管道技术
记录下一些关于测试工具NUNIT的链接资料,有兴趣的朋友也可以跳过去看看
编写与.NET属性窗口交互的RAD组件(自序)
asp.net 关于form认证的一般设置:
编写与.NET属性窗口交互的RAD组件(一)
ActiveX控件的打包发布[无证书发布](一)
Visual SourceSafe 6.0 的问题思考
VB报表输出的问题,恳请不吝赐教
证书和签名--试用微软提供的证书测试工具系列
[dotNET]如何利用ConfigurationSettings.AppSettings.GetValues读取配置文件中多个...
使用C#编写DES加密程序的framework
令你的网页速度大大提高
怎样得到一个系统盘的全名,不是字符,是全名,如:本地磁盘(C:)?
r在richtextbox中插入动画/控件
Code: Writing Text to a File (Visual Basic)
算法讨论:哲学家就餐问题
我们所要关注的是什么?
firebird 连接嵌入式版本
从Csharp走到VB.Net(一):MyClass保留字

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 51 ::
收藏到网摘: 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