;*************************************************************************
; Script Name: Logon.bat
; Author: Aaron Perrault
; Date: 11/16/2005
; Description: Logon Script for EVault Corp.
;*************************************************************************
;
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 : "
AT (14,25) "Logon Server : "
AT (15,25) "Operating System : "
;
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
AT (14,45) @lserver
AT (15,45) @ProductType
;
;Drive Mapping Section:
;
Use J: "\\ev-fps\public"
;
If (InGroup ("GRP-Accounting-Main") OR InGroup ("Grp-Finance") OR InGroup ("Domain Admins")
	Use g: "\\ev-fps\accounting$"
EndIf
;
If (InGroup ("GRP-Alliance") OR InGroup ("alliance") OR InGroup ("Domain Admins")
	Use H: "\\ef-fps\alliance$"
EndIf
;
If (InGroup ("GRP-Business Development") OR InGroup ("Domain Admins")
	Use K: "\\ev-fps\busdev$"
EndIf
;
If (InGroup ("GRP-Contract") OR InGroup ("GRP-Contracts-Read Only") OR InGroup ("Domain Admins")
	Use L: "\\ev-fps\contracts$"
EndIf
;
If (InGroup ("GRP-Marketing") OR InGroup ("GRP-Marketing Bus Dev") OR InGroup ("Marketing") OR InGroup ("Domain Admins")
	Use M: "\\ev-fps\marketing$"
EndIf
;
If (InGroup ("GRP-ExecAdmin") OR InGroup ("GRP-General Exec Administration") OR InGroup ("Domain Admins")
	Use N: "\\ev-fps\ExecAdmin$"
EndIf
;
If (InGroup ("GRP-Operations") OR InGroup ("Domain Admins")
	Use O: "\\ev-fps\Operations$"
EndIf
;
If (InGroup ("GRP-License") OR InGroup ("GRP-General Exec Administration") OR InGroup ("Domain Admins")
	Use W: "\\ev-fanda\license$"
EndIf
;
If (InGroup ("GRP-Human Resources") OR InGroup ("GRP-Human Resources-Read Only") OR InGroup ("Domain Admins")
	Use Q: "\\ev-fps\hr$"
EndIf
;
If (InGroup ("GRP-Europe") OR InGroup ("Domain Admins")
	Use R: "\\ev-fps\europe$"
EndIf
;
If (InGroup ("GRP-PreSales") OR InGroup ("GRP-Direct Sales") OR InGroup ("GRP-Sales") OR InGroup ("GRP-Teleprospecting") OR 
	InGroup ("GRP-Teleprospecting Restricted") OR InGroup ("sbe.sales") OR InGroup ("sbe-support") OR InGroup ("Domain Admins")
	Use s: "\\ev-fps\Sales$"
EndIf
;
If (InGroup ("GRP-Product Development") OR InGroup ("Domain Admins")
	Use T: "\\ev-fps\ProdDev$"
EndIf
;
If (InGroup ("GRP-Emeryville Engineering") OR InGroup ("Domain Admins")
	Use U: "\\ev-fps\EE$"
EndIf
;
If (InGroup ("GRP-Commissions") OR InGroup ("Domain Admins")
	Use V: "\\ev-fps\commissions$"
EndIf
;
If (InGroup ("GRP-Evault Admin") OR InGroup ("Domain Admins")
	Use Y: "\\ev-fps\EvVault$"
EndIf
;
If (InGroup ("GRP-Evault-Solutions") OR InGroup ("Domain Admins")
	Use W: "\\ev-fps\solutions$"
EndIf
;
Color w/n
AT (16,25) "Press anykey to continue."
If Exist( @ldrive+"\jbond.spk")
Play file @ldrive+"\jbond.spk" 
Else
Get $x
EndIf