如何使用TCL语言取得计算机的网卡卡号？

[liu_dxsxj]

想使用TCL语言写一段程序，取得计算机的网卡卡号，赋值给一个字符串
怎么实现？
有大神会吗？

[zxx4477]

set ip [exec ipconfig -all];
set rel [regexp -indices -inline -nocase -all {Physical Address. . . . . . . . . :} $ip];
set pycsr [string range $ip [lindex [lindex $rel 0] end]+2 [lindex [lindex $rel 0] end]+18];