Script to Enumerate Cached Exchange mode usage

Oh man! Ad-blocking software has been detected! :'(

This website is run by the community, for the community... and it needs advertisements in order to keep running. Blocking our ads means your killing our stats!
Please disable your ad-block, or become a premium member to hide all advertisements and this notice.

Hi scripting bods.

I've created a script to enumerate the values within a registry key that shows whether or not Cached Exchange mode is enabled on a particular workstation. The script runs fine for the first value in the key but doesn't seem to loop properly. When run I get the following error:

Error: The handle is invalid.
Code: 80070006

The error occurs at Line 32, Char 2 - highlighted in the script below. This script has been adapted from the one at this link and is pretty basic but my scripting knowledge is pants (too much like programming for me ) and I can't see what's wrong. I've fixed a typo on the original at line 25 (missing comma).

Here's the script:

Code:

Const HKEY_CURRENT_USER = &H80000001
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7

strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
 strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\13dbb0c8aa05101a9bb000aa002fc45a"
objReg.EnumValues HKEY_CURRENT_USER,_
 strKeyPath,arrEntryNames,arrValueTypes
 
For i=0 To UBound(arrEntryNames)
 Wscript.Echo "Entry Name: " & arrEntryNames(i)
 Select Case arrValueTypes(i)
 Case REG_SZ
 Wscript.Echo "Data Type: String"
 objReg.GetStringValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),strValue
 Wscript.Echo "Value: " & strValue
 Case REG_EXPAND_SZ
 Wscript.Echo "Data Type: Expanded String"
 objReg.GetExpandedStringValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),estrValue
 Wscript.Echo "Value: " & estrValue
 Case REG_BINARY
 Wscript.Echo "Data Type: Binary"
 objReg.GetBinaryValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),arrValue
 WScript.StdOut.Write "Value: "
 For Each byteValue in arrValue
 WScript.StdOut.Write byteValue & " "
 Next
 WScript.StdOut.Write vbCRLF
 Case REG_DWORD
 Wscript.Echo "Data Type: DWORD"
 objReg.GetDWORDValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),dwValue
 Wscript.Echo "Value: " & dwValue
 Case REG_MULTI_SZ
 Wscript.Echo "Data Type: Multi String"
 objReg.GetMultiStringValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),arrValues
 For Each strValue in arrValues
 Wscript.Echo strValue
 Next
 End Select
Next

Any help would be greatly appreciated, as otherwise it means traipsing round 200-odd workstations doing a manual check

Cheers

 

Oh man! Ad-blocking software has been detected! :'(

This website is run by the community, for the community... and it needs advertisements in order to keep running. Blocking our ads means your killing our stats!
Please disable your ad-block, or become a premium member to hide all advertisements and this notice.

I think your problem is that you haven't declared an instance of 'wscript.stdout'

Try adding

Set objStdOut = WScript.StdOut

at the start of the script where you declare your variables.

then when you need to use WScript.StdOut use 'objStdOut.Write' instead.

HTH

 

Stoney

Thanks - I've made the change as suggested, but am now getting the same error at line 33. Looks like the change has enabled the script to get beyond line 32 but it hangs at the next line now.

Here's the modified script:

Code:

Const HKEY_CURRENT_USER = &H80000001
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7

strComputer = "."
Set objStdOut = WScript.StdOut

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
 strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\13dbb0c8aa05101a9bb000aa002fc45a"
objReg.EnumValues HKEY_CURRENT_USER,_
 strKeyPath,arrEntryNames,arrValueTypes
 
For i=0 To UBound(arrEntryNames)
 Wscript.Echo "Entry Name: " & arrEntryNames(i)
 Select Case arrValueTypes(i)
 Case REG_SZ
 Wscript.Echo "Data Type: String"
 objReg.GetStringValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),strValue
 Wscript.Echo "Value: " & strValue
 Case REG_EXPAND_SZ
 Wscript.Echo "Data Type: Expanded String"
 objReg.GetExpandedStringValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),estrValue
 Wscript.Echo "Value: " & estrValue
 Case REG_BINARY
 Wscript.Echo "Data Type: Binary"
 objReg.GetBinaryValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),arrValue
 objStdOut.Write "Value: "
 For Each byteValue in arrValue
 objStdOut.Write byteValue & " "
 Next
 objStdOut.Write vbCRLF
 Case REG_DWORD
 Wscript.Echo "Data Type: DWORD"
 objReg.GetDWORDValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),dwValue
 Wscript.Echo "Value: " & dwValue
 Case REG_MULTI_SZ
 Wscript.Echo "Data Type: Multi String"
 objReg.GetMultiStringValue HKEY_CURRENT_USER, _
 strKeyPath, arrEntryNames(i),arrValues
 For Each strValue in arrValues
 Wscript.Echo strValue
 Next
 End Select
Next

 

Possibly there's no spaces either side of the = in

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _

 

Cheersd Stoney, I've tried that and it had no effect. Not to worry, I've run a manual check on all of them now by remotely interrogating the registry on each machine. Took about 20 minutes, but faster than trying to sod around and get the script working!

Sparky - I'm not going to deploy any changes - I just wanted to see how many clients had been set up to use CE for some reporting that I'm running. If we need to make the change I've got the GPO ready to go already - I did it once before at a job a couple of years ago.