API 範例：顯示範圍內的厚度

您可以使用任何標準函數來與使用者互動，如 VBScript 的 InputBox() 函數。此範例會顯示「厚度診斷」，其中包含兩個使用者指定值之間的厚度。

您可以將此指令碼做為指令或巨集來執行。如果執行指令碼時指令行上未提供參數，系統將會提示您輸入參數。下面的粗體部分會在檢查兩個指令行引數值之後，執行使用者輸入提示。

'@
'@ 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 Synergy
Set Synergy = CreateObject("synergy.Synergy")
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