none
vbs 自动创建文件夹,并附单个用户权限 RRS feed

  • 常规讨论

  • 大家好,

    现在有一个问题,不知道如何解决。

    需求:
    ====
    我已经把将Domain中新创建的用户的SAMaccount属性导成了一个csv文件,格式如下

    user1
    user2
    user3
    .
    .
    .

    现在我需要写一个vbs,或者用什么方式,按照导出用户的SAMaccount,在一台server的E:\下创建以用户名为文件名的文件夹,并且赋予每个user对创建出来的对应的文件夹 full control的权限。

    例如:csv文件里有user1, user2, user3记录,那么在运行了vbs后,在E盘下就自动生成文件夹user1, user2, user3. 并且只有user1对user1文件夹有完全控制权限,user2对user2文件夹有完全控制权限。

    遇到的问题:
    =========
    写了一个简单的vbs,已经可以把这些文件夹自动创建出来,如下:

    1. Dim objfso,myfile
    2. Set objfso=CreateObject("scripting.filesystemobject")
    3. Set myfile=objfso.OpenTextFile("D:\Wing\mu.csv",1)
    4. do
    5.   data=myfile.readline
    6.   tn=left(data,20)
    7.   Set fld=objfso.CreateFolder(tn)
    8. loop until myfile.atendofstream

    但是我要怎么修改上面这个vbs,结合xcacls.vbs给这些自动创建出来的文件夹附相应的user权限。

    注:我希望在文件夹创建出来的同时,或者之后,自动附上权限。而不是文件夹创建完后,再用xcacls.vbs写一个个command,指定文件夹名后,手动去加权限。

    希望这里的大拿能帮帮忙。


    Best regards,

    Wing Ying
    2011年9月16日 7:44

全部回复