CLS
Small
Color b+/n
Box (0,0,24,90,GRID) ; 'background grid'
Color b/n
Box (8,21,18,71,Å) ; 'shadow' of the box
Color g+/n
Box (7,20,17,70,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 : "
;
Color y+/n
AT ( 9,45) @userid ; ...and some macro's
AT (10,45) @fullname
AT (11,45) @priv
AT (12,45) @wksta
AT (13,45) @domain
SetConsole("show")

If InGroup ("desktop")
	Use H: "\\servername\%username%$"
EndIf

Use H: "\\servername\%username%$"

$Rc = SetOption('NoVarsInStrings', 'On')

if ingroup('somegroup')
net use x: '\\server\share'
if not @error
$nul=sendmessage(@wksta, 'x: drive connected')
endif
endif

;************************************************************************* 
; Script Name: Logon.kix
; Author: WMB 
; Date: 01/03/2010
; Last Ammended: 01/03/2010
; Description: Logon Script for EVault Corp. 
;************************************************************************* 
;************************** 
Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
;************************** 

CLS
Small
Color b+/n
Box (0,0,24,90,GRID) ; 'background grid'
Color b/n
Box (8,21,18,71,Å) ; 'shadow' of the box
Color g+/n
Box (7,20,17,70,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 : "
Color y+/n
AT ( 9,45) @userid ; ...and some macro's
AT (10,45) @fullname
AT (11,45) @priv
AT (12,45) @wksta
AT (13,45) @domain
SetConsole("show")
Use "*" /DELETE
Use X: "\\server\sound"
If InGroup ("desktop") or InGroup ("temp_users")
Use H: "\\server\%username%$"

EndIf
If InGroup ("staff") or InGroup ("tusers")
Use Z: "\\server\share1"
EndIf

If InGroup ("HR") = 1
Use p: "\\server\share"
EndIf

If Exist("C:\documents and settings\%USERNAME%\desktop\HR.lnk")
DEL "C:\documents and settings\%USERNAME%\desktop\HR.lnk"

If Exist("C:\documents and settings\%USERNAME%\desktop\HR1.lnk") = 0
Copy "P:\HR\hr1.lnk" "C:\documents and settings\%USERNAME%\desktop"
EndIf

If  InGroup ("HR") = 0
If Exist("C:\documents and settings\%USERNAME%\desktop\HR1.lnk")
DEL "C:\documents and settings\%USERNAME%\desktop\HR1.lnk"
EndIf
EndIf

If InGroup ("web")
Use w: "\\server\web"
EndIf
	
If InGroup ("LIS")
Use s: "\\server\share1"
Use w: "\\server\share2"
Use Y: "\\server\share3"
Endif

If InGroup ("reg")
Use u: "\\server\reg"
EndIf

If InGroup ("student") or InGroup ("coursework") or InGroup ("lectures") or InGroup ("course")
Use Y: "\\server\coursework"
EndIf

If InGroup ("data")
Use o: "\\server\data$"
EndIf

If InGroup ("Students")
	Use s: "\\server\tempshare"
	Use Y: "\\server\coursework"
	Use h: "\\server\%username%$"
EndIf

If Exist("C:\documents and settings\%USERNAME%\desktop\HR.lnk")
  DEL "C:\documents and settings\%USERNAME%\desktop\HR.lnk"
Endif

$x=14
$y=45

If InGroup ("desktop") or InGroup ("temp_users")
  mapdrive("H:","\\server\%username%$$",$x,$y)
EndIf

$x=$x+1  ;move down one line
If InGroup ("staff") or InGroup ("tusers")
  mapdrive("Z:","\\server\share1",$x,$y)
EndIf

$x=$x+1  ;move down one line
If InGroup ("HR")
  mapdrive("p:","\\server\share",$x,$y)
EndIf

function mapdrive($letter,$share, optional $locationX,$locationY)
  use $letter $share
  if @error=0
    if $locationX
      at($locationX, $locationY) + "Drive " + $letter + " Mapped"
    endif
  endif
endfunction 

Color w+/n
Right("                         Userid : ", 25) Color y+/n @USERID ?
Right("                         Full name : ", 25) Color y+/n @FULLNAME ?
Right("                         Privilege : ", 25) Color y+/n @PRIV ?
Right("                         Workstation : ", 25) Color y+/n @WKSTA ?
Right("                         Domain : ", 25) Color y+/n @DOMAIN ?

$A='Fred'
$B='Smyth'
$C='Programmer'
Right('          ' + $A, 10)
Left(' ' + $B + '          ', 11)
' ' $C @CRLF