您需要构建一个函数/过程（使用命令）来实现这一点：

• 要写入屏幕/通道，请使用：puts
• 要从屏幕/通道读取输入或单行，请使用：gets
• 要从变量中检索值，请使用：$
• 要运行 Cisco IOS 配置命令，请使用：ios_config

以下简单程序/脚本要求您输入 VLAN ID 及其名称，然后它将在您的设备上配置该 VLAN：

//Configure your TCL procedure:

#tclsh
(tcl)#proc Vlanconfig {} { 
+>puts "Enter VLAN ID: " ; 
+>gets stdin VLANid 
+>puts "Enter VLAN Name:" ; 
+>gets stdin VLANname
+>ios_config "vlan $VLANid" "name $VLANname" "end"
+>}
(tcl)#


//Run your procedure:

(tcl)#Vlanconfig
Enter VLAN ID: 
200
Enter VLAN Name:
Users

(tcl)#tclquit
#show vlan
VLAN Name                             Status
...
200  Users                            active
...

您可以扩展此程序以配置 L3 Int VLAN 及其 IP 地址。

我希望它对您有所帮助，并且您对如何构建自己的 TCL 程序有所了解。