VB.NET get mail server

[scorpion53061]

Basically how this started was the boss didnt want people to enter anything
for the options box, just simply be able to detect their smtp server.

Thus the problem began in detecting this....
It was much more complicated than I ever imagined...

 

[scorpion53061]

Fergus,

Will you show me where you are at with the registry search so I can build on
it?
(e-mail address removed)

remove 'nospam'

 

[Fergus Cooney]

Hi Scorp,

|| How is that registry application coming?

I'm sorry, I took a bit of a break, and then visited the newsgroup salad
bar and put too much on my plate, lol - so I haven't done anything on it since
we last spoke. I shall resist looking at new messages!! ;-)

I wanted to wait until I had more to give you. The stuff that goes around
the core needs more work. I'll be doing a couple of other investigations that
people sent in to me (salad is quick to eat) and then get back to the
RegSearcher. I'll send you the core routine later 'today' plus whatever I've
managed to do in the meantime.

|| Is there anything I can help with?

Yes, please. Some more details on the searches that you will be doing
would be handy. Can you give me as full a list as possible? I want to know
what searches you would do (to see how they'll work in parallel), what types
you are searching for (keys, values and/or data) and also whether you'd want
to do a whole-registry search or one restricted to a known set of nodes. (This
last one, if required, will have to be in version three.)

Regards,
Fergus

 

[scorpion53061]

Fergus,

This may help.........it will list all com components which will include
email.....
Now the trick is to know what to look for there....

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
txtOut.Text = ""
DisplayCOMComponents()
End Sub

Sub DisplayCOMComponents()
Dim regClsid As RegistryKey =
Registry.ClassesRoot.OpenSubKey("CLSID")

Dim clsid As String
For Each clsid In regClsid.GetSubKeyNames
Dim regClsidKey As RegistryKey =
regClsid.OpenSubKey(clsid)

Dim ProgID As String = CStr(regClsidKey.GetValue(""))
Dim regPath As RegistryKey =
regClsidKey.OpenSubKey("InprocServer32")
If regPath Is Nothing Then
regPath =
regClsidKey.OpenSubKey("LocalServer32")
End If
If Not (regPath Is Nothing) Then
Dim filePath As String =
CStr(regPath.GetValue(""))
LogMessage(ProgID & " " & clsid & " -> " &
filePath)
regPath.Close()
End If

regClsidKey.Close()
Next
End Sub