컴퓨터

SecureCRT Script

다리 2009. 5. 12. 09:07

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

Sub main                      
 
  LoopInd = 0                                                                

  Do Until LoopInd = 1
  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "show clock" & VbCr

  crt.Screen.WaitForString "sleep#", 1

  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "show resour usa" & VbCr

  crt.Screen.WaitForString "sleep#", 1

  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "sh conn protocol udp | ex 172.17." & VbCr

  crt.Screen.WaitForString "sleep#", 5

  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "  " & VbCr
  crt.Screen.Send "  " & VbCr

  crt.Screen.WaitForString "sleep#", 60

  Loop                                            

  crt.Screen.Synchronous = False                    
End Sub

확장자를 .vbs로 바꾸어서 사용