现在的位置: 首页 > 综合 > 正文

带参数,给文件夹赋予对应权限

2013年10月11日 ⁄ 综合 ⁄ 共 782字 ⁄ 字号 评论关闭

vbs:
Dim objfso,myfile
Set objfso=CreateObject("scripting.filesystemobject")
If Not objfso.FolderExists(designPath&"\"&projectname) Then
objfso.CreateFolder(designPath&"\"&projectname)
End If
If Not objfso.FolderExists(designPath&"\"&projectname&"\"&designname) Then
objfso.CreateFolder(designPath&"\"&projectname&"\"&designname)
End If

'grant preview to the designer(layout engineer) and owener(hardward design engineer)
Set objShell = CreateObject("Wscript.Shell")
'MsgBox "grant.bat """&designPath&"\"&projectname&"\"&designname&""" "&pba&" """&designname&""""
objShell.Run "grant.bat """&designPath&"\"&projectname&"\"&designname&""" "&pba&" """&designname&""" PBA"

DOS:(grant.bat)需要文件xcacls.vbs
cscript.exe xcacls.vbs %1 /t /e /g %2:f

net share %3=%1 /grant:%2,change

'需要xcacls.vbs的支持,如没有,需自行下载,这个是微软官方产品。对于win7以上系统,需要自行修改其中对OS版本的判断。

抱歉!评论已关闭.