텔넷 접속 Script

텔넷에 접속해서 명령어를 입력하는 VB 스크립트

[test.vbs]

---

#$language = "VBScript"
#$interface = "1.0"

Sub main
  Dim telnetpt
  Dim loginpt
  Dim passpt
  Dim prompt
  Dim exitpt
  loginpt = "ogin: "
  passpt = "assword:"
  prompt = "$ "
  exitpt = "exit" & VbCr
  telnet1 = "telnet IP_Address " & VbCr

 ' turn on synchronous mode so we don't miss any data
  crt.Screen.Synchronous = True
  
  crt.Screen.WaitForString prompt
  crt.Screen.Send telnet1

  ' Wait for a string that looks like "login: " or "Login: "
  crt.Screen.WaitForString loginpt

  ' Send your username followed by a carriage return
  crt.Screen.Send "userid" & VbCr

  ' Wait for a tring that looks like "password: " or "Password: "
  crt.Screen.WaitForString passpt

  ' Send your password followed by a carriage return
  crt.Screen.Send "userpw" & VbCr

  ' Send your password followed by a carriage return
  crt.Screen.WaitForString prompt
  crt.Screen.Send "pwd " & VbCr

  crt.Screen.WaitForString prompt
  crt.Screen.Send exitpt

  ' turn off synchronous mode to restore normal input processing
  crt.Screen.Synchronous = False
End Sub