Registry values manipulation
Registry keys manipulation
Enumaration
Utilities
| 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.) | |||||||||
| 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. |
|
| ||||||
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:
|
| ||
'Get RegEdit.Server object
Set S = CreateObject("RegEdit.Server")
'Add a new key
Set Key = S.GetKey("HKLM\SOFTWARE").CreateKey("MyFirstKey") |
| ||
| 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 S = CreateObject("RegEdit.Server")
'CPTimeout is string value
S.Keys("SOFTWARE\ODBC\ODBCINST.INI\SQL Server").Values("CPTimeout") = "180" |