域用户个人文件夹批量创建.docVIP

域用户个人文件夹批量创建 如何为每个domain用户自动建立一个文件夹？公司新购买了一台服务器用作文件服务器,现在要为每一个域用户建立一个文件夹,以他们的full name或是logon name命名均可,同时设置权限只能是自己能读写,他人无法访问。 域是WinSrv2003+SP2, 有200多用户,手工建立任务量太大,请问有什么办法可以更快速的实现吗？ 回答：根据您的描述，我对这个问题的理解是：您希望在文件服务器上为用户自动创建以每个用户的用户名为文件名的文件夹，并且不允许其他的用户对其访问。根据我的经验和研究，您可以通过组策略中的文件夹重定向来实现这个需求，具体步骤如下： 1. 用域管理员账户登录文件服务器，并在磁盘创建一个共享文件夹，我们这里比方说叫 file 2. 将file这个文件夹的的everyone的共享权限和安全权限都设置为完全控制 3. 用域管理员账户登录到域控您看到的文章来自活动目录seo /c1404552/ 4. 编辑默认域策略，找到 用户配置－windows设置－文件夹重定向－我的文档 5. 在右面的空白区域右键属性，选中，设置下拉框的“基本－将每个人的文件夹重定向到同一个位置” 6. 在“目标文件夹位置”中选择“在跟目录下为每一个用户创建一个文件夹” 7. 在跟路径上键入，我们刚刚共享的那个file文件夹的UNC路径（一定要UNC路径如\\fileserver\file） 8. 点击设置，在“策略删除”中选择“删除策略时将文件夹移回本地用户配置文件位置” 配置好之后，客户端只需要把希望存储的数据方在本机的“我的文档”中，他的文件就会自动的上传到文件服务器上file文件下以该用户名称命名的文件夹中，并且该文件夹不允许任何（包括管理员在内）其他的用户访问。您如果取消的该策略，原先在文件服务器上的存储文件会自动的返还到各自用户的“我的文档中” Jason Hou 侯铮 微软全球技术支持中心 这里有个批量自动创建个人文件夹的脚本，您可以参考您看到的文章来自活动目录seo /c1404552/ On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject(ADODB.Connection) Set objCommand = CreateObject(ADODB.Command) objConnection.Provider = ADsDSOObject objConnection.Open Active Directory Provider Set objCommand.ActiveConnection = objConnection objCommand.Properties(Page Size) = 1000 objCommand.Properties(Searchscope) = ADS_SCOPE_SUBTREE objCommand.CommandText = _ SELECT givenName, sn FROM LDAP://DC=fabrikam,DC=com WHERE objectCategory=user Set objRecordSet = objCommand.Execute Set objFSO = CreateObject(Scripting.FileSystemObject) objRecordSet.MoveFirst Do Until objRecordSet.EOF strInitial = Left(objRecordSet.Fields(givenName).Value, 1) strFolderName = C:\Public\ strInitial objRecordSet.Fields(sn).Value Set objFolder = objFSO.CreateFolder(strFolderName) objRecordSet.MoveNext Loop hengyun