spawn process in win XP

I am trying to create a automated ftp log in script in Expect/TCL.

This is my script

   spawn ftp 100.100.100.1 
   expect ".*:"
   send "username"
   expect ".*:"开发者_Go百科
   send "password"
   expect ".*>"

I get an error in Windows XP saying , it encountered an error and needs to close . But same thing work on a windows 2000 .

Can anyone guide me .

---

Have you tried to launch your script with wish instead of tclsh? It might make a different.

Reference: http://wiki.tcl.tk/3548