OLE – s – RegEdit

Here are some scripts that access the Windows Register via OLE.

The following script is really simple, and uses WScript.shell

FUNCTION registry_read(key_path as string, key_name as string)
' reads a fully specified key
' e.g. message = registry_read("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\\", "SystemDirectory")
dim registry = CreateObject("WScript.shell")
registry_read = registry.regread(key_path & key_name)
' all local variables in a SUB and in a FUNCTION are automatically released on exit/end
END function

And here are two examples of it being used

message = "SystemDirectory: " & registry_read("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\\", "SystemDirectory")

message = "RegisteredOwner: " & registry_read("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner", "")

I have one generic script that queries the Register and displays the response. Included are 3 invocations of the generic script.

This is a fairly complex script that uses OLE and Wbemscripting.

You can find the script here NS-RegistryReadsUsingWbemScripting.

There is a script that focuses on querying the  StdRegProv service.

Again it uses OLE and Wbemscripting.

You can find the script here NS-Display-StdRegProv-Interface