Dear GrahamA,
Also welcome to the board.
What apity it cost four hours. With our kixstrip tool you can verify
your script for such errors.
Currently there are three versions
- kixstrip363.exe (= kixtart 3.63)
- kixstrip400.exe (= kixtart 4.00, 4.01, 4.02)
- kixstrip410.exe (= kixtart 4.10 build 84)
Our call kixstrip input.kix output.kix /block_check /show_errorswill result in:
code:
$index=0
$key=0
$currip=0
$err=0
IF @inwin <> 1 ; check windows version
$key=EnumKey(hkey_local_machine\system\currentcontrolset\services\class\nettrans,$index)
$err=@error
$currip=ReadValue('hkey_local_machine\system\currentcontrolset\services\class\nettrans\$key','ipaddress')
IF $err=0 AND $currip<>'0.0.0.0'; check it needs changing and perform changes
WriteValue('hkey_local_machine\system\currentcontrolset\services\class\nettrans\$key','ipaddress','0.0.0.0','reg_sz')
WriteValue('hkey_local_machine\system\currentcontrolset\services\class\nettrans\$key','ipmask','0.0.0.0','reg_sz')
WriteValue('hkey_local_machine\system\currentcontrolset\services\vxd\mstcp','enabledns','0','reg_sz'
; -------> Warning KIXSTRIP: 13 line incomplete "left parenthesis".
; -------> Warning KIXSTRIP: 13 line incompleted.
DelValue('hkey_local_machine\system\currentcontrolset\services\vxd\mstcp','nameserver')
ENDIF
ENDIF
EXIT
;($begin)
;
; sat 20-apr-2002 10:01:34 (kix 4.10 vs 3.04e)
;
;Summary KIXSTRIP: block structures
; - do:until [0:0]
; - for|each:in|to:step|next [0|0:0|0:0|0]
; - function:endfunction [0:0]
; - if:else:endif [2:0:2]
; - select:case:endselect [0:0:0]
; - while:loop [0:0]
;Warning KIXSTRIP: 1 line is incompleted.
;Warning KIXSTRIP: some lines contains errors or possible errors.
; 1 line incomplete "left parenthesis".
; 1 line incompleted.
;Informative KIXSTRIP: 2 block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: no 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: 1 EXIT
;
;($end)
;($begin)
;
;Warning KIXSTRIP: 13 line incomplete "left parenthesis".
;Warning KIXSTRIP: 13 line incompleted.
;
;($end)
greetings.
