:logon.bat
@echo off
%0\..\Kix32.exe script1.scr
exit:Script1.scr
? "Setting DOS variables..."
SHELL "winset.exe USERNAME=@USERID"
SHELL "Winset.exe ADDRESS=@ADDRESS"
SHELL "Winset.exe COMPUTER=@WKSTA"
SHELL "Winset.exe DOMAIN=@DOMAIN"
SHELL "Winset.exe COMMENT=@COMMENT"
SHELL "Winset.exe FULLNAME=@FULLNAME"
SHELL "Winset.exe HOMEDIR=@HOMEDIR"
SHELL "Winset.exe HOMESHR=@HOMESHR"
SHELL "Winset.exe LSERVER=@LSERVER"
SHELL "Winset.exe PRIV=@PRIV"
? "Done."
Call groups.scr
EXIT
:Groups.scr
use u: /delete
use g: /delete
use t: /delete
use u: "\\gbcoty194c010\"+@userid
If INGROUP("marketing")
use g:"\\gbcoty194c010\marketing"
endif
If INGROUP("Domain Admins")
use t: "\\gbcoty194c010\users"
Endif
small
Color b+/n
BOX (0,0,24,79,GRID) ; 'background grid'
Color b/n
sleep 3
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
AT (16,25) "Press anykey to continue."
if exist( @ldrive+"\jbond.spk")
play file @ldrive+"\jbond.spk"
else
get $x
endif
exit
The logon.bat is called from the users logon profile when he/she logs in.
Furthermore, the kixtart RPC service is running on the server.