Windows XP Pro NL wijzigen rechten op folder via VBS Script

[To_Tall]

Ik zou graag rechten op een bepaalde folder willen aanpassen naar wijzig rechten via VBS.

Het script wat ik heb gemaakt is al volgt.

VBScript:

Dim strOracleFolder, StrOracle ,strUser
    Dim IntRunError, objshell,objFSO
    strOarcleFolder = "C:\Program Files\Oracle"
    strUser = "%COMPUTERNAME%\iedereen"
    
    Set objshell = CreateObject("Wscript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(strOracleFolder) Then
        IntRunError = objshell.Run("%COMSPEC% /c Echo Y| cacls " & strOracleFolder & "/T /C /G %COMPUTERNAME%\iedereen: ", 2, True)
        WScript.Echo "De Folder " & strOracleFolder & "rechten zijn aangepast naar wijzigen aan gebruiker iedereen."
        If IntRunError <> 0 Then
            WScript.Echo "Fout bij het toepassen van de rechten voor de gebruiker "& strUser & " Voor de Folder " & strOracleFolder
            End If
        End If 

Misschien kijk ik ergens giganties overheen. ik heb niet zo veel ervaaring met dit soort script

[alt-92]

Check je invoer.

Maar ook dan: wij zijn er niet om voor jou een script te debuggen, daar moet je zelf mee aan de slag.

Dat je het niet weet moet geen reden zijn om het bijltje erbij neer te gooien, maar juist de aanzet om het wel onder de knie te krijgen.
De debug service zit een paar deuren verder helaas

[ Voor 90% gewijzigd door alt-92 op 01-02-2010 16:32 ]

[Verwijderd]

@TS: en er is nog wel meer mis dan de invoer. hoe geef je schrijfrechten met cacls en de /G-parameter

[ Voor 4% gewijzigd door Verwijderd op 01-02-2010 16:45 ]

[Zwelgje]

wrom gebruik je niet de GP Preferences

[alt-92]

Trouwens: je gaat met VBscript een NT command prompt opentrekken om een commandline tool te runnen met wat parameters - nog even afgezien van het puntje dat er meer dan 1 manier is om je ACLs te zetten:
Make up your mind!
Of NT batch, of VBscript, of wat anders.