Скрипт .vbs, отображающий состояние Bitlocker диска C

Question

Я пытаюсь создать скрипт .vbs, который будет отображать состояние BitLocker диска C компьютера.

Я попытался использовать следующий код, но получил ошибку 0X80041003, Источник: (ноль).

strComputer = "." 
Set objShell = CreateObject("Wscript.Shell") 
strEnvSysDrive = objShell.ExpandEnvironmentStrings("%SystemDrive%") 

Set objWMIServiceBit = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2\Security\MicrosoftVolumeEncryption") 
Set colItems = objWMIServiceBit.ExecQuery("SELECT * FROM Win32_EncryptableVolume",,48) 

For Each objItem in colItems 
    If objItem.DriveLetter = strEnvSysDrive Then 
        strDeviceC = objItem.DeviceID 
        DriveC =  "Win32_EncryptableVolume.DeviceID='"&strDeviceC&"'" 
        Set objOutParams = objWMIServiceBit.ExecMethod(DriveC, "GetProtectionStatus") 
        If objOutParams.ProtectionStatus = "1" Then 
            wscript.Echo "Bitlocker is enabled" 
        Else 
            wscript.Echo "Bitlocker is disabled" 
        End if 
    End If 
Next

Кто-нибудь знает, почему я продолжаю получать эту ошибку или у меня есть какой-либо скрипт .vbs, которыйбудет ли отображаться состояние BitLocker диска C?