Break on
Color C/N
Box(0, 0, 24, 79, GRID)
Color g/N
Box(2, 20, 20, 59, FULL)
Box(2, 20, 4, 59, FULL)
Color Y+/N
At(3, 29) "WELCOME TO ABC NETWORK"
At(6, 21) "The following box will show ABC AUP"
At(8, 21) " Please read carefully and accept"
At(10, 21) "Please press OK Button after you read"
At(12, 21) "For further queries call Help desk. "
Color W+/N
At (18,25) "Press any key to continue....."
Get $x ? " "
CLS
$msg1="ABC PASSWORD POLICY @CRLF"
$msg2="@CRLF"
$msg3="Password has to be minimum 6 charecters @CRLF"
$msg4="Password has to be compbination of number and alphebets @CRLF"
$msg5="ABC E-MAIL POLICY @CRLF"
$msg6="@CRLF"
$msg7="Email has to be Business purpose @CRLF"
$msg8="Email box size has to be not more than 5 mb @CRLF"
$msg9="ABC INTERNET POLICY @CRLF"
$msg10="@CRLF"
$ms11="Internet has to be Business purpose @CRLF"
$ms12="Internet usage need to be restricted @CRLF"
;$pol1=ReadProfileString ("d:\kix\aup_files\@USERID.ini","Pol ID", "@USERID agreed pol1")
If Exist ("D:\kix\aup_files\@USERID.ini")=0
$Selection = MessageBox($msg1+$msg2+$msg3+$msg4,"ABC AUP",0)
? $Selection
If $Selection = 1
WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 1", "agreed pol1")
EndIf
Else
$pol1=ReadProfileString ("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 1")
If ($pol1="agreed pol1")
$Selection = MessageBox($msg5+$msg6+$msg7+$msg8,"ABC AUP",0)
? $Selection
If $Selection = 1
WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 2", "agreed pol2")
EndIf
EndIf
$pol2=ReadProfileString ("d:\kix\aup_files\@USERID.ini","Pol ID","Agreement 2")
If ($pol2="agreed pol2")
$Selection = MessageBox($msg9+$msg10+$msg11+$msg12,"ABC AUP",0)
? $Selection
If $Selection = 1
WriteProfileString("d:\kix\aup_files\@USERID.ini","Pol ID", "Agreement 3", "agreed pol3")
EndIf
EndIf
EndIf
