ADSI filsystem rettigheder
Jeg har fundet denne kode som jeg vil benytte til at ændre mappe rettighederne på min win 2000 server:<%
1. ChangeFolderSettings("c:\myfolder","Myuser","C")
2.
3. Sub ChangeFolderSettings(strFolderPath,strUser,strPermission)
4. Dim caclscommand
5. Dim whs
6. Dim whsRun
7.
8. Caclscommand = "cmd /c echo y| CACLS " & strFolderPath
9. Caclscommand = Caclscommand & " /E /C /G " & strUser & ":" & strPermission
10.
11. Set whs = server.createobject("WScript.Shell")
12. Set whsRun = whs.run(Caclscommand, 0, True)
13.
14. Set whsrun = nothing
15. Set whs = nothing
16. End Sub
%>
På et tidspunkt kunne jeg få koden til at virke fint men det kan jeg ikke mere. er der nogen der kan fortælle mig om koden er forkert eller noget?
Når jeg kører koden PÅ serveren og siger at det fx er brugeren test.dk som skal have adgang til mappen d:\test.dk og fulde rettigheder sker der intet i browseren den står bare der og bliver ved med at gøre ingenting :(
Håber i kan hjælpe
