viernes, 13 de julio de 2018

Habilitar y Deshabilitar USB BitLocker


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.