Vista - How do you call a method?

I am trying this another way;

I am writting ascrit that uses the following;

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array(".")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\CIMV2\Security\MicrosoftVolumeEncryption")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_EncryptableVolume", "WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)

So far, so good.

Win32_EncryptableVolume has a method called GetEncryptionMethod().

How do I call this method and get its properties?

OldDog - Please don't make me write this in PowerShell!

I would first get the instances, instead of doing a query; use the following
line in place of the ExecQuery statement:

Set volumes = objWMIService.InstancesOf("Win32_EncryptableVolume")

Then do this:
dim retval, em

for each volume in volumes
retval = volume.GetEncryptionMethod(em)
WScript.Echo em
next

The big issue here is that by reference parameter being passed into and back
out of GetEncryptionMethod.



"OldDog" <mikef2691@xxxxxx> wrote in message
news:6d1f2793-ac87-48bf-af78-803d0986e0b8@xxxxxx

On May 6, 8:45*am, "Alex K. Angelopoulos" <aka(at)mvps.org> wrote:Thank you Alex. That works like a charm.

On May 6, 8:45*am, "Alex K. Angelopoulos" <aka(at)mvps.org> wrote:Thanks, Alex. That works like a charm. Here is my script;

dim retval, em
arrComputers = Array(".")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\CIMV2\Security\MicrosoftVolumeEncryption")
Set volumes = objWMIService.InstancesOf("Win32_EncryptableVolume")

for each volume in volumes
If volume.DriveLetter = "C:" then
retval = volume.GetEncryptionMethod(em)
WScript.Echo em
End If
Next
Next

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

Note that I was only interested in the C: drive, hence the "If
volume.DriveLetter "

OldDog

"OldDog" <mikef2691@xxxxxx> wrote in message
news:5bc08f69-11c0-4639-a57e-c281757f3b84@xxxxxx
Finally, a real, working demo of Win32_EncryptableVolume. : )

Do GetProtectionStatus and GetConversionStatus work correctly with this as
well now? I wasn't sure if the problem was using ExecQuery to get the
instance references.

On May 6, 11:50*am, "Alex K. Angelopoulos" <aka(at)mvps.org> wrote:
They both come up with the numbers I am expecting.

But to add to the fun, GetConversionStatus() has a property called
EncryptionPercentage which would be nice to have. Any ideas there?

OldDog

"OldDog" <mikef2691@xxxxxx> wrote in message
news:8b9b1709-ea73-49c6-ae48-99af6fa9dc11@xxxxxxYep. You just define variables for both conversionstatus and
encryptionpercent, then pass them in as parameters.

dim cs, ep

retval = volume.GetConversionStatus(cs, ep)
WScript.Echo cs
WScript.Echo ep

On May 6, 6:22*pm, "Alex K. Angelopoulos" <aka(at)mvps.org> wrote:Too cool. Thanks.