i want script for below mention command and update in exel file status done / not done i want scrip pls help me i have 3000 router

mad:
ssh 192.168.5.1
password :- abc
en
password :- abc
copy running-config tftp:
Address or name of remote host []? 192.168.1.1
Destination filename
exit
i am using below scrip manual work but its so difficult








crt.Screen.Send "ssh 192.168.5.1" & chr(13)
crt.Screen.WaitForString "Password: "
crt.Screen.Send "cisco" & chr(13)
crt.Screen.Send "en" & chr(13)
crt.Screen.Send "cisco" & chr(13)
crt.Screen.WaitForString "#"
crt.Screen.Send "copy running-config tftp:" & chr(13)
crt.Screen.WaitForString "Address or name of remote host []? "
crt.Screen.Send "192.168.1.1" & chr(13)
crt.Screen.WaitForString "Destination filename "
crt.Screen.Send chr(13)
crt.Screen.WaitForString "#"
crt.Screen.Send "q" & chr(13)
crt.Screen.WaitForString "#"