установить разрешение с vbscript

Question

Я пытаюсь дать разрешение всем на вызов вызова папки. если я делаю это работает

objShell.ShellExecute "cmd.exe","/k icacls c:\Test /grant everyone:(OI)(CI)M ", "", 

но если я делать этого не

Set objShell = CreateObject("Shell.Application") 
    Dim var 
    var = "C:\Test" 
    objShell.ShellExecute "cmd.exe", "/k icacls" & var & "/grant everyone:(OI)(CI)M ", "", "runas", 1 

поэтому мой вопрос, как я могу заставить его работать пожалуйста, помогите

Answer 1

Вы забыли свои пространства, incluide их в переменной, как

var = " C:\Test " 

или лучше до- и добавить их к остальной части строки

objShell.ShellExecute "cmd.exe", "/k icacls " & var & " /grant everyone:(OI)(CI)M ", "", "runas", 1 

Answer 2

Похоже разнесением вопрос. Можете ли вы попробовать это?

Set objShell = CreateObject("Shell.Application") 
    Dim var 
    var = "C:\test" 
    objShell.ShellExecute "cmd.exe", " /k icacls " & var & " /grant everyone:(OI)(CI)M ", "", " runas ", 1