Auxilio otimização de código

Boa noite pessoal.

Gostaria de uma ajuda para incrementar meu script de backup dos switches, onde eu queria montar uma lista em um arquivo txt com 2 campos "IP do switch" e "nome do switch", esses 2 campos seriam variavel no codigo, quando ele fizesse todos os switches cadastrados ele finalizava a rotina.

Set WshShell = CreateObject("WScript.Shell")

WshShell.Run "telnet"

Wscript.Sleep 800

WshShell.SendKeys "open xx.xx.xx.xx~" <--- xx.xx.xx.xx seria a 1ª variavel "ip do switch"

WshShell.SendKeys "userX~"

WshShell.SendKeys "passwordX~"

WshShell.SendKeys "copy config tftp~"

WshShell.SendKeys "ip do servidor~"

WshShell.SendKeys "switch01~"  <--- switch01 seria a 2ª variavel "nome do switch"

WshShell.SendKeys "y~"

WshShell.SendKeys "quit~"

Se alguem puder ajudar ficaria grato.

Hoje executo esse script com os dados.