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" |