home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / scripts.cab / kick.kix < prev    next >
Text File  |  1999-11-04  |  4KB  |  148 lines
  1. ;  KICK.SCR
  2. ;
  3. ;  KiXtart Sample 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. break on
  12. color b/n
  13. BOX(0,0,24,79,grid)
  14.  
  15. $LINE = 3
  16. color y+/n
  17. AT( 1,30) "User Info"
  18.  
  19. $X = "WUSERID"           $Y = @WUSERID         GOSUB DISP
  20. $X = "USERID"            $Y = @USERID          GOSUB DISP
  21. $X = "LDOMAIN"           $Y = @LDOMAIN         GOSUB DISP
  22. $X = "FULLNAME"          $Y = @FULLNAME        GOSUB DISP
  23. $X = "COMMENT"           $Y = @COMMENT         GOSUB DISP
  24. $X = "PRIV"              $Y = @PRIV            GOSUB DISP
  25. $X = "PWAGE"             $Y = @PWAGE           GOSUB DISP
  26. $X = "MAXPWAGE"          $Y = @MAXPWAGE        GOSUB DISP
  27. $X = "LONGHOMEDIR"       $Y = @LONGHOMEDIR     GOSUB DISP
  28. $X = "HOMEDIR"           $Y = @HOMEDIR         GOSUB DISP
  29. $X = "HOMEDRIVE"         $Y = @HOMEDRIVE       GOSUB DISP
  30. $X = "HOMESHR"           $Y = @HOMESHR         GOSUB DISP
  31. $X = "LANROOT"           $Y = @LANROOT         GOSUB DISP
  32. $X = "SID"               $Y = @SID             GOSUB DISP
  33. $X = "PRIMARYGROUP"      $Y = @PRIMARYGROUP    GOSUB DISP
  34. $X = "LSERVER"           $Y = @LSERVER         GOSUB DISP
  35. $X = "RSERVER"           $Y = @RSERVER         GOSUB DISP
  36. $X = "USERLANG"          $Y = @USERLANG        GOSUB DISP
  37.  
  38. color y+/n
  39. at (23,32) "<any key to continue>"
  40. get $x
  41.  
  42.  
  43. CLS
  44. color b/n
  45. BOX(0,0,24,79,grid)
  46. color g/n
  47.  
  48. $Line = 4
  49. color y+/n
  50. AT( 1,30) "Group Membership"
  51.  
  52. COLOR g/n
  53. AT ( $Line , 5 ) "Global Groups"
  54.  
  55. COLOR w+/n
  56. $Count = 0
  57. DO
  58.   $Y = EnumGroup( $Count )
  59.   IF Len( $Y )
  60.      AT ( $Line + $Count , 19 ) $Y
  61.      $Count = $Count + 1
  62.   ENDIF
  63. UNTIL Len( $Y ) = 0
  64.  
  65. $X = "" $Y = ""  GOSUB DISP
  66.  
  67. $Line = $Line + $Count
  68. COLOR g/n
  69. $Count = 0
  70. AT ( $Line + $Count , 5 ) "Local Groups"
  71.  
  72. COLOR w+/n
  73. DO
  74.   $Y = EnumLocalGroup( $Count )
  75.   IF Len( $Y )
  76.      AT ( $Line + $Count , 19 ) $Y
  77.      $Count = $Count + 1
  78.   ENDIF
  79. UNTIL Len( $Y ) = 0
  80.  
  81. color y+/n
  82. at (23,32) "<any key to continue>"
  83. get $x
  84.  
  85.  
  86. CLS
  87. color b/n
  88. BOX(0,0,24,79,grid)
  89. color g/n
  90.  
  91. $LINE = 3
  92. color y+/n
  93. AT( 1,30) "Network Info"
  94.  
  95. $X = "LM"        $Y = @LM         GOSUB DISP
  96. $X = "WKSTA"     $Y = @WKSTA      GOSUB DISP
  97. $X = "ADDRESS"   $Y = @ADDRESS    GOSUB DISP
  98. $X = "DOMAIN"    $Y = @DOMAIN     GOSUB DISP
  99. $X = "LDRIVE"    $Y = @LDRIVE     GOSUB DISP
  100. $X = "RAS"       $Y = @RAS        GOSUB DISP
  101.  
  102. color y+/n
  103. at (23,32) "<any key to continue>"
  104. get $x
  105. ? ?
  106. CLS
  107. color b/n
  108. BOX(0,0,24,79,grid)
  109. color g/n
  110.  
  111. $LINE = 3
  112. color y+/n
  113. AT( 1,30) "Miscellaneous Info"
  114.  
  115. $X = "KIX"       $Y = @KIX        GOSUB DISP
  116. $X = "DOS"       $Y = @DOS        GOSUB DISP
  117. $X = "INWIN"     $Y = @INWIN      GOSUB DISP
  118. $X = "CURDIR"    $Y = @CURDIR     GOSUB DISP
  119. $X = "SCRIPTDIR" $Y = @SCRIPTDIR  GOSUB DISP
  120. $X = "STARTDIR"  $Y = @STARTDIR   GOSUB DISP
  121. $X = "SYSLANG"   $Y = @SYSLANG    GOSUB DISP
  122.  
  123. $X = "DATE"      $Y = @DATE       GOSUB DISP
  124. $X = "TIME"      $Y = @TIME       GOSUB DISP
  125. $X = "DAY"       $Y = @DAY        GOSUB DISP
  126. $X = "MDAYNO"    $Y = @MDAYNO     GOSUB DISP
  127. $X = "WDAYNO"    $Y = @WDAYNO     GOSUB DISP
  128. $X = "YDAYNO"    $Y = @YDAYNO     GOSUB DISP
  129. $X = "MONTH"     $Y = @MONTH      GOSUB DISP
  130. $X = "MONTHNO"   $Y = @MONTHNO    GOSUB DISP
  131. $X = "YEAR"      $Y = @YEAR       GOSUB DISP
  132.  
  133. color y+/n
  134. at (23,32) "<any key to continue>"
  135. get $x
  136. ? ?
  137. color w/n
  138. EXIT 0
  139.  
  140.  
  141. :DISP
  142. COLOR g/n
  143. AT ( $LINE , 5 ) $X
  144. color w+/n
  145. AT ( $LINE , 19) $Y
  146. $LINE = $LINE + 1
  147. RETURN
  148.