home *** CD-ROM | disk | FTP | other *** search
- /*
- * $Id$
- *
- * Example AmiTCP/IP Dial Script
- *
- * Copyright © 1995 AmiTCP/IP Group,
- * Network Solutions Development Inc.
- * All rights reserved.
- */
-
- DBPRINT "Foo"
- Say "Testi1"
-
- options results
- signal on error
-
- Set WaitForTimeout 120
-
- ShowConsole
-
- SendLn "Testing, type C S L I P:"
-
- ManualConsole
-
- /*
- * Wait for the end of the test message
- */
- WaitFor "CSLIP"
-
- /*
- * Get the text message
- */
- GetInput
- InputData = result
-
- Say InputData
-
- ParseAddrAfter "Your IP address is"
- Say "IP address:" result
-
- ParseAddrAfter "Server address is"
- Say "Server address:" result
-
- ParseAddrAfter "Netmask is"
- Say "Netmask:" result
-
- exit 0; /* succesfull exit */
-
- error:
- Say "Command on line" SIGL "returned" RC ":" SerScript.LASTERROR
- Exit 10
-