home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Demo / PCDUO / data1.cab / Script_Samples / LANUTIL.SCP < prev    next >
Encoding:
Text File  |  2003-11-28  |  881 b   |  34 lines
  1. // LANutil.SCP - Sample Script for use with LANutil
  2. // Copyright (c) 2000, Vector Networks Limited
  3. // All Rights Reserved
  4. //
  5. // Revision History:
  6. //  0.0 15-Jun-00 DB  - Created, using STEST.SCP 09-Jun-00.
  7.  
  8. //  The Script attempts to connect to the Client named in variable Client, 
  9. //  using the username (and encrypted password) in variable Username.
  10. //
  11. // Script requirements:-
  12. //  Predefined variables:
  13. //    Client   = "TEST"
  14. //    Username = "USER/GBBLLYDGKK"
  15.  
  16. Function Main ()
  17. Dim Client as String, Username as String
  18. Dim Handle, Status
  19.  
  20.     SetTransport (T_TCPIP)
  21.  
  22.     If Connect (Client, Username) = TRUE Then 
  23.         Print "Opening View"
  24.         Control ()
  25.         SetWindowMode (2)
  26.         WaitEndView ()
  27.         Print "Closing View"
  28.         Wait (2)
  29.         Print "Disconnecting..."
  30.         Disconnect (Client)
  31.     EndIf
  32. End Function
  33.  
  34.