확장자는 .vbs 로 합니다.
사용법
1. C:\oneIP.txt 파일을 만들고 한줄씩 접속할 아이피를 넣어준다.
2.아래 소스를 아무이름으로 .vbs 확장자로 만든다.
ex)telnet_auto.vbs
3. 실행한다.
ps. 접속 후 실행할 명령은 알아서 넣기.
set WshShell = WScript.CreateObject("WScript.Shell")Const ForReading = 1Const ForWriting = 2Const ForAppending = 8Const 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.QuitEnd IfDim userIdDim userPwuserId = "yourid"userPw = "yourpass"WScript.Echo "Don't touch Anything!!"While Not SwitchIP.atEndOfStreamIP = 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}"WendWScript.Sleep 2000WScript.Echo "Completed."