VB.Net and BitLocker Drive Encryption Status

Question

Hi,

Is it possible to get the status of the Bit Locker Drive for the "C:\" volume using VB.Net?

Currently I am able to get the status using manage-bde -status and following PowerShell as well:
$bitlockerVolume = Get-BitLockerVolume -MountPoint "C:"
$statusBitlocker = $bitlockerVolume.ProtectionStatus
if ($statusBitlocker -eq "On")
{
With VB.Net, I would like to test it when form1 loads. If C drive is encrypted show the dialog box 1 else show form2, possible in vb.net?

Answer 1

Hi,

Atleast some progress, now I am able to have some results with help of following code:
But I would like to check ONLY if C:\ drive is encrypted then show a message box. Otherwise /IF not encrypted, show form2.

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            Me.RichTextBox1.Clear()
            Dim searcher As New ManagementObjectSearcher("root\cimv2\Security\MicrosoftVolumeEncryption", "SELECT * FROM Win32_EncryptableVolume")
            For Each queryObj As ManagementObject In searcher.Get()
                '
                queryObj("DriveLetter").ToString.ToUpper()
                queryObj("ProtectionStatus").ToString.ToUpper()
                Dim drvLtr = "C:"
                Dim prtStatus = "1"
                '
                If queryObj("DriveLetter").ToString.ToUpper.Contains(drvLtr.ToUpper) AndAlso queryObj("ProtectionStatus").ToString.ToUpper.Contains(prtStatus.ToUpper) Then
                    MessageBox.Show(queryObj("DriveLetter").ToString & "Drive is Encrypted.") 'Concludes C:\ is encrypted
                Else 'Otherwise assume C:\ is not encrypted.
                    MessageBox.Show(queryObj("DriveLetter").ToString & "Drive is NOT Accessible.")
                End If
                '
            Next
        Catch err As ManagementException
            Me.Text = "An error occurred while querying for WMI data: " & err.Message
        End Try
    End Sub

But it seems like all drives are being evaluated and false results generated in messagebox.
Any thought to limit it to scan for C:\ drive ONLY?

Code Credits: how-to-get-the-result-of-a-getproperties-method-of-a-wmi-class-in-vbnet-using

Answer 2

You can use WMI
Win32_EncryptableVolume class

• GetProtectionStatus
  (WMICodeCreator to generate main code)

Answer 3

Which NameSpace?

Win32_EncryptableVolume isn't available?
![67385-image.png][2]

Someone have an example? [2]: /api/attachments/67385-image.png?platform=QnA