Скрипт отключения USB

VBS-скрипт

Set WshS = WScript.CreateObject("WScript.Shell")
Const constHKEY_LOCAL_MACHINE = &H80000002
Const constComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
constComputer & "\root\default:StdRegProv")

strKeyPath = "System\CurrentControlSet\Services\usbstor"
strValueName = "Start"

tt = MsgBox ("Отключить USB-порты на данном компьютере ?"_
& chr(13) & "Кнопка ДА - отключает устройства"_
& chr(13) & "Кнопка НЕТ - включает",vbYesNoCancel,"")

Select Case tt
Case 6
'отключение
WshS.Run "%comspec% /c cacls %systemroot%\inf\usbstor.* /E /D Администраторы Пользователи "_
& Chr(34) & "Опытные пользователи" & Chr(34) & " System",0
strValue ="4"
objReg.SetDwordValue constHKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
MsgBox "USB-порты отключены"
Case 7
'включение
WshS.Run "%comspec% /c cacls %systemroot%\inf\usbstor.* /E /P Администраторы:F Пользователи:R "_
& Chr(34) & "Опытные пользователи:R" & Chr(34) & " System:F",0
strValue ="3"
objReg.SetDwordValue constHKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
MsgBox "USB-порты включены"
End Select