#設置Chassis的基本參數，包含IP地址。port的數量等等
set chassisAddr 10.132.238.190
set islot 1
set portList {11 12} ;#端口的排列順序是port1, port2

if { [catch {
#載入STC API Lib

cd ../Source
#載入HLAPI Lib
source ./CSTC.tcl
SetLogOption -Debug Enable
# 開始連接機器
TestDevice chassis1 $chassisAddr

# 開始預留兩個port
for {set i 0} {$i <[llength $portList]} {incr i} {
chassis1 CreateTestPort -PortLocation $islot/[lindex $portList $i] -PortName port[expr $i+1] -PortType Ethernet
}

#port1 CreateSubInt -SubIntName vlan1
# 配置vlan子接口
#vlan1 ConfigVlanIf -VlanTag 300

# 創建Host對象
port1 CreateHost -HostName host1 -IpVersion ipv4 -Ipv4Addr 192.168.34.242 -Ipv4AddrGateway 192.168.34.1 \
-Ipv4AddrPrefixLen 24 -FlagPing enable
port2 CreateHost -HostName host2 -IpVersion ipv4 -Ipv4Addr 192.168.34.243 -Ipv4AddrGateway 192.168.34.1 \
-Ipv4AddrPrefixLen 24 -FlagPing enable
SaveConfigAsXML "c:/host.xml"
#host1 Ping -Host 192.168.34.243 -Count 4 -Interval 2 -Result ret
host1 Ping -Host host2 -Count 4 -Interval 2 -Result ret

array set stats1 $ret
parray stats1

#host1 Ping -Host "192.168.34.244" -Interval 1 -Result ret

#array set stats2 $ret
#parray stats2

after 3000

#清除測試過程中所作的全部配置和釋放測試過程中占用的全部資源
chassis1 CleanupTest
} err ] } {
puts "腳本執行中出現錯誤: $err"

#清除測試過程中所作的全部配置和釋放測試過程中占用的全部資源
chassis1 CleanupTest
}

Tcl腳本調用高層API實現儀表使用和主機創建配置的自己主動化測試用例