Dear,
When we take a close look at your script we don't see any problem
with an upgrade to a recent release. We suggest an upgrade to
kixtart 4.21.
Only problems with an upgrade can be OLExxx function call. In your
script we don't see those calls.
For more information see:
- KiX upgrade: what are those new features? can upgrade be done without any danger?
- release.htm
How you can verify possible problem with a newer release use our tool kixstrip, which
you can find on our site.
With the call: kixstrip input.kix output.kix /block_check /show_structure[/b] we
get following output:
code:
$homeserver=Substr(@homeshr,1,7)
$apps=$homeserver+"\APPS"
$group=@comment
$groupall=$homeserver+"\"+Substr(@comment,1,3)+"-All"
$common=$homeserver+"\"+$group
$homeshare=@homeshr
$ras=@ras
;
; Get IP addresses
;
;Added 3/10/03 to prevent SMS from running over VPN -
$vpnipaddr=Substr(@ipaddress0, 1, 12)
;
; Drive mappings
;
USE k: $apps
USE n: $common
USE s: $groupall
USE u: $homeshare
;
IF Exist (%windir% + "\SkipLS")
EXIT
ENDIF
;
SELECT
;
CASE
InGroup("DBASSE-ALL")
; DBASSE-ALL staff
USE s: "\\NRC03\DBASSE-ALL"
;
CASE
InGroup("DELS-ALL")
; DELS-ALL staff at HA and NAS
USE s: "\\NRC03\DELS-ALL"
;
CASE
InGroup("DEPS-ALL")
; DEPS-ALL staff
USE s: "\\NRC03\DEPS-ALL"
;
CASE
InGroup("IOM-PRS")
; IOM Pres. staff at NAS
USE s: "\\NRC05\IOM-ALL"
;
CASE
InGroup("ITS-ERO")
; ITS-ERO staff at NAS
USE s: "\\NRC06\ITS-ALL"
;
CASE
InGroup("PGA-IOAC")
; PGA-IOAC staff at NAS
USE s:/d
USE s: "\\NRC05\PGA-ALL"
;
CASE
InGroup("PeopleSoft")
; PeopleSoft Users
; Made the changes for the users to be able to use payroll data 8/14/99
USE q: "\\NRC01\APPS"
;
CASE
InGroup("NAS-NPI")
; NAS-NPI staff at NAS
USE v: "\\NRC04\NAS-VID"
;
CASE
InGroup("OOA-ALL")
; Admin staff at NAS
USE v: "\\NRC04\NAS-VID"
;
CASE
InGroup("Avanti")
; Avanti users
USE l: "\\NRC02\APPS"
;
CASE
InGroup("Cats")
; Cats users
USE h: "\\NRC08\APPS"
;
CASE
InGroup("Memsys")
; Membership System
USE r: $groupall
USE s:/d
USE s: "\\NRC04\Apps"
;
ENDSELECT
;
;===============Added 3/10/03 to prevent SMS from running over Remote connections ====
;
IF $ras=1 ;If a dial connection exists, exit.
EXIT
ENDIF
IF $vpnipaddr="144.171. 1." ;DMZ1 Subnet
EXIT
ENDIF
IF $vpnipaddr="144.171. 11." ;DMZ2 Subnet
EXIT
ENDIF
IF $vpnipaddr="144.171. 20." ;NAP web host network
EXIT
ENDIF
IF $vpnipaddr="144.171. 7." ;ISDN Commserver
EXIT
ENDIF
IF $vpnipaddr="144.171. 8." ;Commserver Subnet
EXIT
ENDIF
IF $vpnipaddr="144.171. 9." ;Commserver Subnet
EXIT
ENDIF
IF $vpnipaddr="144.171. 12." ;Commserver Subnet
EXIT
ENDIF
IF $vpnipaddr="144.171. 24." ;Security Subnet
EXIT
ENDIF
IF $vpnipaddr="144.171. 68." ;VPN Server Network
EXIT
ENDIF
IF $vpnipaddr="144.171. 69." ;VPN Server Network
EXIT
ENDIF
IF $vpnipaddr="144.171. 70." ;VPN Server Network
EXIT
ENDIF
IF $vpnipaddr="144.171. 71." ;VPN Server Network
EXIT
ENDIF
IF $vpnipaddr="198. 83. 4." ;Beckman VPN Server Network
EXIT
ENDIF
IF $vpnipaddr="198.133.209." ;Woodshole VPN Server Network
EXIT
ENDIF
;
;==================SMS & Time Exclusions=================================
;
;Set Time
SETTIME "\\na01" ;Set time to na01
;
;($begin)
;
; mon 06-oct-2003 20:21:53 (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP: no errors found (input=134 output=134 skip=0).
;
;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 [16:0:16]
; - select:case:endselect [1:12:1]
; - while:loop [0:0]
;Informative KIXSTRIP: 17 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: 16 EXIT
;Informative KIXSTRIP: 19 USE
;
;($end)
greetings.
