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