Dear,

A lot of remarks about your example. Some have been made already.
  • missing ENDIFs
  • missing "right parenthesis" in ReadValue
  • incomplete "double quotation"
To get those problems easily use our tool kixstrip400.exe, which you
can find on our site.
Our call kixstrip400 input.kix output.kix /block_check /show_errors /show_structure
results in
code:
 $server=LOCALSERVER

IF INGROUP ("101")
GOTO "101"
IF INGROUP ("202")
GOTO "202"

:101
USE E: "\\SERVER\ESHARE"
USE F: "\\SERVER\FSHARE"
GOTO "GENERAL"

:202
USE E: "\\SERVER\ESHARE"
USE F: "\\SERVER\FSHARE"

;CHANGE UNINSTALL PATH FOR MCAFEE
$mcafee = Readvalue
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{87AEFD84-BC0D-11D4-B885-00508B022A51}","InstallSource")
; -------> Warning KIXSTRIP: 17 line incomplete "right parenthesis".
; -------> Warning KIXSTRIP: 17 line incompleted.
IF $mcafee="\\\\SERVER1\\mcafee\\Win32\\"
ELSE
SHELL "$SERVER\REPOSITORY\MCAFEE\BATCH.BAT" $server"
; -------> Warning KIXSTRIP: 20 line incomplete "double quotation".
; -------> Warning KIXSTRIP: 20 line incompleted.

ENDIF

GOTO "GENERAL"


:general


;($begin)
;
; mon 11-mar-2002 04:11:52 (kix 4.00 vs 3.01e)
;
;Informative KIXSTRIP: input=28 output=28 skip=0
;
;Warning KIXSTRIP: 2 errors in block structure(s). missing statement(s).
; - do:until [0:0]
; - for|each:in|to:step|next [0|0:0|0:0|0]
; - function:endfunction [0:0]
; -ERROR- - if:else:endif [3:1:1]
; - select:case:endselect [0:0:0]
; - while:loop [0:0]
;Warning KIXSTRIP: 2 lines are incompleted.
;Warning KIXSTRIP: some lines contains errors or possible errors.
; 1 line incomplete "double quotation".
; 1 line incomplete "right parenthesis".
; 2 line incompleted.
;Informative KIXSTRIP: 3 block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: 3 labels found.
;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP: 4 GOTO
;Informative KIXSTRIP: 1 SHELL
;Informative KIXSTRIP: 4 USE
;
;($end)
;($begin)
;
;Warning KIXSTRIP: 20 line incomplete "double quotation".
;Warning KIXSTRIP: 17 line incomplete "right parenthesis".
;Warning KIXSTRIP: 17, 20 line incompleted.
;
;($end)

A fast way can be something like
code:
 GOTO end_of_script
;
; - your script-
;
:end_of_script
? "Informative KIX: end of script reached"

for verifying also possible problems with your script.
greetings.

btw: symbol on our homepage has been linked to related http://kixtart.org topic.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA