VBScript – BitLocker Compliance Script

cif = “”

Set s = CreateObject(“WScript.Shell”)
Set e = s.Exec(“manage-bde -status”)
Set status = e.StdOut

Do While status.AtEndOfStream <> True
line = status.ReadLine
If InStr(line, “Volume “) Then
cif = cif & Mid(line, 8, 2)
ElseIf InStr(line, “Conversion Status:”) Then
cif = cif & Mid(line, 26)
ElseIf InStr(line, “Percentage Encrypted:”) Then
cif = cif & “,” & Mid(line, 26) & “; ”
End If
Loop

WScript.Echo cif

email me