Funkcja SetPermissions ()
Ciemnawy strHomeFolder, strHome, strUser
Ciemnawy intRunError, objShell, objFSO
strHomeFolder = "C:\Test"
Ustalony objShell = CreateObject ("Wscript.Shell")
Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
Jeżeli objFSO.FolderExists (strHomeFolder) Wtedy
intRunError = objShell.Run ("%COMSPEC% /c Echowy Y| cacls" _
& strHomeFolder & "/e /c /g everyone: F", 2, Prawdziwy)
Jeżeli intRunError <> (0) Wtedy
Wscript.Echo "Błąd pozwolenie dla użytkownik" _
& strUser & "falcówka" & strHomeFolder
Kończyć Jeżeli
Kończyć Jeżeli
Kończyć Funkcja
|