Best way to search for a reg key?

[ken82m]

Okay while I have done similiar things before it was a pain and didn't seem too efficient.

I'm hoping somebody has a better way.

Key

HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\<ProfileName>\13dbb0c8aa05101a9bb000aa002fc45a

Value

00036601 (REG_BINARY)

I am writing a script to manipulate an outlook configuration. The mystery part is the "ProfileName" key. I have no way of knowing for sure what that profile name is and their could be multiple profile keys.

So what I'm looking for is a simple way to pull a list of keys directly underneath "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles" That way I can do a simple RegExists and change whatever profiles need updating.

Thanks,

Kenny

[PsaltyDS]

Okay while I have done similiar things before it was a pain and didn't seem too efficient.

I'm hoping somebody has a better way.

Key

HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\<ProfileName>\13dbb0c8aa05101a9bb000aa002fc45a

Value

00036601 (REG_BINARY)

I am writing a script to manipulate an outlook configuration. The mystery part is the "ProfileName" key. I have no way of knowing for sure what that profile name is and their could be multiple profile keys.

So what I'm looking for is a simple way to pull a list of keys directly underneath "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles" That way I can do a simple RegExists and change whatever profiles need updating.

Thanks,

Kenny

Since you know exactly where to look and don't need to do a recursive search, just enumerate the keys that are there with RegEnumKey(). The only problem there is it will not return a complete list, you have to enumerate in a loop:

#include <array.au3>

$sKeyRoot = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
$sKeyList = ""
For $i = 1 To 1000
    $sKey = RegEnumKey($sKeyRoot, $i)
    If @error Then ExitLoop
    $sKeyList &= Chr(1) & $sKey
Next
$avKeyList = StringSplit(StringTrimLeft($sKeyList, 1), Chr(1))
_ArrayDisplay($avKeyList, "Debug: $avKeyList")

[Monamo]

Okay while I have done similiar things before it was a pain and didn't seem too efficient.

I'm hoping somebody has a better way.

Key

HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\<ProfileName>\13dbb0c8aa05101a9bb000aa002fc45a

Value

00036601 (REG_BINARY)

I am writing a script to manipulate an outlook configuration. The mystery part is the "ProfileName" key. I have no way of knowing for sure what that profile name is and their could be multiple profile keys.

So what I'm looking for is a simple way to pull a list of keys directly underneath "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles" That way I can do a simple RegExists and change whatever profiles need updating.

Thanks,

Kenny

RegEnumKey() would likely be your best bet.

[ken82m]

Damn I feel stupid lol - was sitting right in the help file. Just haven't had time to read up on all the commands since the last time I did this.

Thanks guys.

[SpookMeister]

You might be able to use:

HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\DefaultProfile

To get the value you need.

[Monamo]

You might be able to use:

HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\DefaultProfile

To get the value you need.

One catch I ran into there was that the profile itself has a lot of random subkeys under it as well. Then you have to search under one or more of the subkeys to find a ValueName that matched.

Here's a quick and dirty check for it on a "multiple-profile" system (I capped the subkeys at 100, you can raise or lower based on the expected number of profiles on the box):

CODE

$sRootKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"

$sValueCheck = "00036601"

For $i = 1 To 100

$sProfileName = RegEnumKey($sRootKey, $i)

If @error <> 0 Then ExitLoop

MsgBox(0, "Profile Name", $sProfileName)

For $key = 1 To 100

$sProfileKey = RegEnumKey($sRootKey & $sProfileName, $key)

If @error <> 0 Then ExitLoop

$check = RegRead($sRootKey & $sProfileName & "\" & $sProfileKey, $sValueCheck)

If Not @error Then

MsgBox(64, "ValueName found", "A matching ValueName " & "(" & $sValueCheck & ")" & " found under:" & @LF & $sProfileName &"\" &$sProfileKey)

EndIf

Next

Next

Edit: wording

Edited December 17, 2007 by Monamo

[ken82m]

Here's what I came up with based on what you guys gave me, works Perfectly. Thanks alot for the help.

Believe or not Monamo those subkeys aren't random (I know I never would have guessed either)

The subkey 13dbb0c8aa05101a9bb000aa002fc45a relates to exchange settings.

And the binary value 00036601 contains the connection parameters or mode (ie., cached mode, offline mode etc.)

The first two numbers control what I want. 04 would seem to be direct connect like outlook 2000 or XP would do and 84 would seem to be cached mode. Or at least it did in all my tests.

We recently went through a mail migration and most of the other devisions laughed at my custom transform for Outlook.

Except now I'm one of a few divisions in cached mode and they all need to be lol. Which as you can see is a little more complex..

Anyway thanks again guys. As always the members of this forum kick a**

Happy Holidays

-Kenny

#include <array.au3>
#include <String.au3>
$sKeyRoot = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
$sKeyList = ""
$i = 1
$Replaced = 0

Do
$sKey = RegEnumKey($sKeyRoot, $i)
If @error <> 0 Then ExitLoop
$i = $i + 1
$sKeyList &= Chr(1) & $sKey
$avKeyList = StringSplit(StringTrimLeft($sKeyList, 1), Chr(1))
$RegVal = RegRead($sKeyRoot & "\" & $avKeyList[1] & "\13dbb0c8aa05101a9bb000aa002fc45a", "00036601")
$OutlookMode = StringLeft($RegVal, 2)
If $OutlookMode = 04 Then
$RegVal = StringTrimLeft($RegVal, 2)
$RegVal = _StringInsert($RegVal, 84, 0)
RegWrite($sKeyRoot & "\" & $avKeyList[1] & "\13dbb0c8aa05101a9bb000aa002fc45a", "00036601", "REG_BINARY", $RegVal)
If RegRead($sKeyRoot & "\" & $avKeyList[1] & "\13dbb0c8aa05101a9bb000aa002fc45a", "00036601") = $RegVal Then $Replaced =   $Replaced + 1
EndIf
EndIf
Until 1 = 2

If $Replaced = 0 Then
MsgBox(4096, "Outlook Update", "No profiles requiring update could be found")
Else
MsgBox(4096, "Outlook Update", "Number of profiles that would have been updated:  " & $Replaced)
EndIf

Exit

Edited December 19, 2007 by ken82m