Windows.XP.in.a.Nutshell.1002005.2Ed [Electronic resources]

9.9. Registry Routines

The Shell object provides Windows Registry access through the RegRead , RegWrite, and RegDelete methods.

When accessing a Registry key, you must specify the path. The path is built from the Registry hive name (the name of one of the major Registry branches described in Chapter 8), followed by the path to the key separated by backslash characters. Table 9-8 lists the hive names.

HKEY_CURRENT_USER

HKEY_LOCAL_MACHINE

HKEY_CLASSES_ROOT

HKEY_USERS

HKEY_CURRENT_CONFIG

HKEY_DYN_DATA

For example, the path to the Windows version number would be represented as HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion.

One way to easily get the path for registry values is to use the RegEdit application to search for Registry information and copy the key path to the clipboard using Edit Copy Key Name. The Registry routines do not provide the ability to list any values under a particular key, so you need to know the path to any Registry values you wish to reference.

9.9.1. RegRead

RegRead reads the registry value from the specified Registry path:

strVal = objShell.RegRead(strKeyPath)

strKeyPath is a path to the Registry value you wish to read.

Set objShell = CreateObject("Wscript.Shell")
Wscript.Echo "Your Windows Version Number is " _
& objshell.RegRead _
( "HKLM\Software\Microsoft\Windows\CurrentVersion\VersionNumber")

9.9.2. RegWrite

RegWrite writes a value to a specified key value or creates a new key:

objShell.RegWrite strPath, anyValue [,strType]

The strPath parameter is the path to the key to write. If the Registry path ends with a backslash, then RegWrite attempts to create a new key.

Table 9-9 lists the possible values for the optional strType parameter.

'change the default document directory for Word 97
Set objShell = CreateObject("Wscript.Shell")
objShell.RegWrite _
"HKCU\Software\Microsoft\Office\8.0\Word\Options\Doc-Path" _
, "H:\Data\Word"
'create new registry key
objShell.RegWrite _
"HKCU\Software\Microsoft\Office\8.0\Word\Options\NewPath\" _
, "

RegWrite will create a Registry path if it does not already exist.

9.9.3. RegDelete

RegDelete deletes an existing Registry key or value:

objShell.RegDelete strPath

The strPath parameter is the path to the value or key you want to delete. If the Registry path ends with a backslash, then RegDelete will attempt to delete the specified key; otherwise, it assumes it's a value.

If you specify a key to delete, RegDelete will delete all child values and keys, so exercise caution.

'delete the Newpath key. This will delete the NewPath key and all 
'values and keys under it
objShell.Delete _
"HKCU\Software\Microsoft\Office\8.0\Word\Options\NewPath\"
, "