how to find dns available to use

[ghobbes98]

I was wondering how to query the system to return a list of the dns available at run time.
I want to simply then list the ones available to the user so they can pick which ever one they want to use
Any ideas
Thanks
G

 

[MrEGuest]

Those values are stored in the registry in the following key

HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers

Now, if you open Project->References and check the checkbox next to Registration Manipulation Classes you'll be able to use the following objects:

'Put this code in the right place and it should do exactly what you need.

Dim key As RegKey
Dim val As RegValue

Set key = RegKeyFromString("\HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers&quot
For Each val In key.Values
Combo1.AddItem val.Name
Next


Hope this helps!
Josh

 

[s2001]

Hi MrEGuest,

I could not locate the ref. to Registration Manipulation Classes in my project. Can you give the name of the dll.

Thanks
Murali Bala

 

[MrEGuest]

The dll is called regobj.dll

 

[MrEGuest]

If you do not have regobj it can be freely downloaded from this site:

http://download.microsoft.com/download/vb60pro/Update/6.0/W9X2K/EN-US/RegObji.exe

Hope this helps!
Josh

 

[s2001]

Thanks a lot Josh..It worked
Murali Bala