DZone Snippets: registry code

Excel VBA : read registry key values on a remote computer using WMI

bouffon69 (Sylvain Le Courtois) — Fri, 19 Oct 2007 12:03:49 GMT

// VBA code to paste in an module



Function ORACLEHOMES(strComputer As String)

    Const HKEY_LOCAL_MACHINE = &H80000002

    ORACLEHOMES = ""

    Dim strKeyPath

    Dim arrSubKeys

    Dim oReg

    Dim strValueName

    Dim strValue

    'strComputer = "."

    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

    strKeyPath = "SOFTWARE\ORACLE"

    oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

    For Each subkey In arrSubKeys

        If Left(subkey, 4) = "KEY_" Then

            strValueName = "ORACLE_HOME"

            oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, strValueName, strValue

            If ORACLEHOMES = "" Then

                ORACLEHOMES = strValue

            Else

                ORACLEHOMES = ORACLEHOMES & ";" & strValue

            End If

        End If

    Next

End Function

Open/Creates a Base Key in the Registry

dubby (Dave) — Tue, 11 Sep 2007 11:58:28 GMT

// open a Base Key in the registry



       public static RegistryKey GetKey(string baseKey)

        {

            RegistryKey key;

            try

            {

                key = Registry.LocalMachine.OpenSubKey(baseKey, true);



                if (key == null)

                {

                    key = Registry.LocalMachine.CreateSubKey(baseKey);

                }

                else

                {

                    MessageBox.Show("Base key resolved");

                }

            }

            catch (Exception e)

            {

                return null;

            }

            return key;

        }

Solution for a common problem: "Cannot write to the registry"

mstampar (Miroslav Stampar) — Wed, 23 May 2007 12:20:00 GMT

Original (not working):



 RegistryKey reg = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop");

 reg.SetValue("WallpaperStyle", "1");    //2 for stretch

Modified (working):



 RegistryKey reg = Registry.CurrentUser.OpenSubKey("Control Panel\\Desktop", true);

 reg.SetValue("WallpaperStyle", "1");    //2 for stretch

Wallpaper.reg

mcandre (Andrew Pennebaker) — Sat, 09 Dec 2006 03:41:12 GMT



[HKEY_CURRENT_USER\Control Panel\Desktop]

"Wallpaper"="C:\\wallpaper.bmp"

Basic Registry Access Example

codeguy (Sean Harvell) — Tue, 28 Mar 2006 20:31:11 GMT

// Basic Registry Access Example



RegistryKey key = Registry.LocalMachine.OpenSubKey("SOFTWARE\Company\Priduct\Version");

if (key!=null)

{

string ini = key.GetValue("localinifile","").ToString();

key.Close();

}

Change default action of non-URLs in Internet Explorer location bar

peter (Peter Cooperx) — Fri, 24 Feb 2006 07:27:42 GMT

Turn this into a .reg file for people to use:

REGEDIT4



[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchURL]

""="http://www.yoursite.com/search?&q=%s"

"provider"="x"