; KIXTART.SCR
;
;**** Last Modified on 22/04/2010 at 2:32:16 PM by JOHN ****
;*** ÖÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ·
;*** º º
;*** º Windows 2008 Server Login Scripts for Trianon Hotel, Abu Dhabi º
;*** º Created by/when : IT Dept.,Trianon Hotel, Abu Dhabi / 1 Jan 2010 º
;*** º Updated by/when : ................ º
;*** º º
;*** ÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĽ
; ÖÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ·
; ºINITIALITIATIONº
; ÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĽ
$domsvr = "\\TrianonSERV" ;Trianon Hotel, Abu Dhabi
$appsvr = "\\TrianonSERV" ;Application Server
; ÖÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ·
; º PROCEDURE TO DISPLAY A WELCOME MESSAGE º
; ÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĽ
CLS
Small
Color c/n
Box (0,0,24,79,GRID) ; 'background grid'
Color c+/n
Box (7,21,18,71,Å) ; 'shadow of the box'
Color y/n
Box (6,20,17,70,FULL) ; 'the box'
Color w+/n
AT ( 7,25) "Welcome to IT Dept., Have a Nice Day"
AT ( 9,25) "Full name : " ; display some text strings
AT (10,25) "Userid : "
AT (11,25) "Privilege : "
AT (12,25) "Workstation : "
AT (13,25) "Domain : "
AT (14,25) "Logon Server : "
AT (15,25) "Current Time : "
AT (16,25) "Current Date : "
Color y+/n
AT ( 9,43) @fullname ; ...and some macro's
AT (10,43) @userid
AT (11,43) @priv
AT (12,43) @wksta
AT (13,43) @domain
AT (14,43) @lserver
AT (15,43) @time
AT (16,43) @date
sleep 5 ; Wait for 5 secs (or key)
CLS
Color w+/n
AT (0,0) "Please wait....Checking for your Domain Group Memberships..."
Color b+/n
Box (1,0,5,79,full)
Color w+/n
AT (2,5) "Welcome " @fullname " "
AT (4,5) "Please wait while the appropriate drives are Mapped..."
;Drive_Mappings
Use * /delete /persistent
If InGroup("A&G")=1
Use S: "\\TrianonSERV\A&G"
AT (16,12) "S: Drive mapped to A&G on TrianonSERV"
Use P: "\\TrianonSERV\public drive"
AT (11,12) "P: Drive mapped to A&G on TrianonSERV"
EndIf
If InGroup("F&B")=1
Use S: "\\TrianonSERV\F&B"
AT (19,12) "S: Drive mapped to F&B on TrianonSERV"
Use P: "\\TrianonSERV\public drive"
AT (11,12) "P: Drive mapped to F&B on TrianonSERV"
Use H: "\\TrianonSERV\F&B Manager"
AT (15,12) "P: Drive mapped to F&B Manager on TrianonSERV"
EndIf
If InGroup("ENGINEERING")=1
Use S: "\\TrianonSERV\Engineering"
AT (19,12) "S: Drive mapped to ENGINEERING on TrianonSERV"
Use P: "\\TrianonSERV\Public Drive"
AT (11,12) "P: Drive mapped to ENGINEERING on TrianonSERV"
EndIf
If InGroup("Front Office")=1
Use S: "\\TrianonSERV\Front Office"
AT (19,12) "S: Drive mapped to FRONT OFFICE on TrianonSERV"
Use P: "\\TrianonSERV\Public Drive"
AT (11,12) "P: Drive mapped to FRONT OFFICE on TrianonSERV"
Use H: "\\TrianonSERV\Front Office Manager"
AT (15,12) "P: Drive mapped to Front Office Manager on TrianonSERV"
EndIf
If InGroup("Housekeeping")=1
Use S: "\\TrianonSERV\Housekeeping"
AT (19,12) "S: Drive mapped to HOUSEKEEPING on TrianonSERV"
Use P: "\\TrianonSERV\Public Drive"
AT (11,12) "P: Drive mapped to HOUSEKEEPING on TrianonSERV"
Use H: "\\TrianonSERV\Housekeeping Manager"
AT (15,12) "P: Drive mapped to Housekeeping Manager on TrianonSERV"
EndIf
If InGroup("HR")=1
Use S: "\\TrianonSERV\HR"
AT (19,12) "S: Drive mapped to HR on TrianonSERV"
Use P: "\\TrianonSERV\Public Drive"
AT (11,12) "P: Drive mapped to HR on TrianonSERV"
Use H: "\\TrianonSERV\HR Manager"
AT (15,12) "P: Drive mapped to HR Manager on TrianonSERV"
EndIf
If InGroup("IT")=1
Use S: "\\TrianonSERV\IT"
AT (19,12) "S: Drive mapped to IT on TrianonSERV"
Use P: "\\TrianonSERV\Public Drive"
AT (11,12) "P: Drive mapped to IT on TrianonSERV"
EndIf
If InGroup("Reservation")=1
Use s: "\\TrianonSERV\Reservation"
AT (19,12) "S: Drive mapped to Reservation on TrianonSERV"
Use P: "\\TrianonSERV\Public Drive"
AT (11,12) "P: Drive mapped to Reservation on TrianonSERV"
Use H: "\\TrianonSERV\Reservation Manager"
AT (15,12) "H: Drive mapped to Reservation Manager on TrianonSERV"
EndIf
If InGroup("SALES")=1
Use S: "\\TrianonSERV\sales"
AT (19,12) "S: Drive mapped to Sales on TrianonSERV"
Use P: "\\TrianonSERV\Public Drive"
AT (11,12) "P: Drive mapped to Sales on TrianonSERV"
Use H: "\\TrianonSERV\Sales Manager"
AT (15,12) "H: Drive mapped to Sales Manager on TrianonSERV"
EndIf
If InGroup("Finance")=1
Use s: "\\TrianonSERV\Finance"
AT (19,12) "S: Drive mapped to Finance on TrianonSERV"
Use P: "\\TrianonSERV\Public Drive"
AT (11,12) "P: Drive mapped to Finance on TrianonSERV"
EndIf
If InGroup("Administrators")=1
Use P: "\\TrianonSERV\Public Drive"
AT (11,12) "P: Drive mapped to Administrators on TrianonSERV"
sleep 5 ; Wait for 5 secs (or key)
Exit