Показать сообщение отдельно
Старый 13.03.2009, 18:37   #19
dmitry_a
Постоялец
 
Пол:Мужской
Регистрация: 11.04.2007
Сообщений: 284
Репутация: 85
По умолчанию Re: AD - запрет на съемные носители

Все тоже самое что и с USB Store, но потребуется перезагрузка

4 = отключено
3 = включено

Код:
Option Explicit 
Dim objShell, regKey, key
Set objShell = WScript.CreateObject("WScript.Shell")
regKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom\start"
key = objShell.RegRead(regKey)
If key < 4 Then objShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom\start", 4, "REG_DWORD"
dmitry_a вне форума
 
Ответить с цитированием Вверх
Сказали спасибо:
 
Время генерации страницы 0.07978 секунды с 9 запросами