Crear un archivo .VBS y copiar lo siguiente:
''''''''''''''''''''''''''''''''''
'Enable and disable USB BitLocker'
'BY Armando H. Mateu. '
''''''''''''''''''''''''''''''''''
Set WshShell = CreateObject("WScript.Shell")
'RDVDenyWriteAccess and FDVDenyWriteAccess
parameter1 = "FDVDenyWriteAccess"
parameter2 = "RDVDenyWriteAccess"
Convert(parameter1)
Convert(parameter2)
Sub Convert(parameter)
myKey = "HKLM\SYSTEM\CurrentControlSet\Policies\Microsoft\FVE\" + parameter
lcValue1 = WSHShell.RegRead(myKey)
If lcValue1 = "0" Then
WshShell.RegWrite myKey, "1", "REG_DWORD"
WshShell.Popup "Bloqueado"
Else
WshShell.RegWrite myKey, "0", "REG_DWORD"
WshShell.Popup "DesBloqueado"
End If
End Sub
Saludos!,
Armando H. Mateu.