|
Here is the code. Trying to call the file epo.bat.
;***************************************************
;
; Main Kixtart script
;
;***************************************************
cls
If @INWIN = 1
shell "TITLE Eclipse Marketing Services"
shell "ipconfig /renew"
else
shell "winipcfg /renew_all"
endif
$lfcr = chr(10) + chr(13)
?@FULLNAME + " On " + @LSERVER
?"Welcome to the Eclipse Marketing Services Network"
if (@WKSTA <> "TSERVER")
or ((@WKSTA = "TSERVER") and (ingroup("Energis Users")))
$msg = "Users of Eclipse Marketing Services computing resources must respect software copyrights and licenses, "
$msg = $msg + "respect the integrity of computer-based information resources, refrain from seeking to gain unauthorised access, "
$msg = $msg + "and respect the rights of other computer users."
$msg = $msg + $lfcr + $lfcr
$msg = $msg + "This Policy covers appropriate use of computers, networks, and information contained therein. "
$msg = $msg + "If abuse of computer systems occurs, those responsible for such abuse are held accountable and may be subject to disciplinary action. Report any abuse of computer systems and resources to the Operations Director."
$msg = $msg + $lfcr + $lfcr
$msg = $msg + "The Data Security Policy Document provides guidelines for the appropriate and inappropriate use of computer resources. "
$msg = $msg + "Copies of this document are available from the Systems Department."
$msg = $msg + $lfcr + $lfcr
$msg = $msg + "DO YOU ACCEPT THESE CONDITIONS?"
$selection = messagebox ($msg,"System Data Security Policy", 4+48+256+4096, 20)
else
$selection = 6
endif
if $selection = 6
select
case ingroup("Administrators")
call "DrvAdministrators.kix"
case ingroup("Systems Department")
call "DrvSystems.kix"
case ingroup("Client Services")
call "DrvClientServices.kix"
case ingroup("Production")
call "DrvProduction.kix"
case ingroup("Office Admin")
call "DrvOfficeAdmin.kix"
case ingroup("Acc")
call "DrvAccounts.kix"
case ingroup("Call Centre")
call "DrvCallCentre.kix"
case ingroup("DataCapture")
call "DrvDataCapture.kix"
case ingroup("MailRoom")
call "DrvMailRoom.kix"
case ingroup("Energis Users")
call "DrvEnergis.kix"
endselect
else
big
color r+/n
?" ACCESS"
?" DENIED"
sleep 1
BEEP
BEEP
BEEP
color n/n
small
$RC = logoff(1)
endif
if (@WKSTA <> "TSERVER")
shell "\\eclipsefs\netlogon$\epo.bat"
endif
settime "\\eclipseFS"
| 
