Fungera SetPermissions ()
Dunkel strHomeFolder, strHome, strUser
Dunkel intRunError, objShell, objFSO
strHomeFolder = ”C:\Test”,
Fastställd objShell = CreateObject (”Wscript.Shell”)
Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Om objFSO.FolderExists (strHomeFolder) därefter
intRunError = objShell.Run (”%COMSPEC% /c ekar Y| cacls” _,
& strHomeFolder & ”/e /c /g alla: F”, 2, riktiga)
Om intRunError <> 0 därefter
Wscript.Echo-”fel som tilldelar tillåtelser för användare” _,
& strUser & ”att returnera mappen” & strHomeFolder
Avsluta om
Avsluta om
Avsluta fungerar
|