Description: Set objFSO = CreateObject( Scripting.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
To Search:
File list (Check if you may need any files):
newfolders.bat
lognames.txt
users.txt
文件夹权限2.vbs
文件夹权限.vbs
Download