code:

---

  
:StartUp
;**********************************************************************
;**                                                                  **  
;**  Set any GLOBAL variables and configure initial settings         **
;**                                                                  **  
;**  Abitibi-Consolidated, Inc. Grand Falls Division                 **
;**                                                                  **
;**  Created:     		May 21, 2001		Rick Bursey  		    **
;**                                                                  **
;**********************************************************************

Dim $err, $key

$err = SetConsole("ALWAYSONTOP")
$err = SetColsole("FOREGROUND")
$err = SetConsole("SHOW")

Break Off

$key = "HKEY_CURRENT_USER\SOFTWARE\ACI-GF\Settings\"

; Get Some User/Worstation/Network Information from our Registry Keys
$PG = ReadValue($key + "User Info", "Primary Group")				; User's Primary Group
$Priv = ReadValue($key + "User Info", "Privledge")				; User's System Privledges
$FName = 	ReadValue($key + "User Info", "User Name")				; Users Full Name
$UserId = ReadValue($key + "User Info", "UserID")					; Users ID
$Service = ReadValue($key + "User Info", "Comment")				; Group name assigned from comment field
$IPA = ReadValue($key + "Workstation Info", "IP Address")			; The User's Workstation IP Address
$WkSta = ReadValue($key + "Workstation Info", "Workstation Name")	; User's Workstation Name
$LPath = ReadValue($key + "Network", "Logon Path")				; Get Logon Server Path
$LServer = ReadValue($key + "Network", "Logon Server")				; Get Logon Server
$Domain = ReadValue($key + "Network", "Local Domain")				; Domain
$VPN = ReadValue($key + "Network", "VPN Status")					; Connected Via VPN?
$RAS = ReadValue($key + "Network", "RAS Status")					; Connected Via RAS?

CLS

Small
; Draw the boxes on the screen
Color y+/b
Box (0,0,2,79,DOUBLE)
Color b+/b
Box (3,0,23,79,GRID)            ; 'background grid'
Color b/n
Box (10,11,21,71,Å)              ; 'shadow' of the box
Color g+/b
Box (9,10,20,70,FULL)

Color w+/b
AT ( 1,14) " Abitibi-Consolidated of Canada, Grand Falls Division "

;$Theme = "Have a Safe Month"						; Default Monthly Theme
;$INIFile = "c:\temp\kixtart\logon\modules\safety.ini"	; Create Path to the safety Mesages
;$MDNo = @MDayNo								; Month Day Number
;$Mon = @Month									; Current Month

;$Theme = ReadProfileString($INIFile,"$Mon","theme")
;$SafetyMsg = ReadProfileString($INIFile,"$Mon","msg$MDNo")

;Color w+/b
;AT (7,20) "$Mon is $Theme Month"
Color b/n
Box (5,11,7,71,Å)              ; 'shadow' of the box
Color y+/b
Box (4,10,6,70,SINGLE)
Color w+/b
AT (5,18) "Please  Wait for Your Logon Script to Complete"; $SafetyMsg

Color w+/b
AT (10,20) "Userid       : "    ; display some text strings
AT (11,20) "Full name    : "
AT (12,20) "Privilege    : "
AT (13,20) "Primary Group: "
AT (14,20) "Workstation  : "
AT (15,20) "Domain       : "
AT (16,20) "Logon Server : "

Color y+/b
AT (10,35) $UserID              
AT (11,35) $FName
AT (12,35) $priv
AT (13,35) $PG
AT (14,35) $WkSta
AT (15,35) $Domain
AT (16,35) $LServer

:END
Exit(0)

---