확장자는 .vbs 로 합니다.
사용법
1. C:\oneIP.txt 파일을 만들고 한줄씩 접속할 아이피를 넣어준다.
2.아래 소스를 아무이름으로 .vbs 확장자로 만든다.
ex)telnet_auto.vbs
3. 실행한다.
ps. 접속 후 실행할 명령은 알아서 넣기.
set WshShell = WScript.CreateObject("WScript.Shell")
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const ipListFile = "C:\oneIP.txt"
Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(ipListFile) Then
Set SwitchIP = FSO.opentextfile(ipListFile, ForReading, False)
Else
Wscript.Echo "This file (" + ipListFile + ") does not exist."
Wscript.Quit
End If
Dim userId
Dim userPw
userId = "yourid"
userPw = "yourpass"
WScript.Echo "Don't touch Anything!!"
While Not SwitchIP.atEndOfStream
IP = SwitchIP.Readline()
WshShell.Run "cmd"
WScript.Sleep 100
WshShell.AppActivate "C:\Windows\system32\cmd.exe"
WScript.Sleep 100
rem telnet [address] [port]
WshShell.SendKeys "telnet " + IP + " 23{ENTER}"
WScript.Sleep 2000
rem [id]
WshShell.SendKeys userId + "{ENTER}"
WScript.Sleep 2000
rem [pwd]
WshShell.SendKeys userPw + "{ENTER}"
WScript.Sleep 1000
rem [command what you want]
WshShell.SendKeys "show ver{ENTER}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys "exit{ENTER}"
Wend
WScript.Sleep 2000
WScript.Echo "Completed."