Thanks

>Here is some code I hacked out of SQL-DMO help file
>LOCAL oApp as SQLDMO.Application
>oApp = Createobject("SQLDMO.Application")
>
>oNames = oApp.ListAvailableSQLServers()
>Set Step On
>*on error resume next
>
>For Each oName In oNames
> LOCAL oServer as SQLDMO.SQLServer
> oServer = Createobject("SQLDmo.SqlServer")
> oserver.ConnectionID = << Needs your method of connecting here
>
> oServer.LoginSecure = .t.
> oServer.Connect( oName)
> If err.Number <> 0 then
> strErrorMsg = strErrorMsg && "" & vbCRLF
> strErrorMsg = strErrorMsg && "trouble connecting to " & oName & vbCRLF
> strErrorMsg = strErrorMsg && "" & vbCRLF
>
> err.Clear
> writefile("C:\sqlbackupinfo.txt",strErrorMsg)
> strErrorMsg = ""
> EndIf
> strDBBackupList = ""
> objDBList = new clsServerBackupInfoList
> objDBList.SQLServer = oName
> strDBBackupList = strDBBackupList & objDBList.SQLServer & vbCRLF
> While Not objDBList.Eof
> strDBBackupList = strDBBackupList & objDBList.Database & vbTab
> objDBInfo = new clsDBBackupInfo
> objDBInfo.SQLServer = objDBList.SQLServer
> objDBInfo.Database = objDBList.Database
> strDBBackupList = strDBBackupList & "Last Backup: " & objDBInfo.StartTime & " Result " & objDBInfo.Success & " " & objDBInfo.Message & " " & objDBInfo.Plan & vbCRLF
> objDBInfo = null
> objDBList.MoveNext
> *wend
>*call writefile("C:\sqlbackupinfo.txt",strDBBackupList)
> objDBList = Null
> Next
>
> oServer.DisConnect
> oServer = Null
>
> oApp.Quit
> oApp = Null
> End
>endfor
>
>>Could you post the code?
>>
>>>>I would like to add a combo-box to a form that would display all of the sql servers on the network. Right now, I have some code that I can use to populate the control from the defined data sources (odbc, dsn, etc.) but I would like to also allow the user to select a specific Sql server.
>>>>
>>>>Thanks...Douglas
>>>
>>>Replying to myself and anyone else interested....but I figured out how to do this. I found some VB code that I translated for VFP. Now, my only problem is how to figure out why one of the sql servers is not advertising itself on our network.
>>>....douglas