Rollin,

SQL DMO.

local oNames As SQLDMO.NameList
local oSQLApp As SQLDMO.Application

set step on 
oSQLApp = createobject( "SQLDMO.Application" )
oNames = oSQLApp.ListAvailableSQLServers()
 
for i = 1 To oNames.Count
   ? oNames.Item(i)
endfor

As far as the ports go I think you'll have to crank up enterprise manager, register all the servers and then you can poke around to your heart's content.

>A new contracting firm takes responsibility for a server farm. The previous contractor left no documentation.
>
>1. Is there a way to query windows services running to see if SQL is running on which machines (or is there a way to verify with one script which machines are running SQL Server)?
>
>2. Is there a way to query the registry to see what ports SQL is using (if it might be set to something else that the default)?
>
>All help is appreciated!