ActiveX RegEdit

ActiveX/VBSScript registry editor  ActiveX NT User account manager  Export MDB/DBF from ASP
Url replacer, IIS url rewrite Active LogFile  Email export  ActiveX/ASP Scripting Dictionary object
 IISTracer, real-time IIS monitor
 Huge ASP upload - upload files with progress.
          Library  Other libraries, changes (revision history), About prices and registration 

Description
Intuitive, easy to use COM interface to windows registry. Set of classes to read/enumerate/modify windows registry keys and values from ASP, VBS and T-SQL.
Links
License
      ActiveX RegEdit was designed to work with Windows NT 4.0. The library uses standard Win32 interface, so it can work on any versions of Windows NT 3.1/3.51, Windows NT 4.0, Windows 2000, Windows 2003 and Windows XP. You can use it on workstation, server or advanced server versions.

Registry values manipulation

  • Read values and its types
  • Set registry values and its types
  • Delete registry values
  • Test existence of a value

Registry keys manipulation

  • Add and remove keys.
  • Test existence of a key
  • Read key properties (number of values and subkeys, last write time, ..)

Enumaration

  • Enumerate values of key
  • Enumerate subkeys of key

Utilities

  • Connect to remote registry
  • Logon to user account with read/write registry rights (ASP/T-SQL)
  • Expand envinronment strings.
  • Works with any VBA (VBA 5, VBA 6, VB.Net, Word, Excel, Access, ...), script environments (VBScript and Jscript in ASP, ASP.Net, WSH) and C#.
Object model
Server - Server/computer for the ActiveX regedit.
 
Keys - Collection of key objects of one registry key. (Keys property, Subkeys of the Key specified by Connect method (or by hKey property).)
 
Key - One registry key. (GetKey method, Returns specified key from remote computer.)
   
Values - Collection of value objects of one registry key. (Values property, Values for the specified registry key.)
   
 
Value - Represents one value from windows registry (Item property, Returns a single Value object from the Values collection.)
   
Keys - Collection of key objects of one registry key. (SubKeys property, Subkeys of the key.)
     
Key - One registry key. (Item property, Returns a single Key object from the Keys collection.)
Library classes
Key One registry key.
Keys Collection of key objects of one registry key.
Server Server/computer for the ActiveX regedit.
Value Represents one value from windows registry
Values Collection of value objects of one registry key.
Library enums
AccessRights Access mask that describes the desired security access for the key.
LogonTypes Specifies the type of logon operation to perform.
ReservedKeys The predefined reserved handle values.
ValueType Registry value types.
Examples
 How to - create a key, add value (long, binary, ..), enumerate, delete.  
 Sample registry viewer  

      This is full client-side source code for Microsoft IE to browse local/remote registry. You have to allow creating of ActiveX RegEdit object to run this code properly.
Another computer:
Registry keys
(Local)
Registry values
None

 Add a new key  
  'Get RegEdit.Server object
  Set S = CreateObject("RegEdit.Server")

  'Add a new key
  Set Key = S.GetKey("HKLM\SOFTWARE").CreateKey("MyFirstKey")
 List of OLEDB providers on local or remote computer  
      This script lets you list all installed OLEDB providers (oledb drivers) on local or remote computer from windows scripting host/VBScript. The script can be simly modified for ASP or ASP.Net.
  'The script writes all installed OLEDB providers.
  Option Explicit

  Dim OutText, S, Key

  'Create a server object
  Set S = CreateObject("RegEdit.Server")

  'Optionally connect to another computer
'  S.Connect "muj"

  OutText = OutText & "OLEDB providers installed on " & _
    s.Name & ":" & vbCrLf
  OutText = OutText & "************************************" & vbCrLf

  For Each Key In S.GetKey("HKCR\CLSID").SubKeys
    If Key.ExistsValue("OLEDB_SERVICES") Then
      OutText = OutText & Key.Values("").Value &  vbtab & _
        " : " &   Key.SubKeys("OLE DB Provider").Values("") & vbCrLf
    End If
  Next

  Wscript.Echo OutText
 Set ODBC CPTimeout registry value  
  Set S = CreateObject("RegEdit.Server")
  'CPTimeout is string value
  S.Keys("SOFTWARE\ODBC\ODBCINST.INI\SQL Server").Values("CPTimeout") = "180"

XML/PAD
All samples
© 1996 – 2006 Antonin Foller, Motobit Software, help{at}pstruh.cz, help v. 1.06.2