Test of existence of key's value.
vExistsValue = Key.ExistsValue (Name as String)
Where | Type | Optional | Default | Description |
---|---|---|---|---|
Name | String | Name of the value. |
Boolean
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 |
Close, CreateKey, Delete, ExistsKey, ExistsValue, Flush, numSubKeys, numValues, Save
Class, hKey, LastWriteTime, Name, SubKeys, Values
One registry key.
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.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz