;  KIXTART.SCR
;
;  KiXtart sample default logon script
;
;  Note :  This code sample is provided for demonstration purposes only.
;          Microsoft makes no warranty, either express or implied,
;          as to its usability in any given situation.
;
;   Copyright (C) 2001 Ruud van Velsen.
;   All rights reserved.
;
CLS

small
Color b+/n
BOX (0,0,24,79,GRID)            ; 'background grid'
Color b/n
BOX (8,21,18,61,Å)              ; 'shadow' of the box
Color g+/n
BOX (7,20,17,60,FULL)

Color w+/n
AT ( 9,25) "Userid       : "    ; display some text strings
AT (10,25) "Full name    : "
AT (11,25) "Privilege    : "
AT (12,25) "Workstation  : "
AT (13,25) "Domain       : "
AT (14,25) "Logon Server : "

Color y+/n
AT ( 9,40) @userid              ; ...and some macro's
AT (10,40) @fullname
AT (11,40) @priv
AT (12,40) @wksta
AT (13,40) @domain
AT (14,40) @lserver


If InGroup("\\Remax-Server\Administrators") 
   ? "You are a member of the ADMINISTRATORS group"
   USE T: /d
   USE U: /d
   USE V: /d
   USE W: /d
   USE X: /d
   USE T: "\\REMAX-SERVER\OWNERS"
   USE U: "\\REMAX-SERVER\OFFICE MANAGER"
   USE V: "\\REMAX-SERVER\AGENTS"
   USE W: "\\REMAX-SERVER\RECEPTION"
   USE X: "\\REMAX-SERVER\SECRETARIES"
EndIf
If
   InGroup("\\Remax-Server\Owners") 
   ? "You are a member of the OWNERS group"
   USE T: /d
   USE U: /d
   USE V: /d
   USE W: /d
   USE X: /d
   USE T: "\\REMAX-SERVER\OWNERS"
   USE U: "\\REMAX-SERVER\OFFICE MANAGER"
   USE V: "\\REMAX-SERVER\AGENTS"
   USE W: "\\REMAX-SERVER\RECEPTION"
   USE X: "\\REMAX-SERVER\SECRETARIES"
   If @error
     ? "Ohoh, redirect failed with errorcode : " + @error
   EndIf
EndIf
If
   InGroup("\\Remax-Server\Managers") 
   ? "You are a member of the MANAGERS group"
   USE U: /d
   USE V: /d
   USE W: /d
   USE X: /d
   USE U: "\\REMAX-SERVER\OFFICE MANAGER"
   USE V: "\\REMAX-SERVER\AGENTS"
   USE W: "\\REMAX-SERVER\RECEPTION"
   USE X: "\\REMAX-SERVER\SECRETARIES"
   If @error
     ? "Ohoh, redirect failed with errorcode : " + @error
   EndIf
EndIf
If
   InGroup("\\Remax-Server\Secretaries") 
   ? "You are a member of the SECRETARIES group"
   USE V: /d
   USE W: /d
   USE X: /d
   USE V: "\\REMAX-SERVER\AGENTS"
   USE W: "\\REMAX-SERVER\RECEPTION"
   USE X: "\\REMAX-SERVER\SECRETARIES"
   If @error
     ? "Ohoh, redirect failed with errorcode : " + @error
   EndIf
EndIf
If
   InGroup("\\Remax-Server\Reception") 
   ? "You are a member of the RECEPTION group"
   USE V: /d
   USE W: /d
   USE V: "\\REMAX-SERVER\AGENTS"
   USE W: "\\REMAX-SERVER\RECEPTION"
   If @error
     ? "Ohoh, redirect failed with errorcode : " + @error
   EndIf
EndIf
If
   InGroup("\\Remax-Server\Agents") 
   ? "You are a member of the AGENTS group"
   USE V: /d
   USE V: "\\REMAX-SERVER\AGENTS"
   If @error
     ? "Ohoh, redirect failed with errorcode : " + @error
   EndIf
EndIf





Color w/n
AT (16,25) "Press anykey to continue."
get $x
exit