Get registry key

[Bill Parker]

I need to check if an object has been registered in Windows. It looks like I can check this key because I find the same key on XP and Server 2003. (Not even thinking about Win7 yet.) But I don't know how to specify it since the key name includes a "path" with backslashes.

?Registry.sys_get("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache")

returns blank, because there are multiple names with this key path. The name of the key I need to check is "D:\AMSC\bmc_cass.exe", so that would be

?Registry.sys_get("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache\D:\AMSC\bmc_cass.exe")

Alpha does not like that. How should I escape the backslashes in that last segment of the key name?

The return value I am looking for will be something like "foo API".

Bill.

[csda1]

Re: Get registry key

Hi Bill,

Based upon my exploration, I don't think there is any workable solution using existing A5 functions. But I'm sure an API call from Alpha could probably do it.

Perhaps Selwyn might have a more definitive answer.

--Ira

[Bill Parker]

Re: Get registry key

Thanks Ira.

Bill.

[G Gabriel]

Re: Get registry key

How should I escape the backslashes in that last segment of the key name?

Responding only to this part of your question, you escape the backslash with a backslash, i.e. if the name is:
abc\xyz
you change it to:
abc\\xyz

[Scott Emerick]

Re: Get registry key

I played with this also, and agree with Ira.

Using "\" or chr(92) will not work in this instants.

Bill, FYI, W7 path is HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\MuiCache

Scott

[Bill Parker]

Re: Get registry key

Selwyn suggested looking at the VB code on activexperts.com to find something that might be adapted. I'll do that and report back if I find anything.

Bill.

[Marcel Kollenaar]

Re: Get registry key

Look at: http://www.activexperts.com/activmon...ipts/registry/

[Bill Parker]

Re: Get registry key

Yes, that is the link Selwyn gave me. Many scripts use WMI. I have brought up the wikipedia page on that but I don't know how much I will need to learn about WMI yet.

Bill.

[Marcel Kollenaar]

Re: Get registry key

What about this example:

'Date Created: 08-Feb-2010 07:49:41 PM
'Last Updated: 08-Feb-2010 07:49:41 PM
'Created By  : Marcel Kollenaar
'Updated By  : Marcel Kollenaar
debug(0)
Dim objShell as P
Dim strShell as C
objShell = ole.Create("WScript.Shell")
strShell = objShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Word\Wizards\PageSize")
ui_msg_box("Show pageSize",strShell)

L appactivate(A App,[A Wait])  '
C Class()  'Get the metaclass.
P createshortcut(C PathLink)  '
OLE::wscript.shell::IWshExec exec(C Command)  '
C expandenvironmentstrings(C Src)  '
L logevent(A Type,C Message,[C Target])  '
L Onedit()  'Public user defined function.
N popup(C Text,[A SecondsToWait,[A Title,[A Type]]])  '
V regdelete(C Name)  '
A regread(C Name)  '
V regwrite(C Name,A Value,[A Type])  '
N run(C Command,[A WindowStyle,[A WaitOnReturn]])  '
V sendkeys(C Keys,[A Wait])  '
CurrentDirectory = "C:\Documents and Settings\Marcel Kollenaar"
+Environment.
+SpecialFolders.

Use objShell.RegRead, objShell.RegWrite and objShell.Regdelete to manage the registry keys. See also: http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

The best pace to look for scripts is: http://technet.microsoft.com/en-us/s...r/default.aspx and translate it into Xbasic.

[Bill Parker]

Re: Get registry key

Marcel,

Your script works, but not for me because my key value name includes backslashes.

I found this code on activexperts. What is good is that it has separate parameters for the key path and the value name. (I am hoping that may be a solution.) So I have started to translate the script to xbasic, but I need to figure out what WScript is. Not sure yet if I have handled the hex value correctly. And it looks like there are some other constants I will need to get values for.

'const HKEY_LOCAL_MACHINE = &H80000002
HKEY_LOCAL_MACHINE = hex_to_dec("80000002")
strComputer = "."
'Set StdOut = WScript.StdOut
StdOut = WScript.StdOut
 
'Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + strComputer + "\root\default:StdRegProv")
 
 
strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings"
strValueName = "TrustPolicy"
'oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
oReg.GetStringValue (HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue)
'StdOut.WriteLine "Current WSH Trust Policy Value: " & strValue
ui_msg_box("Current WSH Trust Policy Value: ", strValue)
end

Bill.

[Marcel Kollenaar]

Re: Get registry key

Bill,

Try this:

dim path as C

[COLOR=Red]dim bs as C = chr(92)[/COLOR]

path =  [COLOR=Red]"C:"+bs+"Documents and Settings"+bs+"Marcel Kollenaar"+bs+"Application Data"+bs+"Microsoft"+bs+"Sjablonen"+bs[/COLOR]

registry.sys_set("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\General\SharedTemplates",path)

Use the chr(92) function for the backslash.

+++++++++++++++++++++++ edit

Actually you will read the first standard key. If you add "test" to the (standard) key the function returns "test". I think the solution is that you need vbscript that iterates with a for each through the result of an sql statement. IMHO The "keys" are not direct accessable.

+++++++++++++++++++++++ edit 2

Strange this works:
?Registry.sys_get("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache\@shell32.dll,-8504")
= "A&utomatisch afspelen"

[Bill Parker]

Re: Get registry key

My similar name in that registry path has a full data path, as
@C:\WINDOWS\system32\SHELL32.dll,-9216. But these do not work.

?Registry.sys_get("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICac@C:\WINDOWS\system32\SHELL32.dll,-9216")
= ""
?Registry.sys_get("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\[email protected],-9216")
= ""

But in
HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache
I also have a name of
C:\Program Files\Alpha Software\a5v9\alpha5.exe
with a value of "Alpha Five".

If you have a similar key can you return the value of "Alpha Five"?

Bill.

[Marcel Kollenaar]

Re: Get registry key

Hi Bill,

I have such a key. But it complains about a the head of the key. So far no success.

[csda1]

Re: Get registry key

No success for me either. Very odd. Perhaps enumerating the keys and extracting what you need?

[Bill Parker]

Re: Get registry key

I am finally back onto this project. I am converting some VB from the MS knowledgebase. Looks like it should work at least in XP. But of course I have an issue with parameters when calling the dll.

I don't see anywhere to specify that parameters are byref (since Alpha's parameters default to byval and some of these are byref). I don't know if that is the problem, but the error code 87 that is returned is "invalid parameter". The offending function is just after the debug(1), if one of you great minds could take a look.

Right now the function is hard wired, so it can be called with
registry_getvalues("","")

Bill.