Habilitar e Desabilitar o USB

Oi Pessoal,

Esse cógido é bem prático para contolar o acesso ao usb da estação.

Para utilização basta copiar e colar o código no bloco de notas e salvar com a extensão .vbs



'*** Inicio do código*************************************

'Título = Habilitar e Desabilitar o USB.

'Autor = Marcelo Montezuma

'Pagina = SUPORTE & SCRIPTS - http://scriptonita.blogspot.com

'versão = Beta 1.0

'Contato = Marcelo Montezuma - marcelo.montezuma@gmail.com


'Inicio -------------------------------------------------------------




Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

'-----------------------------------------------------------------------------------------------
'Entrada de dados
'-----------------------------------------------------------------------------------------------

Do
strOpcao = InputBox ("INFORME O NUMERO DA OPCAO DESEJADA:" & vbCrLf &_
"----------------------------------------------------------------------------------------------------------------" & vbCrLf &_
" 1 - HABILITAR USB" & vbCrLf &_
" " & vbCrLf &_
" 2 - DESABILITAR USB" & vbCrLf &_
" " & vbCrLf &_
" 0 - SAIR" & vbCrLf & vbCrLf , "SUPORTE & SCRIPTS" ,"0")



If strOpcao = "0" Then WScript.Quit(1)
Loop Until strOpcao <> ""

Select Case strOpcao

Case "1"
dwValue = 3

Case "2"
dwValue = 4

Case Else
WScript.Quit
End Select

strKeyPath = "SYSTEM\CurrentControlSet\Services\USBSTOR"
strValueName = "Start"
dwValue = 3
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

'*** Fim do código*************************************