CLS

settitle("Church Login Script")

setconsole(maximize)

cls

If InGroup("church_admin")
    use L: /delete
    use M: /delete
    use L: \\bcbkup01\avfoldera /persistent:yes 
    use M: \\bcbkup01\avfolderb /persistent:yes 
endif

If InGroup("churchusers")
    use J: /delete
    use J: "\\bcbkup01\images" /persistent:yes     
endif

cls

Color r+/n

small
Color R+/n
BOX (0,0,24,79,GRID)            ; 'background grid'
Color b/n
BOX (8,21,18,61,Å)              ; 'shadow' of the box
Color g+/n
BOX (7,20,17,60,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 : "

Color y+/n
AT ( 9,40) @userid              ; ...and some macro's
AT (10,40) @fullname
AT (11,40) @priv
AT (12,40) @wksta
AT (13,40) @domain
AT (14,40) @lserver

Color w/n
sleep 2

cls

display message.txt

sleep 2

cls

$x = substr(@ipaddress0,7,1)

if open(3 ,"\\bcbkup01\log\log.txt" ,5) = 0
 $x = writeline(3,"User:  " + @fullname + "  " + @userid + "  " + @wksta  +"  Logged on  " + @date + "   " + @time + "   " + @ipaddress0  +@CRLF)
else
? "Failed to open file, error code : [" + @error + "]"
endif 

cls

shell "\\churchdomain\netlogon\timeset.cmd"

exit