for i=1 to 100
crt.Screen.WaitForString "Console(config-wlan-ac)# "
crt.Screen.Send "se" & chr(9) & "n" & chr(9) & "test" & i & chr(13)
crt.Screen.WaitForString "Console(config-security-profile-test2)# "
crt.Screen.Send "e" & chr(13)
next
没测试,你自己测试吧。