[Iska]

Но как мне это реализовать на VBS ? »

COM Version (SetACL.ocx) – Syntax and Description | Helge Klein | Home of SetACL — загрузить, установить, зарегистрировать библиотеку и пользоваться. Либо использовать те же «SetACL.exe»/«subinacl.exe», вызывая их из-под WSH и передавая им потребные параметры.

Я всегда говорю в подобных случаях — «Используйте AVZ и его скрипты».

[O L E G]

Пропиши если не проблема скрипт запуска subinacl.exe и установку прав доступа через него же

[Iska]

Написать-то я — напишу… А вот Вы чем тогда будете заниматься ?!

[O L E G]

ну а я дальше все сам сделаю мне только это осталось :D кто на что горазд я программирование не знаю)) поэтому прошу помощи сторонних людей ВЫ поможете мне,а возможно то что сделаю я,поможет кому то другому



КРУГОВОРОТ

[Iska]

И какое отношение сие имеет к данной теме?

[O L E G]

Подскажите в чем ошибка?! не работает скрипт

Option Explicit

Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")

wsh.Run("""subinacl"" /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon /revoke=%username%")

Set wsh = Nothing



-------
не передаются параметры

[Iska]

O L E G, не пренебрегайте оформлением приводимого кода тэгом code.

не передаются параметры »

Передаются. Это Вы забыли обрамить параметр с пробелами кавычками.

Код:

wsh.Run("""subinacl"" /keyreg ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /revoke=%username%")

И, достаточно ли будет именно «/keyreg»?!

[O L E G]

на некоторые ветки /keyreg, ну а если что , есть и /subkeyreg, дальше по обстоятельствам. Спасибо)

[O L E G]

Iska, Извини пожалуйста не по теме, потом удалю
Как сделать что бы меню программы не закрывалось, после выбора действия

Dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")

UserName = InputBox("Выбор действий" & Chr(10) & Chr(13) _
& " 1. Снять аттрибуты" & Chr(10) & Chr(13) _
& " 2. ---" & Chr(10) & Chr(13) _
& " 3. ---" & Chr(10) & Chr(13) _
& " 4. ---" & Chr(10) & Chr(13) _
& " 5. ---" & Chr(10) & Chr(13) _
& " 6. ---" & Chr(10) & Chr(13) _
& " 7. ---" & Chr(10) & Chr(13) _
& " 8. ---" & Chr(10) & Chr(13) _
& " 9. ---" & Chr(10) & Chr(13) _
& " 10. ---" & Chr(10) & Chr(13) _
)
Select Case UserName
Case 1
WshShell.Run("""subinacl"" /keyreg ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /revoke=%username%")
Case 2
WshShell.Run "---"
Case 3
WshShell.Run "---"
case 4
WshShell.Run "---"
End Select

[Iska]

Код:

Do
    UserName = InputBox(…
         …
        & " 11. Exit")

Loop Until UserName = 11

Или:

Код:

Do
    UserName = InputBox(…
         …
        & " 11. Exit")
    
    Select Case UserName
        …
        Case 11
            Exit Do
    End Select
Loop