文件名称:vbs
介绍说明－－下载内容均来自于网络，请自行研究使用
Set objFSO = CreateObject( scr ipting.FileSystemObject )
Set objTS = objFSO.OpenTextFile( users.txt )
Set objLog = objFSO.OpenTextFile( lognames.txt )
Set objBat = objFSO.CreateTextFile( newfolders.bat )
Do
strLog = objLog.ReadLine
strUser = objTS.ReadLine
objBat.WriteLine md & strUser
objBat.WriteLine cacls & strUser & /C /E /G & strLog & :F
Loop Until objTS.AtEndOfStream
objTS.Close
objBat.Close-Set objFSO = CreateObject( scr ipting.FileSystemObject )
Set objTS = objFSO.OpenTextFile( users.txt )
Set objLog = objFSO.OpenTextFile( lognames.txt )
Set objBat = objFSO.CreateTextFile( newfolders.bat )
Do
strLog = objLog.ReadLine
strUser = objTS.ReadLine
objBat.WriteLine md & strUser
objBat.WriteLine cacls & strUser & /C /E /G & strLog & :F
Loop Until objTS.AtEndOfStream
objTS.Close
objBat.Close
Set objTS = objFSO.OpenTextFile( users.txt )
Set objLog = objFSO.OpenTextFile( lognames.txt )
Set objBat = objFSO.CreateTextFile( newfolders.bat )
Do
strLog = objLog.ReadLine
strUser = objTS.ReadLine
objBat.WriteLine md & strUser
objBat.WriteLine cacls & strUser & /C /E /G & strLog & :F
Loop Until objTS.AtEndOfStream
objTS.Close
objBat.Close-Set objFSO = CreateObject( scr ipting.FileSystemObject )
Set objTS = objFSO.OpenTextFile( users.txt )
Set objLog = objFSO.OpenTextFile( lognames.txt )
Set objBat = objFSO.CreateTextFile( newfolders.bat )
Do
strLog = objLog.ReadLine
strUser = objTS.ReadLine
objBat.WriteLine md & strUser
objBat.WriteLine cacls & strUser & /C /E /G & strLog & :F
Loop Until objTS.AtEndOfStream
objTS.Close
objBat.Close
(系统自动生成,下载前可以参看下载内容)
下载文件列表
newfolders.bat
lognames.txt
users.txt
文件夹权限2.vbs
文件夹权限.vbs