;**** Created with KiXscripts Editor | http://KiXscripts.com ****
;**** Last Modified on 3/20/2009 at 8:56:00 AM by SuperJeffie ****
;************************************************************
;** Script: Login Screen
;** Version: 2.1
;** Created: April 17, 2001
;**
;** Author: Keith Judy
;** E-mail: xx@xxxxxx-xxxxxxx.com
;**
;** Purpose / Comments:
;**
;** Show a splash page while the user is logging in.
;**
;**
;************************************************************
; Your institutions name goes here
$Title = "MultiTest/STG - Harbor Electronics Network Login"
;************************************************************
;** Script Start
;**
; Turn break on
Break On
SetTime "*"
; Start of Script
:MAIN
; Set output to ASCII
Dim $PreviousASCIIState
$PreviousASCIIState = SetASCII ("on")
; Clear the screen
CLS
; Show the splash screen
Gosub SPLASH_SCREEN
; Progress meter init
; NOTE: A Full bar is 34
$Progress = 0
$AjustProgress = 0
;
; Do something...
;
Sleep 1
; Update progress bar
$AjustProgress = 10 ; add 10 blocks
Gosub DRAW_PROGRESS
;
; Do something else...
;
Sleep 1
; Update progress bar
$AjustProgress = 10 ; add 10 more blocks
Gosub DRAW_PROGRESS
;
; Do something else, again...
;
Sleep 1
; Update progress bar
$AjustProgress = 14 ; were done
Gosub DRAW_PROGRESS
; Reset the output mode
$X = SetASCII ($PreviousASCIIState)
; Clear the screen again
CLS
Cookie1
Exit
; Quit
;************************************************************
;** Script Subroutines ( GOSUBs )
;**
; Draw screen information
:SPLASH_SCREEN
; Background grid
Color B+/N
Box (0, 0, 24, 79, GRID)
; Title banner
Color B/N
Box (3, 3, 5, Len ($Title + 8) + 5, Å) ; shadow
Color G+/N
Box (2, 2, 4, Len ($Title + 8) + 4, FULL) ; box
; Information box
Color B/N
Box (8, 21, 18, 61, Å) ; shadow
Color G+/N
Box (7, 20, 17, 60, FULL) ; box
; Draw the progress bar
Color B/N
Box (20, 21, 22, 61, Å) ; shadow
Color G+/N
Box (19, 20, 21, 60, FULL) ; box
; Center the title on the screen
Color Y+/N
At ( 3, 4) $Title
; Display some text strings
Color W+/N
At ( 9, 25) "Userid : "
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) "IP Address : "
; ...and some macro's
Color Y+/N
At ( 9, 40) @USERID
At (10, 40) @FULLNAME
At (11, 40) @PRIV
At (12, 40) @WKSTA
At (13, 40) @DOMAIN
At (14, 40) @LSERVER
At (15, 40) @IPADDRESS0
Sleep 1
:mapping
; Clear Mapped volumes/drives
Use i: /delete
;DelKey("hkey_current_user\network\persistent\i")
Use j: /delete
;DelKey("hkey_current_user\network\persistent\j")
Use k: /delete
;DelKey("hkey_current_user\network\persistent\k")
Use l: /delete
;DelKey("hkey_current_user\network\persistent\l")
Use n: /delete
;DelKey("hkey_current_user\network\persistent\n")
Use o: /delete
;DelKey("hkey_current_user\network\persistent\o")
Use p: /delete
;DelKey("hkey_current_user\network\persistent\p")
Use q: /delete
;DelKey("hkey_current_user\network\persistent\q")
Use r: /delete
;DelKey("hkey_current_user\network\persistent\r")
Use s: /delete
;DelKey("hkey_current_user\network\persistent\s")
Use t: /delete
;DelKey("hkey_current_user\network\persistent\t")
Use v: /delete
;DelKey("hkey_current_user\network\persistent\v")
Use w: /delete
;DelKey("hkey_current_user\network\persistent\w")
Use x: /delete
;DelKey("hkey_current_user\network\persistent\x")
Use z: /delete
;DelKey("hkey_current_user\network\persistent\z")
; Map common network volumes/drives
Use p: "\\hei01file02\company"
If @USERID = 'strawboss'
Use m: "\\stgazfile01\users"
Use n: "\\stgazts01\IT"
Use o: "\\stgscfile02\IT"
EndIf
If @USERID = 'pphasouk'
Use h: "\\Ectazdata\DesignJobs"
Use m: "\\cam01az\Genesis"
Use n: "\\stgazfile01\Cam"
Use s: "\\stgazfile01\Common"
EndIf
If @USERID = 'tbleakley'
Use w: "\\stgscfile02\18.ASSEMBLY"
Use s: "\\hei02file01\Common"
EndIf
If @USERID = 'KronosAdmin'
Use o: "\\hei01file02\kronos_backup"
EndIf
If @USERID = 'djohnson'
Use u: "\\hei01file01\users\djohnson"
Use x: /delete
EndIf
; S: drives for Scanners
If @USERID = 'tmcnulty'
Use s: "\\hei01file01\scans\tim"
Use t: "\\stgscts01\ftp\tim"
EndIf
If @USERID = 'kpau'
Use s: "\\hei01file01\scans\Katrina"
EndIf
If @USERID = 'lmendoza'
Use s: "\\hei01file01\scans\lupe"
EndIf
If @USERID = 'lcabael'
Use l: "\\hei01file01\scans\larissa"
EndIf
If @USERID = 'gbadhesa'
Use s: "\\hei01file01\scans\Intel-CS"
Use t: "\\hei02ftp01\ftp" /user:ftpuser /Password:"password"
EndIf
If @USERID = 'majohnson'
Use s: "\\hei01file01\scans\Intel-CS"
EndIf
If @USERID = 'mdias'
Use s: "\\hei01file01\scans\Intel-CS"
EndIf
If @USERID = 'aterrell'
Use s: "\\hei01file01\scans\april"
EndIf
If @USERID = 'carteaga'
Use s: "\\hei01file01\scans\cynthiaa"
EndIf
If @USERID = 'edh'
Use q: "\\hei01file01\scans\edh"
EndIf
;End of S: Drives
If @USERID = 'testroom'
Use n: "\\hei01file03\atg_jobs"
Use k: "\\hei01file03\cam\atg_fault files"
EndIf
If @USERID = 'ectacct'
Use l: "\\w01acct02\d"
EndIf
If @USERID = 'routing'
Use s: /delete
Use s: "\\10.0.0.24\genesis_archive"
EndIf
If @USERID = 'drillterm'
Use s: /delete
Use s: "\\10.0.0.24\genesis_archive"
EndIf
If @USERID = 'conceptdrill'
Use f: /delete
Use f: "\\ultraser\drillfiles"
EndIf
If @USERID = 'hzelic'
Use k: /delete
Use k: "\\fls-tester\e$"
Use l: /delete
Use l: "\\fls-tester\c$"
EndIf
If @USERID = 'agreen'
Use t: "\\hei02ftp01\ftp" /user:ftpuser /Password:"password"
EndIf
If @USERID = 'qcfinal'
Use h: "\\ultraser\drillfiles"
EndIf
If @USERID = 'epascual'
Use s: "\\ectfs\acct\accounting"
EndIf
If @USERID = 'bselfridge'
Use w: "\\stgscfile02\company\18.Assembly"
EndIf
If @USERID = 'jferrell'
Use m: "\\stgscfile02\company\18.Assembly"
EndIf
If @USERID = 'eurena'
Use z: "\\10.0.0.221\harborcam" /user:harborcam /Password:"password"
EndIf
If @USERID = 'notesadmin'
Use f: "\\notes3\notesadmins"
EndIf
; Map Group network volumes/drives
If InGroup ("Cam Users")=1
Use g: "\\ucam2k\plotjobs"
Use h: "\\ultraser\drillfiles"
Use i: "\\hei01file03\atg_Jobs"
Use s: "\\10.0.0.24\genesis_archive"
Use v: "\\hei01file04\frontline_valor"
Use w: "\\10.0.0.24\frontline"
Use x: "\\stgcc01\comm"
Use z: "\\10.0.0.221\harborcam" /user:harborcam /Password:"password"
EndIf
If InGroup ("HR-D")=1
Use q: "\\w01acct02\D"
EndIf
If InGroup ("ShippingGroup")=1
Use s: "\\hei01file01\scans\shipping"
Use q: "\\hei01dmz\FormFactorQuality"
EndIf
If InGroup ("valor")=1
Use s: /delete
Use s: "\\10.0.0.24\genesis_archive"
EndIf
If InGroup ("Genesis")=1
Use f: /delete
Use t: "\\valor\genesis" /user:starsys /Password:"password"
EndIf
If InGroup ("Genesis Job")=1
Use s: /delete
Use s: "\\10.0.0.24\genesis_archive"
EndIf
If InGroup ("ELD Group")=1
Use j: "\\hei02ftp01\ftp" /user:ftpuser /Password:"password"
EndIf
If InGroup ("AOI")=1
Use s: "\\hei01file02\aoi"
EndIf
If InGroup ("QA Group - QC")=1
Use q: "\\hei01file01\quality"
EndIf
If InGroup ("QA Group - QA")=1
Use t: "\\stgcc01\gentmp"
EndIf
If InGroup ("Doc_Control")=1
Use s: "\\hei01file01\Quality"
EndIf
If @USERID = 'lcabael'
Use q: "\\stgscts01\ftp"
EndIf
If InGroup ("CAMFTP")=1
Use q: "\\stgscts01\ftp"
EndIf
If InGroup ("DesignGroup")=1
Use r: "\\hei02file01\design"
Use t: "\\hei02ftp01\ftp" /user:ftpuser /Password:"password"
Use s: "\\hei02file01\SCD_Designs"
EndIf
If InGroup ("HarborDesign")=1
Use n: "\\stgscfile02\SCD_Designs"
EndIf
If InGroup ("ELD Group")=1
Use l: "\\hei01file02\PenangDesign"
Use r: "\\hei02file01\design"
Use t: "\\hei02ftp01\ftp" /user:ftpuser /Password:"password"
EndIf
If InGroup ("HEIPenang")=1
Use p: /delete
Use p: "\\hei03exch02\PenangDesign"
Use l: "\\hei01file02\PenangDesign"
Use t: "\\hei02ftp01\ftp" /user:ftpuser /Password:"password"
EndIf
If InGroup ("Sales STGSC")=1
Use r: "\\hei01file02\sales"
EndIf
If InGroup ("kronos")=1
Use m: "\\hei01kronos\kronos1$"
Use n: "\\hei01kronos\kronos2$"
Use o: "\\hei01kronos\wfc"
EndIf
If InGroup ("Domain Admins")=1
Use r: "\\stgscfile02\IT"
EndIf
If InGroup ("MIS")=1
Use r: "\\stgscfile02\IT"
EndIf
If InGroup ("WET")=1
Use w: "\\hei01cam01\frontline"
EndIf
If InGroup ("STGSG-FTP")=1
Use z: "\\stgscts01\FTP\STGSG"
EndIf
If InGroup ("AssemblyDrive")=1
Use w: "\\stgscfile02\company\18.Assembly"
EndIf
If InGroup ("MultiTest-CS")=1
Use g: "\\stgscts01\ftp\mt-germany"
EndIf
If InGroup ("CustomerService")=1 ;Tempe CS S: Drive
Use s: "\\stgazfile01\common\Customer Service"
EndIf
If @USERID = 'jferrell'
Use l: /delete
Use w: /delete
Use l: "\\10.0.0.24\frontline"
Use w: "\\stgscfile02\company\18.Assembly"
EndIf
If InGroup ("EnableDrives")=1
$ = WriteValue ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", "3", "Reg_Dword")
EndIf
If InGroup ("STGAZ Design Center Homepage")=1
$ = WriteValue ("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main",
"Start Page", "http://estg/design/default.aspx", "Reg_SZ")
$ = WriteValue ("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main",
"Secondary Start Pages", "http://estgaz/Reports/Pages/Report.aspx?ItemPath=/eSTGSC/Design/TempeDesignSchedule",
"Reg_Multi_SZ")
EndIf
If LEFT(@WKSTA,7) = 'mtscapp'
@SERROR ?
If InGroup ('AltLNDrive')
'Writing NotesIniPath "A" :'
$=WriteValue('HKEY_CURRENT_USER\Software\Lotus\Notes\8.0', 'NotesIniPath', 'G:\Lotus\Notes\Data\notes.ini', 'Reg_SZ')
@SERROR ?
'Writing NeedCommonFiles "A": '
$=WriteValue('HKEY_CURRENT_USER\Software\Lotus\Notes\8.0', 'NeedCommonFiles', 1', 'Reg_DWord')
@SERROR ?
Else
'Writing NotesIniPath "B": '
$=WriteValue('HKEY_CURRENT_USER\Software\Lotus\Notes\8.0', 'NotesIniPath', 'U:\Lotus\Notes\Data\notes.ini', 'Reg_SZ')
@SERROR ?
'Writing NeedCommonFiles "B": '
$=WriteValue('HKEY_CURRENT_USER\Software\Lotus\Notes\8.0', 'NeedCommonFiles', 1, 'Reg_DWord')
@SERROR ?
EndIf
EndIf
Return
; Draw progress bar
:DRAW_PROGRESS
; Setup progress bar ajustment
$AjustProgress = $Progress + $AjustProgress
; Bump progress up
While $Progress <= $AjustProgress
; Diplay curent progress
Color Y+/N
At (20, 22 + $Progress) Chr (219)
$Progress = $Progress + 1
Loop
Return
