Vista - Scripting BitLocker in vbScript

Hi,

I have decided to rename this thread in the hopes that someone can
help me out here.

The problem with the script below is that it returns a 0 (zero) for
all three objects
regardless of the actual state, which could be 0-2 for protection
Statu, 0-4 for the Encryption Method or 0-5 for the conversion status.
TIA, OldDog


<-------------- Start Script ----------------------------------->
strComputer = "."
Set oShell = CreateObject("WScript.Shell")
strSDL = oShell.ExpandEnvironmentStrings("%SystemDrive%")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\CIMV2\Security\MicrosoftVolumeEncryption")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_EncryptableVolume",,48)


For Each objItem in colItems
If objItem.DriveLetter = strSDL then
WScript.Echo "DeviceID: " & objItem.DeviceID
Wscript.Echo "DriveLetter: " & objItem.DriveLetter
Wscript.Echo "EncryptionMethod: " &
objItem.GetEncryptionMethod
Wscript.Echo "ProtectionStatus: " &
objItem.GetProtectionStatus
Wscript.Echo "ConversionStatus: " &
objItem.GetConversionStatus
End If
Next


<------------ End Script -------------------------->

OldDog wrote:I'm not sure why you thought that would help. have you provided any
extra information to enable someone who could not help you before to
help you now?

--
HTH,
Bob Barrows