In AppDNA 1906
In AppDNA
In All products
产品文档
In AppDNA 1906
In AppDNA
In All products
AppDNA Current Release AppDNA 7.15
查看 PDF

转发路径示例

January 13, 2020
贡献者:  C

此示例将指导您完成创建简单的转发路径方案和任务脚本的过程。

创建方案

  1. 从 AppDNA 菜单中，选择配置 > 转发路径。

  2. 在“正向路径逻辑编辑器”的工具栏上，单击“新建方案”。

  3. 在“转发路径脚本名称”对话框中，输入新方案的名称和描述，然后单击“确定”。

    这将创建一个新方案并在编辑器中打开它。新方案脚本如下所示：

    1 Public Function ForwardPath(ByVal currentApplication As Application)
As Output
2    ' TODO: Your new Forward Path Logic definition must be defined here.
3    ' Refer to the sample Forward Path scripts which have been provided.
4    Dim myForwardpathresult As New Output()
5
6    myForwardpathresult.Outcome = "Sample Outcome"
7    myForwardpathresult.Cost = 100
8    myForwardpathresult.RAG = RAG.Green
9
10   ForwardPath = myForwardpathresult
11
12 End Function

  4. 这是一个功能性的场景脚本，虽然它没有任何实际用途。要了解它的工作原理，请单击“编辑器”工具栏上的“测试”。

    这将根据当前在“应用程序列表”中选择的应用程序评估方案，并在“输出”选项卡上打开结果。

    请注意，结果列中的值为每个应用程序的“示例结果”，同样，RAG 和成本列中的值为“绿色”，所有选定应用程序的值为 100。这是因为这些列的值在脚本第 6-8 行中是“硬编码”的。

    请注意，描述和 CustomField 列为空，因为方案不提供这些列的值。

  5. 更改 RAG 列的值，以反映 Windows 7 报告的应用程序的实际 RAG。更改方案脚本中的第 8 行，如下所示：

    myForwardpathresult.RAG = currentApplication.Modules.Windows7.RAG

    这会将“RAG”列中的值设置为应用程序的 Windows 7 RAG 状态。（这假定已经为 Windows 7 报告分析了应用程序。如果此报告不可用，请选择另一个可用报告。使用属性资源管理器了解如何引用其他报告。）

  6. 单击测试以查看结果。

    RAG 列中的值反映了实际的 RAG 值。

  7. 接下来，使结果列中的值取决于 Windows 7 RAG 状态。要做到这一点，用 IF 语句替换第 6 行，如下所示：

    If (currentApplication.Modules.Windows7.RAG = RAG.Green) Then
  myForwardpathresult.Outcome = "OK for Windows 7"
Else
  If (currentApplication.Modules.Windows7.RAG = RAG.Amber) Then
    myForwardpathresult.Outcome = "Remediation required"
  Else
    myForwardpathresult.Outcome = "Redevelopment required"
  End If
End If

    此语句测试应用程序的 Windows 7 RAG 状态是否为绿色。如果是，脚本会在“结果”列中写入“Windows 7”，如果没有，则会测试 Windows 7 RAG 状态是否为琥珀色。如果它是琥珀色的，脚本将“需要修复”写入“结果”列，否则将“需要重建”写入“结果”列，因为如果 RAG 状态不是绿色或琥珀色，则必须是红色的（假设应用程序已被分析并解锁）。

  8. 单击测试以查看结果。

    请注意，现在“结果”列中的值反映了“IF”语句中的逻辑。

这是一个故意简单的例子，旨在介绍转发路径的工作原理。若要查看一些更真实的示例，请使用方案资源管理器浏览 AppDNA 附带的示例方案，并使用属性资源管理器探索方案脚本可用的属性。

注意： 输出对象在属性资源管理器中显示为 ForwardPathReportOutput。

例如，您可以使用 Output.Display 属性来控制报告中标准列的宽度和可见性，如下所示：

myForwardpathresult.Display.Application.Width = 250
myForwardpathresult.Display.Manufacturer.Width = 100
myForwardpathresult.Display.Version.Width = 50
myForwardpathresult.Display.SourcePath.Visible = false
myForwardpathresult.Display.Outcome.Width = 400

同样，您可以使用 Output.CustomFieldn.Display 属性来控制自定义字段列的宽度和可见性：

myForwardpathresult.CustomField1.Display.Width = 50
myForwardpathresult.CustomField2.Display.Width = 100

这些属性控制运行报告时列的显示。它们不控制“正向路径逻辑编辑器”中“输出”选项卡上的列。

创建任务脚本

现在，我们将创建一个任务脚本，该脚本与我们的示例方案脚本创建的“结果”列中的“需要重新开发”值相关联。

  1. 在编辑器中打开我们在上一步中创建的示例脚本。

  2. 在主工具栏上，单击“新建任务脚本”。

    此操作将打开“转发路径任务脚本”对话框，其中列出了在编辑器中打开的方案的“结果”列中的可能值。

  3. 从下拉列表中，选择需要重建，输入描述，然后单击确定。

    这将创建一个新的任务脚本并在编辑器中打开它。新的任务脚本如下所示：

    1  ' This sample script kicks off an Install Capture of the given file
2  ' as well as interacts with the gui
3  LoadAssembly System.Windows.Forms.dll
4
5  Imports AppDNA.AppTitude.Scripting
6  Imports System.Collections.Generic
7
8  Public Class ScriptClass
9
10   Public Function Start(controller As IActionController) As TaskStatusEnum
11     ' If you need to override or provide replaceable to the
12     ' execution profiles add then to this dictionary
13
14     Dim replaceables As Dictionary(Of String, String)
15     ' replaceables.Add( "replaceablename", "value")
16
17    ' This informs the controller that it can abort if the user cancels
18     controller.AbortOnCancel()
19
20     ' This lets you run the execution profile for a given app using a given VM
21     ProductionManager.RunExecutionProfile(controller, "Snapshot",
replaceables, "Default VM Configuration")
22
23     ' Add you own actions
24     controller.GUI.ProgressPercent = 100
25     Start = TaskStatusEnum.Complete
26   End Function
27
28 End Class

    这是一个用于启动安装捕获的骨架任务脚本。

  4. 我们将更改与安装捕获（第 11 行-21 行）相关的行，使用将发送电子邮件的代码。但是，首先，我们将在第 6 行之后添加以下行来导入我们需要发送电子邮件的命名空间：

    Imports System.Net.Mail
Imports System.Net

  5. 现在将安装捕获代码（现在是第 13-23 行）替换为以下内容：

    ' This informs the controller that it can abort if the user cancels
controller.AbortOnCancel()

Dim myClient As New SmtpClient("<validsmtpserver>")
myClient.Credentials = New NetworkCredential("<emailaccountusername>",
    "<emailaccountpassword>")

Dim MainMessage As String = ""

Dim Message As New MailMessage()
Dim Address As New MailAddress("<fromaddress>", "AppDNA Notification")
Dim ToAddress As New MailAddress("<recipientemailaddress>")

MainMessage = MainMessage + "<html>"
MainMessage = MainMessage + "<head>"
MainMessage = MainMessage + "<title>AppDNA Notification</title>"

MainMessage = MainMessage + "</head>"
MainMessage = MainMessage + "<body>"

MainMessage = MainMessage + "Hello,"
MainMessage = MainMessage + "<br />"
MainMessage = MainMessage + "<br />"
MainMessage = MainMessage + "Application needs redevelopment."
MainMessage = MainMessage + "<br />"
MainMessage = MainMessage + "Application Name: " + controller.Application.Name
MainMessage = MainMessage + "<br />"
MainMessage = MainMessage + "Source Path: " + controller.Application.SourcePath
MainMessage = MainMessage + "<br />"
MainMessage = MainMessage + "Goodbye."
MainMessage = MainMessage + "<br />"
MainMessage = MainMessage + "</body>"
MainMessage = MainMessage + "</html>"

Message.Body = MainMessage
Message.IsBodyHtml = True
Message.From = Address
Message.To.Add(ToAddress)

Message.Subject = "AppDNA Notification"

myClient.Send(Message)

  6. 替换 <validsmtpserver>、<emailaccountusername> <emailaccountpassword>、<fromaddress> 和 <recipientemailaddress> 为您的环境使用适当的值。

  7. 单击“保存”以保留您的更改。

  8. 现在让我们运行任务脚本：

    1. 从 AppDNA 侧栏中，选择报告：应用程序 > 转发路径。
    2. 在“转发路径”报告查看器中，选择我们之前创建的“转发路径”方案。
    3. 点击评估任务。

    这将打开“正向路径任务排序”屏幕，该屏幕列出了“正向路径”方案已处理的应用程序，并显示它们是否具有与其关联的任务脚本。

  9. 选择具有关联任务脚本的应用程序，然后单击工具栏上的“开始”。

    这将运行该应用程序的任务脚本。“状态”列显示脚本是否已成功运行。出现错误时，它会显示在屏幕的下部。在此示例中，如果您没有为您的环境输入适当的邮件参数（上面的步骤 6），脚本将失败。

  • 要查看更多示例，请使用任务脚本资源管理器浏览 AppDNA 附带的示例任务脚本。
  • 有关从任务脚本运行执行配置文件的信息，请参阅运行执行配置文件。

转发路径示例

January 13, 2020
贡献者:  C

本文中包含的内容

Edit this article