Funzione SetPermissions ()
strHomeFolder fioco, strHome, strUser
intRunError fioco, objShell, objFSO
strHomeFolder = “C:\Test„
Regolare il objShell = CreateObject (“Wscript.Shell„)
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Se objFSO.FolderExists (strHomeFolder) allora
intRunError = objShell.Run (“eco Y di %COMSPEC% /c| _ dei cacls„
& strHomeFolder & “/e /c /g tutto: F„, 2, allineare)
Se intRunError <> 0 allora
_ Dell'utente di Wscript.Echo “errore che assegna i permessi per„
& strUser & “dirigersi dispositivo di piegatura„ & strHomeFolder
Concluder se
Concluder se
Concludere la funzione
|