vistas y stored procedures

hola:
existe alguna stored_procedure que me devuelva los nombres
de las vistas de una base de datos? en su defecto, podria
conseguir los nombres desde visual basic 6?

por otro lado de la misma forma que logro el script para
tablas o bases de datos con el siguiente codigo, como
podria hacerlo para las stored procedures?

Private Sub Command1_Click()
Dim dmosrv As New SQLDMO.SQLServer2
Dim dmodb As New SQLDMO.Database
Dim dmotbl As New SQLDMO.Table
'dmosrv.LoginSecure = True
dmosrv.Connect "ibintpr2", "sa", "admsql"
dmosrv.DataBases.Refresh
Set dmodb = dmosrv.DataBases.Item("BAGD01")
Dim el As String

el = dmodb.Script(SQLDMOScript_Default +
SQLDMOScript_Triggers, "C:\tar.sql")
MsgBox el

Set dmotbl = dmodb.Tables.Item("AGT000", "dbo")

Dim tu As String
tu = dmotbl.Script(SQLDMOScript_Default +
SQLDMOScript_Indexes + SQLDMOScript_Triggers +
SQLDMOScript_Permissions + SQLDMOScript_Drops +
SQLDMOScript_DRI_ForeignKeys + SQLDMOScript_DRI_Checks +
SQLDMOScript_DRI_AllConstraints, "c:\tor1.sql")
MsgBox tu

End Sub



Muchas gracias y saludos