邮件服务器-邮件系统-邮件技术论坛(BBS)

 找回密码
 会员注册
查看: 1808|回复: 1
打印 上一主题 下一主题

那位大哥帮帮忙?

[复制链接]
跳转到指定楼层
顶楼
发表于 2005-1-13 10:28:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问如果将2003 server中的AD用户导出
沙发
发表于 2005-1-13 11:05:27 | 只看该作者

re:如果你只是想导出用户的个人信息等数据,而...

如果你只是想导出用户的个人信息等数据,而不包括密码。<br>
<br>
那通过编译个脚本就OK了:<br>
<br>
使用VBScript导出Marketing组织单元中的所有对象 <br>
<br>
在本例中,您将使用诸如Notepad的文本编辑器创建一个VBScript程序。该脚本搜索Marketing组织单元并创建一个文本文件,该文件列出了所有用户对象和这些对象的某些属性。 <br>
<br>
创建导出脚本 <br>
<br>
<br>
将以下文本复制到文本编辑器中: <br>
'Global variables <br>
Dim oContainer <br>
Dim OutPutFile <br>
Dim FileSystem <br>
<br>
'Initialize global variables <br>
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject") <br>
Set OutPutFile = FileSystem.CreateTextFile("marketing.txt", True) <br>
SetoContainer=GetObject("LDAP://OU=marketing,DC=reskit,DC=com") <br>
<br>
'Enumerate Container <br>
EnumerateUsers oContainer <br>
<br>
'Clean up <br>
OutPutFile.Close <br>
Set FileSystem = Nothing <br>
Set oContainer = Nothing <br>
<br>
WScript.Echo "Finished" <br>
WScript.Quit(0) <br>
Sub EnumerateUsers(oCont) <br>
Dim oUser <br>
For Each oUser In oCont <br>
Select Case LCase(oUser.Class) <br>
Case "user" <br>
<br>
If Not IsEmpty(oUser.distinguishedName) Then <br>
OutPutFile.WriteLine "dn: " & oUser.distinguishedName <br>
End If <br>
<br>
If Not IsEmpty(oUser.name) Then <br>
OutPutFile.WriteLine "name: " & oUser.Get ("name") <br>
End If <br>
'need to do this because oUser.name would get back the Relative Distinguished name (i.e. CN=Jo Brown) <br>
<br>
If Not IsEmpty(oUser.st) Then <br>
OutPutFile.WriteLine "st: " & oUser.st <br>
End If <br>
<br>
If Not IsEmpty(oUser.streetAddress) Then <br>
OutPutFile.WriteLine "streetAddress: " & oUser.streetAddress <br>
End If <br>
<br>
Case "organizationalunit" , "container" <br>
<br>
EnumerateUsers oUser <br>
End Select <br>
OutPutFile.WriteLine <br>
Next <br>
End Sub <br>
<br>
将该文件保存为Export.vbs <br>
在命令提示符状态下输入export.vbs并按下回车键。系统将创建一个名为Marketing.txt的文件,该文件包含用户列表和这些用户的一些属性,如特异名字、名字、州名及街道地址等。<br>
<br>
<br>
<br>
详细的说明:<a target=_blank href=http://www.microsoft.com/china/windows2000/library/planning/activedirectory/bulksteps.asp>http://www.microsoft.com/china/windows2000/library/planning/activedirectory/bulksteps.asp</a>#heading2<br>
<br>
<br>
<br>
<br>
如果需要用户名以及密码,可能就需要ADMT工具了,这个工具在微软网站有。详细的说明请看帮助。<br>
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

小黑屋|手机版|Archiver|邮件技术资讯网

GMT+8, 2026-8-5 02:42

Powered by Discuz! X3.2

© 2001-2016 Comsenz Inc.

本论坛为非盈利中立机构,所有言论属发表者个人意见,不代表本论坛立场。内容所涉及版权和法律相关事宜请参考各自所有者的条款。
如认定侵犯了您权利,请联系我们。本论坛原创内容请联系后再行转载并务必保留我站信息。此声明修改不另行通知,保留最终解释权。
*本论坛会员专属QQ群:邮件技术资讯网会员QQ群
*本论坛会员备用QQ群:邮件技术资讯网备用群

快速回复 返回顶部 返回列表