110 lines
3.7 KiB
Plaintext
110 lines
3.7 KiB
Plaintext
'..............................................................................
|
|
' Summary Server Process Report -
|
|
' Generate a report for all installed servers" processes.
|
|
' Copyright (c) 2003 by Altium Limited
|
|
'..............................................................................
|
|
|
|
Dim ReportFile
|
|
|
|
'..............................................................................
|
|
|
|
'..............................................................................
|
|
Sub Log(Description, Data)
|
|
Call ReportFile.Write(Description)
|
|
Call ReportFile.WriteLine(Data)
|
|
End Sub
|
|
'..............................................................................
|
|
|
|
'..............................................................................
|
|
Function BooleanToString (Value)
|
|
Result = "True"
|
|
|
|
If Value = True Then Result = "True" Else Result = "False"
|
|
End Function
|
|
'..............................................................................
|
|
|
|
'..............................................................................
|
|
Sub ReportServerProcessInfo
|
|
Dim I
|
|
Dim J
|
|
Dim K
|
|
|
|
Dim FileName
|
|
Dim ReportDocument
|
|
|
|
Dim RecordCount
|
|
Dim CommandCount
|
|
Dim ParameterCount
|
|
|
|
Dim ServerRecord
|
|
Dim ServerProcess
|
|
|
|
Dim S
|
|
|
|
Dim fso
|
|
|
|
If Client Is Nothing Then Exit Sub
|
|
BeginHourGlass
|
|
S = ""
|
|
|
|
FileName = SpecialFolder_MyDesigns + "\ServerProcesses_Report.Txt"
|
|
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
Set ReportFile = fso.CreateTextFile(FileName, True)
|
|
|
|
Call Log("Server Processes information:","")
|
|
Call Log("=============================","")
|
|
Call Log("","")
|
|
|
|
RecordCount = Client.GetServerRecordCount
|
|
Call Log(" Server Record Count : ", IntToStr(RecordCount))
|
|
Call Log(" =========================","")
|
|
Call Log("","")
|
|
|
|
For I = 0 to RecordCount - 1
|
|
ServerRecord = Client.GetServerRecord(I)
|
|
|
|
Call Log(" Server Name = ",ServerRecord.GetName + " #" + IntToStr(I + 1))
|
|
Call Log(" ===============================================================","")
|
|
Call Log(" Server Version ",ServerRecord.GetVersion)
|
|
Call Log(" Server Copyright info ",ServerRecord.GetCopyRight)
|
|
Call Log(" Server Date ",ServerRecord.GetDate)
|
|
Call Log(" Server Info ",ServerRecord.GetGeneralInfo)
|
|
|
|
Call Log(" RCS path " ,ServerRecord.GetRCSFilePath)
|
|
Call Log(" Ins Path " ,ServerRecord.GetInsPath)
|
|
Call Log(" Exe Path" ,ServerRecord.GetExePath)
|
|
|
|
Call Log(" Number of document types ",IntToStr(ServerRecord.GetWindowKindCount))
|
|
Call Log(" Number of commands " ,IntToStr(ServerRecord.GetCommandCount))
|
|
|
|
Call Log(" =====================================","")
|
|
|
|
CommandCount = ServerRecord.GetCommandCount
|
|
For J = 0 To CommandCount - 1
|
|
ServerProcess = ServerRecord.GetCommand(J)
|
|
Call Log(" Process #" + IntToStr(J + 1) + " Name = ", ServerProcess.GetOriginalId + " LongSummary = " + ServerProcess.GetLongSummary)
|
|
|
|
ParameterCount = ServerProcess.GetParameterCount
|
|
For K = 0 To ParameterCount - 1
|
|
S = S + ServerProcess.GetParameter(K) + ", "
|
|
Next
|
|
Call Log(" Parameters = ",S)
|
|
Next
|
|
Call Log("","")
|
|
S = ""
|
|
Next
|
|
|
|
ReportFile.Close
|
|
|
|
Set ReportDocument = Client.OpenDocument("Text", FileName)
|
|
If Not (ReportDocument Is Nothing) Then
|
|
Client.ShowDocument(ReportDocument)
|
|
End If
|
|
|
|
EndHourGlass
|
|
End Sub
|
|
'..............................................................................
|
|
|
|
'..............................................................................
|