home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Special / chip-cd_2001_spec_05.zip / spec_05 / scripts.cab / kixtart.kix < prev    next >
Text File  |  1999-11-04  |  1KB  |  51 lines
  1. ;  KIXTART.SCR
  2. ;
  3. ;  KiXtart sample default logon script
  4. ;
  5. ;  24-Aug-1995
  6. ;
  7. ;  Note :  This code sample is provided for demonstration purposes only.
  8. ;          Microsoft makes no warranty, either express or implied,
  9. ;          as to its usability in any given situation.
  10. ;
  11. CLS
  12.  
  13. Color r+/n
  14. big                             ; Display in BIG character mode
  15. at (2,8)   "Hello,"
  16. at (12,10) @userid
  17. sleep 3                         ; Wait for 3 secs (or key)
  18.  
  19. small
  20. Color b+/n
  21. BOX (0,0,24,79,GRID)            ; 'background grid'
  22. Color b/n
  23. BOX (8,21,18,61,┼)              ; 'shadow' of the box
  24. Color g+/n
  25. BOX (7,20,17,60,FULL)
  26.  
  27. Color w+/n
  28. AT ( 9,25) "Userid       : "    ; display some text strings
  29. AT (10,25) "Full name    : "
  30. AT (11,25) "Privilege    : "
  31. AT (12,25) "Workstation  : "
  32. AT (13,25) "Domain       : "
  33. AT (14,25) "Logon Server : "
  34.  
  35. Color y+/n
  36. AT ( 9,40) @userid              ; ...and some macro's
  37. AT (10,40) @fullname
  38. AT (11,40) @priv
  39. AT (12,40) @wksta
  40. AT (13,40) @domain
  41. AT (14,40) @lserver
  42.  
  43. Color w/n
  44. AT (16,25) "Press anykey to continue."
  45. if exist( @ldrive+"\jbond.spk")
  46.    play file @ldrive+"\jbond.spk"       
  47. else
  48.    get $x
  49. endif
  50. exit
  51.