API 示例：显示范围内的厚度

可以使用任何标准函数同用户交互，例如 VBScript 的 InputBox() 函数。本示例显示对于某一厚度是否位于用户指定的两个值之间的厚度诊断。

此脚本可作为命令或宏运行。如果脚本运行时命令行上未提供参数，将会提示输入参数。以下黑体部分的代码实现了在检查两个命令行参数值之后提示用户输入。

'%RunPerInstance
'@
'@ DESCRIPTION
'@ 
'@
'@ SYNTAX
'@ ShowThicknessInRange [Min] [Max]
'@
'@ PARAMETERS
'@ Min   Minimum Thickness value
'@ Max   Maximum Thickness value
'@
'@ DEPENDENCIES/LIMITATIONS
'@ none
'@
'@ History
'@ Created DRA 9/8/2006
'@@ 
Option Explicit
SetLocale("en-us")
Dim SynergyGetter, Synergy
On Error Resume Next
Set SynergyGetter = GetObject(CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SAInstance%"))
On Error GoTo 0
If (Not IsEmpty(SynergyGetter)) Then
  Set Synergy = SynergyGetter.GetSASynergy
Else
  Set Synergy = CreateObject("synergy.Synergy")
End If
Synergy.SetUnits "METRIC"

Dim DiagnosisManager
Dim MinimumThickness, MaximumThickness
Dim Args

Set Args = Wscript.Arguments
If Args.Count <> 2 Then
        MinimumThickness = InputBox("Enter Minimum Thickness")
        MaximumThickness = InputBox("Enter Maximum Thickness")
Else
        MinimumThickness = Args(0)
        MaximumThickness = Args(1)
End If

Set DiagnosisManager = Synergy.DiagnosisManager()
DiagnosisManager.ShowThickness MinimumThickness, MaximumThickness, False

MsgBox "Script Complete"
WScript.Quit