#$language = "VBScript"

#$interface = "1.0"

crt.Screen.Synchronous = True

' This automatically generated script may need to be

' edited in order to work correctly.

Sub Main

    for i =  to

    crt.Session.Disconnect

    crt.Session.Connect("/TELNET 192.168.1.1")

    crt.Screen.WaitForString "login:"

    crt.Screen.Send "root" & chr()

    crt.Screen.WaitForString "Password:"

    crt.Screen.Send "" & chr()

    crt.Screen.WaitForString "root@server:"

    crt.Screen.Send "df" & chr()

    crt.Screen.WaitForString "root@server:"

    crt.sleep

    next

End Sub

#$language = "VBScript"

#$interface = "1.0"

crt.Screen.Synchronous = True

' This automatically generated script may need to be

' edited in order to work correctly.

Sub Main

         Dim i

         i =

         Do While i >

                   crt.Screen.Send "df" & chr()

                   crt.Screen.WaitForString "root@server:"

                   crt.Screen.Send "echo ok" & chr()

                   crt.Screen.WaitForString "root@server:"

                   crt.Sleep

                   i=i-

         Loop

End Sub