asked on

Easy way to make Get(save)Setting Local Machine not user

Re: Easy way to make Get(save)Setting Local Machine not user
I have an NT client with multiple users visiting a terminal each day. I have written a program which used SaveSetting and GetSetting to save to the registry, however, it defaults to the
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\omniterm folder.

This is a pain because program settings change between users.

Is there a SIMPLE way to have the data stored in the LOCALMACHINE area so settings are common to the PC not the user. I have GetSetting calls all over my app and so dont want to complex a solution. Maybe having WriteSetting and ReadSetting function that require the same parameters passed to them but save the data in the desired location. That way I could just store the functions in my global.bas and do a global replace on the function names

Cheers as always

Stewart (NVMS)

AssafLavie

You can write your own function which will look very similar to the GetSetting function but will save the data to the HKLM branch. It should be easy enough using the WSH registry functions.

DMignatt

Try with Windows API like

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

bye

caraf_g

Check out http://www.carobit.com/PandE/VBSamples/VBAll/shellexecute.zip

Never mind the shellexecute functionality in this project, but look at the handy Registry class that comes with it, that allows you to read and write to any location you fancy in the Registry.

Of course, use at your own peril. <g>

TimCottee

Here is another quick and dirty method, the following code goes in a module. You then only need to globally replace the SaveSetting/GetSetting/DeleteSetting in your project with OSaveSetting/OGetSetting/ODeleteSetting. (Assumes that you have the windows scripting host installed on the machine - WSHOM.OCX).

Private wshShell As Object

Public Function OGetSetting(ByVal AppName As String, ByVal Section As String, ByVal KeyName As String, ByVal Default As Variant, Optional ByVal System As Boolean = True) As String
Set wshShell = CreateObject("WScript.Shell")
On Error GoTo errBadRead
OGetSetting = wshShell.RegRead(IIf(System, "HKLM", "HKCU") & "\Software\My Company\" & AppName & "\" & Section & "\" & KeyName)
Set wshShell = Nothing
Exit Function
errBadRead:
OGetSetting = Default
Set wshShell = Nothing
End Function

Public Sub OSaveSetting(ByVal AppName As String, ByVal Section As String, ByVal KeyName As String, ByVal Value As Variant, Optional ByVal System As Boolean = True)
Set wshShell = CreateObject("WScript.Shell")
On Error GoTo errBadWrite
Call wshShell.RegWrite(IIf(System, "HKLM", "HKCU") & "\Software\My Company\" & AppName & "\" & Section & "\" & KeyName, Value)
Set wshShell = Nothing
Exit Sub
errBadWrite:
Set wshShell = Nothing
End Sub

Public Sub ODeleteSetting(ByVal AppName As String, ByVal Section As String, ByVal KeyName As String, Optional ByVal System As Boolean = True)
Set wshShell = CreateObject("WScript.Shell")
On Error GoTo errBadDelete
Call wshShell.RegDelete(IIf(System, "HKLM", "HKCU") & "\Software\My Company\" & AppName & "\" & Section & "\" & KeyName)
Set wshShell = Nothing
Exit Sub
errBadDelete:
Set wshShell = Nothing
End Sub

calacuccia

<Ping>

ASKER CERTIFIED SOLUTION

LadyVyxen

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

calacuccia

LadyVyxen is back ;-)

LadyVyxen

*smiles warmly*
Did you miss me?
LV.

caraf_g

<hug>

calacuccia

<Blushes>

Apparently. Never frequented you in the Lounge, but let's say I've heared about you ;-)

nvms

ASKER

Wow! So much dialog. I have been overseas and have just returned to much including this project. Ms Vixen, that's an awfully large code segment, is it all required ? So tempting to use an .ini file! Shall get into code mode shortly and follow up on this

Thanks again

Stewart

LadyVyxen

LOL. Now I'm worries. (Heard about me...? *ponders*)
*tickles you all mercilessly*

Stewart: There are a number of functions in there for reading/writing to any part of the registry, and to any registry type (DWORD/Extended String format, etc.)

Remember: Only the *functions used* in a module get compiled. That's why we have file libraries :>

*bounce*

LV.

TonyS020799

Hello nvms,
Please respond to the experts informing them of your progress here.

TonyS
Community Support Moderator @ Experts Exchange

Netminder

Netminder

Force/accepted by
Netminder
Community Support Moderator
Experts Exchange