The last time I used Terranova, it didn't support telnet so I abondoned it (have a CLAN and like to take advantage of it). I haven't used the newest terminal emulator that comes with DSA 1.10, I've heard is suppports scripting, but not VB scripting.
I use Reflection for any special exports from my switch that DSA doesn't support (like exporting every step in every vector saving it to Excel, then to Word and saving as HTML with links). I'll send you the code for this if you want to download the WRQ Reflection for Unix/Open VMS evaluation.
After manually logging into CetreVu Supervisor, I can run CMS reports using VB programming from Excel. I'll send you the spreedsheet for this code that pulls CMS trace reports and exports them as files (you could also copy to clip board and paste the info to another sheet or print them if you change a little code). It'll make more sense if you see the spreadsheet. Note that the index number for a single report could be found with very little code instead of using the "RefreshCatalogindex" sub, but I lost the command for that

.. E-mail me at dan129<spamfilter>@swbell.net and I'll send you the spreadsheet that is used for this code. Here's the code (to give you an Idea of how I'm controlling it, it's useless without the spreadsheet)...
Public rpttype, IndexNum, ReportLocation As Range
Public CentreVuOpen As Integer
Dim Adtlfntxt, Counter1, DateOffset, ExportDir, AgentID, AgentName, TimeFrame As String
Sub ExportAgentTrace()
Call RefreshCatalogIndex 'If a report is added or deleted, the index number may change
On Error GoTo StopReports
Dim cvsApp As New cvsApplication
Dim cvsSrv As New cvsServer
Dim cvsCatalog As New cvsCatalog
Dim cvsRpt As New cvsReport
Set cvsApp = CreateObject("cvsup.cvsApplication"
CentreVuOpen = cvsApp.Servers.Count
If (CentreVuOpen > 0) Then
Set cvsSrv = cvsApp.Servers.Item(1)
Else
GoTo StopReports
End If
Set cvsCatalog = cvsSrv.Reports
cvsSrv.Reports.ACD = 1
'Set Variables
'Adtlfntxt, DateOffset, ExportDirectory, AgentID, AgentName,
'TimeOffset, IndexNumber are named ranges in Excel
IndexNum = Range(Range("IndexNumber"

.Address).Offset(1, 0).Value
ExportDir = Range("ExportDirectory"

.Value
DateOffset = Range("DateOffset"

.Value
TimeFrame = Range("TimeFrame"

.Value
Adtlfntxt = Range("AdtlFnTxt"

.Value 'Additional info added to filename (currently the Date + DateOffset)
Counter1 = 0
'Start the loop
Do Until Range("AgentID"

.Offset(Counter1 + 1, 0).Value = "" 'If there are no more Agent ID's, the loop will stop.
'increase counter
Counter1 = Counter1 + 1
'reset varibles based on new counter value
AgentID = Range("AgentID"

.Offset(Counter1, 0).Value 'Used to fill in value on the report (and currently part of the file name).
AgentName = Range("AgentName"

.Offset(Counter1, 0).Value 'Currently used as part of the filename
'open the report
cvsCatalog.CreateReport cvsCatalog.Reports.Item(IndexNum), cvsRpt
'Input values on the form
If (cvsRpt.SetProperty("Agent", AgentID) And _
cvsRpt.SetProperty("Dates", DateOffset) And _
cvsRpt.SetProperty("Times", TimeFrame)) Then
Else
GoTo StopReports
End If
'Run the report
cvsRpt.Run
'What to do with the report, i.e. Export, Copy Values, Print, and if an Export, what directory/filename.
'Record a script withing CVS, open it with notepad and compare
'the line that starts with b = to the following line:
cvsRpt.ExportData ExportDir & "\" & AgentID & " - " & AgentName & Adtlfntxt & ".txt", 44, 1, False, True, True
'Close the report
cvsRpt.Quit
Loop
Set cvsRpt = Nothing
Set cvsCatalog = Nothing
Set cvsSrv = Nothing
Set cvsApp = Nothing
Exit Sub
StopReports:
Set cvsRpt = Nothing
Set cvsCatalog = Nothing
Set cvsSrv = Nothing
Set cvsApp = Nothing
End Sub
Sub RefreshCatalogIndex()
Application.Calculation = xlManual
Sheets("Report Catalog"

.Select
Range("A1:A500"

.ClearContents
On Error GoTo StopReports
Dim CentreVuOpen As Integer
Dim cvsApp As New cvsApplication
Dim cvsSrv As New cvsServer
Dim cvsCatalog As New cvsCatalog
Dim cvsRpt As New cvsReport
Dim cellnum As Integer
Set cvsApp = CreateObject("cvsup.cvsApplication"
CentreVuOpen = cvsApp.Servers.Count
If (CentreVuOpen > 0) Then
Set cvsSrv = cvsApp.Servers.Item(1)
Else
GoTo StopReports
End If
Set cvsCatalog = cvsSrv.Reports
cvsSrv.Reports.ACD = 1
cellnum = 0
Do
cellnum = cellnum + 1
Excel.Application.Range("a" & cellnum).Value = cvsCatalog.Reports(cellnum).Key
Loop Until cellnum = cvsCatalog.Reports.Count
Sheets("Metric Reports"

.Select
Application.Calculation = xlAutomatic
on_exit:
Set cvsRpt = Nothing
Set cvsCatalog = Nothing
Set cvsSrv = Nothing
Set cvsApp = Nothing
Exit Sub
StopReports:
Set cvsRpt = Nothing
Set cvsCatalog = Nothing
Set cvsSrv = Nothing
Set cvsApp = Nothing
End Sub