#25086 - 2002-07-16 08:21 AM
Re: Window NT domain with XP clients
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
First some remarks:
- indeed $ is a special character. user $$ will be better.
(already mentioned) - why using only IF/ELSE/ENDIF structures, when SELECT/CASE/ENDSELECT is
possible. - use
code:
IF ($homesrvr <> "none")
USE h: '\\$homesrvr\$user\'
ENDIF
instead of
code:
IF $homesrvr <> none
USE h: '\\$homesrvr\$user\'
ENDIF
- USE run '%comspec% /c ....' instead of run '%comspec% /c ....'
Our version (without debugging code):
code:
; This script will map network drives
; based on the following criteria
; Campus the person is logging on to
; Whether the user is a staff member or a student
; Where the person's home directory exists
; The script will also map a second Common drive to the student server
; for staff members who are instructors,
; and run the delprof.bat program if the logon user is a student
;
; The logon script uses Kixtart version 3.62
;
;***************************
;**** Set this line to hide or show, depending on whether or not you
;**** want the screen visible
;***************************
;
;setconsole('hide')
;
;***************************
;**** Concatenate a $ on to the end of the user id so that it can
;**** be used for mapping to the home directory
;***************************
$user='@userid'+'$$'
;
;****************************
;**** Determine which campus the user is logging on from
;****************************
;
$campus='none'
IF @lserver = '\\PC01'
$campus = 'franklin'
ENDIF
IF @lserver = '\\PC02'
$campus = 'franklin'
ENDIF
IF @lserver = '\\PC03'
$campus = 'suffolk'
ENDIF
IF @lserver = '\\PC04'
$campus = 'suffolk'
ENDIF
IF @lserver = '\\PC07'
$campus = 'wfd'
ENDIF
;
;****************************
;**** Determine which server the user's home directory is located on
;****************************
;
$homesrvr="none"
;
SELECT
CASE $campus = 'franklin'
IF Exist ('\\pc01\$user\')
$homesrvr = 'pc01'
ENDIF
IF Exist ('\\pc02\$user\')
$homesrvr = 'pc02'
ENDIF
IF Exist ('\\pc03\$user\')
$homesrvr = 'pc03'
ENDIF
IF Exist ('\\pc04\$user\')
$homesrvr = 'pc04'
ENDIF
IF Exist ('\\pc07\$user\')
$homesrvr = 'pc07'
ENDIF
CASE $campus = 'suffolk'
IF Exist ('\\pc03\$user\')
$homesrvr = 'pc03'
ENDIF
IF Exist ('\\pc04\$user\')
$homesrvr = 'pc04'
ENDIF
IF Exist ('\\pc01\$user\')
$homesrvr = 'pc01'
ENDIF
IF Exist ('\\pc02\$user\')
$homesrvr = 'pc02'
ENDIF
IF Exist ('\\pc07\$user\')
$homesrvr = 'pc07'
ENDIF
CASE $campus = 'wfd'
IF Exist ('\\pc01\$user\')
$homesrvr = 'pc01'
ENDIF
IF Exist ('\\pc02\$user\')
$homesrvr = 'pc02'
ENDIF
IF Exist ('\\pc03\$user\')
$homesrvr = 'pc03'
ENDIF
IF Exist ('\\pc04\$user\')
$homesrvr = 'pc04'
ENDIF
IF Exist ('\\pc07\$user\')
$homesrvr = 'pc07'
ENDIF
ENDSELECT
;
;********************************
;**** Map Home drive
;********************************
;
IF ($homesrvr <> "none")
USE h: '\\$homesrvr\$user\'
ENDIF
;
;********************************
;**** Map Remaining shared drives
;********************************
;
IF InGroup ('academic')
SELECT
CASE $campus = 'franklin'
USE f: '\\pc01\apps\'
USE t: '\\pc01\common\'
RUN '%comspec% /c \\pc01\win98\delprof.bat'
CASE $campus = 'suffolk'
USE f: '\\pc03\apps\'
USE t: '\\pc03\common\'
RUN '%comspec% /c \\pc03\win98\delprof.bat'
CASE $campus = 'wfd'
IF $homesrvr = 'pc07'
USE f: '\\pc07\apps\'
USE t: '\\pc07\common\'
RUN '%comspec% /c \\pc07\win98\delprof.bat'
ELSE
USE f: '\\pc01\apps\'
USE t: '\\pc01\common\'
RUN '%comspec% /c \\pc01\win98\delprof.bat'
ENDIF
ENDSELECT
ENDIF
;
IF InGroup ('staff')
SELECT
CASE $campus = 'franklin'
USE f: '\\pc02\apps\'
; use t: '\\pc02\common\'
IF InGroup ('professors')
USE u: '\\pc01\common\'
ENDIF
CASE $campus = 'suffolk'
USE f: '\\pc04\apps\'
; use t: '\\pc04\common\'
IF InGroup ('professors')
USE u: '\\pc03\common\'
ENDIF
CASE $campus = 'wfd'
IF $homesrvr = 'pc07'
USE f: '\\pc07\apps\'
; use t: '\\pc07\common\'
IF InGroup ('professors')
USE u: '\\pc07\common\'
ENDIF
ELSE
USE f: '\\pc02\apps\'
; use t: '\\pc02\common\'
IF InGroup ('professors')
USE u: '\\pc01\common\'
ENDIF
ENDIF
ENDSELECT
USE t: '\\$homesrvr\common\'
ENDIF
? "user id = " @userid
? "User share = " $user
? "Logon Server = " @lserver
? "Home Server = " $homesrvr
? "Campus = " $campus
Our version (with debugging code):
code:
;CLS
IF (instr("-3.0x-3.1x-3.2x-3.3x-","-"+substr(@kix,1,3)+"x-") <> 0)
IF MessageBox("sorry, your kixtart "+@kix+" release is too old."+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" please upgrade.","KiXtart "+@kix+" info",4112,300)
ENDIF
EXIT
ENDIF
COLOR C+/N
;AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory -
IF (len($_debug_file) <> 0)
IF (substr("%tmp%",len("%tmp%"),1) = "\")
$_debug_file="%tmp%"+$_debug_file
ELSE
$_debug_file="%tmp%\"+$_debug_file
ENDIF
ENDIF
;$_debug_file="c:\kixdebug.txt"
IF RedirectOutput($_debug_file)
ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.18e script starting"
IF (Val(substr(@kix,1,1)) >= 4)
IF (len(@scriptname) <> 0)
" ("+LCASE(@scriptname)+")"
ENDIF
ENDIF
? "-"
IF ("$_debug_already_starting" <> "yes")
? "-curdir: "+LCASE(@curdir)
? "-scriptdir: "+LCASE(@scriptdir)
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-scriptname: "+LCASE(@scriptname)
ENDIF
? "-startdir: "+LCASE(@startdir)
? "-"
? "-userid: "+LCASE(@userid)+"/"+LCASE(@wuserid)
? "-user priv: "+LCASE(@priv)
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
? "-version: inwin="+@inwin+"/dos="+@dos"/productsuite="+@productsuite+"/producttype="+@producttype"/csd="+LTRIM(RTRIM(@csd))
ELSE
? "-version: inwin="+@inwin+"/dos="+@dos
ENDIF
? "-"
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-"+@cpu+" (memory "+MemorySize()+" MB)"
? "-"
ENDIF
ENDIF
$_debug_temp_name="" ; -format: yyyymmdd_hhmmss.sss_999 scriptname-
IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") <> 0) OR (Val(substr(@kix,1,1)) >= 4)
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
$_debug_temp_name=@msecs
SELECT
CASE (len($_debug_temp_name) = 1)
$_debug_temp_name="00"+$_debug_temp_name
CASE (len($_debug_temp_name) = 2)
$_debug_temp_name="0"+$_debug_temp_name
ENDSELECT
$_debug_temp_name="."+$_debug_temp_name
IF Srnd(@msecs)
ENDIF
SLEEP 0.050
ELSE
IF Srnd((-1)*32767/(substr(@time,7,2)+1))
ENDIF
SLEEP 1
ENDIF
$_debug_temp_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_temp_name+"_"+Rnd()
IF (len($_debug_temp_name) < 25)
$_debug_temp_name=substr($_debug_temp_name+" ",1,25)
ENDIF
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
IF (len(@scriptname) < 12)
$_debug_temp_name=$_debug_temp_name+" "+substr(@scriptname+" ",1,12)
ELSE
$_debug_temp_name=$_debug_temp_name+" "+@scriptname
ENDIF
ENDIF
ENDIF
IF ("$_debug_already_starting" <> "yes")
? "-debug file: "+$_debug_file
? "-debug name: "+LCASE($_debug_temp_name)
ELSE
IF (len($_debug_temp_name) <> 0)
? "-debug: "+LTRIM(RTRIM(LCASE($_debug_temp_name)))+" -> "+$_debug_file
ELSE
? "-debug-file: "+$_debug_file
ENDIF
ENDIF
IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") = 0) AND (Val(substr(@kix,1,1)) < 4)
GOTO _debug_starting_point
ENDIF
DIM $_debug_name ; -create local variable-
:_debug_starting_point
$_debug_name=LCASE($_debug_temp_name)
$_debug_already_starting="yes"
? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 1-"+@time+"-"+$_debug_name+"- @error @serror"? ; This script will map network drives
?"- 2-"+@time+"-"+$_debug_name+"- @error @serror"? ; based on the following criteria
?"- 3-"+@time+"-"+$_debug_name+"- @error @serror"? ; Campus the person is logging on to
?"- 4-"+@time+"-"+$_debug_name+"- @error @serror"? ; Whether the user is a staff member or a student
?"- 5-"+@time+"-"+$_debug_name+"- @error @serror"? ; Where the person's home directory exists
?"- 6-"+@time+"-"+$_debug_name+"- @error @serror"? ; The script will also map a second Common drive to the student server
?"- 7-"+@time+"-"+$_debug_name+"- @error @serror"? ; for staff members who are instructors,
?"- 8-"+@time+"-"+$_debug_name+"- @error @serror"? ; and run the delprof.bat program if the logon user is a student
?"- 9-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 10-"+@time+"-"+$_debug_name+"- @error @serror"? ; The logon script uses Kixtart version 3.62
?"- 11-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 12-"+@time+"-"+$_debug_name+"- @error @serror"? ;***************************
?"- 13-"+@time+"-"+$_debug_name+"- @error @serror"? ;**** Set this line to hide or show, depending on whether or not you
?"- 14-"+@time+"-"+$_debug_name+"- @error @serror"? ;**** want the screen visible
?"- 15-"+@time+"-"+$_debug_name+"- @error @serror"? ;***************************
?"- 16-"+@time+"-"+$_debug_name+"- @error @serror"? ;setconsole('hide')
?"- 17-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 18-"+@time+"-"+$_debug_name+"- @error @serror"? ;***************************
?"- 19-"+@time+"-"+$_debug_name+"- @error @serror"? ;**** Concatenate a $ on to the end of the user id so that it can
?"- 20-"+@time+"-"+$_debug_name+"- @error @serror"? ;**** be used for mapping to the home directory
?"- 21-"+@time+"-"+$_debug_name+"- @error @serror"? ;***************************
?"- 22-"+@time+"-"+$_debug_name+"- @error @serror"? $user='@userid'+'$$'
?"- 23-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 24-"+@time+"-"+$_debug_name+"- @error @serror"? ;****************************
?"- 25-"+@time+"-"+$_debug_name+"- @error @serror"? ;**** Determine which campus the user is logging on from
?"- 26-"+@time+"-"+$_debug_name+"- @error @serror"? ;****************************
?"- 27-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 28-"+@time+"-"+$_debug_name+"- @error @serror"? $campus='none'
?"- 29-"+@time+"-"+$_debug_name+"- @error @serror"? IF @lserver = '\\PC01'
?"- 30-"+@time+"-"+$_debug_name+"- @error @serror"? $campus = 'franklin'
?"- 31-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 32-"+@time+"-"+$_debug_name+"- @error @serror"? IF @lserver = '\\PC02'
?"- 33-"+@time+"-"+$_debug_name+"- @error @serror"? $campus = 'franklin'
?"- 34-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 35-"+@time+"-"+$_debug_name+"- @error @serror"? IF @lserver = '\\PC03'
?"- 36-"+@time+"-"+$_debug_name+"- @error @serror"? $campus = 'suffolk'
?"- 37-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 38-"+@time+"-"+$_debug_name+"- @error @serror"? IF @lserver = '\\PC04'
?"- 39-"+@time+"-"+$_debug_name+"- @error @serror"? $campus = 'suffolk'
?"- 40-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 41-"+@time+"-"+$_debug_name+"- @error @serror"? IF @lserver = '\\PC07'
?"- 42-"+@time+"-"+$_debug_name+"- @error @serror"? $campus = 'wfd'
?"- 43-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 44-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 45-"+@time+"-"+$_debug_name+"- @error @serror"? ;****************************
?"- 46-"+@time+"-"+$_debug_name+"- @error @serror"? ;**** Determine which server the user's home directory is located on
?"- 47-"+@time+"-"+$_debug_name+"- @error @serror"? ;****************************
?"- 48-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 49-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr="none"
?"- 50-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 51-"+@time+"-"+$_debug_name+"- @error @serror"? SELECT
?"- 52-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
$campus = 'franklin'
?"- 53-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc01\$user\')
?"- 54-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc01'
?"- 55-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 56-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc02\$user\')
?"- 57-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc02'
?"- 58-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 59-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc03\$user\')
?"- 60-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc03'
?"- 61-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 62-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc04\$user\')
?"- 63-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc04'
?"- 64-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 65-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc07\$user\')
?"- 66-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc07'
?"- 67-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 68-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
$campus = 'suffolk'
?"- 69-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc03\$user\')
?"- 70-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc03'
?"- 71-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 72-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc04\$user\')
?"- 73-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc04'
?"- 74-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 75-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc01\$user\')
?"- 76-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc01'
?"- 77-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 78-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc02\$user\')
?"- 79-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc02'
?"- 80-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 81-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc07\$user\')
?"- 82-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc07'
?"- 83-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 84-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
$campus = 'wfd'
?"- 85-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc01\$user\')
?"- 86-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc01'
?"- 87-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 88-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc02\$user\')
?"- 89-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc02'
?"- 90-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 91-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc03\$user\')
?"- 92-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc03'
?"- 93-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 94-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc04\$user\')
?"- 95-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc04'
?"- 96-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 97-"+@time+"-"+$_debug_name+"- @error @serror"? IF Exist ('\\pc07\$user\')
?"- 98-"+@time+"-"+$_debug_name+"- @error @serror"? $homesrvr = 'pc07'
?"- 99-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 100-"+@time+"-"+$_debug_name+"- @error @serror"? ENDSELECT
?"- 101-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 102-"+@time+"-"+$_debug_name+"- @error @serror"? ;********************************
?"- 103-"+@time+"-"+$_debug_name+"- @error @serror"? ;**** Map Home drive
?"- 104-"+@time+"-"+$_debug_name+"- @error @serror"? ;********************************
?"- 105-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 106-"+@time+"-"+$_debug_name+"- @error @serror"? IF ($homesrvr <> "none")
?"- 107-"+@time+"-"+$_debug_name+"- @error @serror"? USE h: '\\$homesrvr\$user\'
?"- 108-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 109-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 110-"+@time+"-"+$_debug_name+"- @error @serror"? ;********************************
?"- 111-"+@time+"-"+$_debug_name+"- @error @serror"? ;**** Map Remaining shared drives
?"- 112-"+@time+"-"+$_debug_name+"- @error @serror"? ;********************************
?"- 113-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 114-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup ('academic')
?"- 115-"+@time+"-"+$_debug_name+"- @error @serror"? SELECT
?"- 116-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
$campus = 'franklin'
?"- 117-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: '\\pc01\apps\'
?"- 118-"+@time+"-"+$_debug_name+"- @error @serror"? USE t: '\\pc01\common\'
?"- 119-"+@time+"-"+$_debug_name+"- @error @serror"? RUN '%comspec% /c \\pc01\win98\delprof.bat'
?"- 120-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
$campus = 'suffolk'
?"- 121-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: '\\pc03\apps\'
?"- 122-"+@time+"-"+$_debug_name+"- @error @serror"? USE t: '\\pc03\common\'
?"- 123-"+@time+"-"+$_debug_name+"- @error @serror"? RUN '%comspec% /c \\pc03\win98\delprof.bat'
?"- 124-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
$campus = 'wfd'
?"- 125-"+@time+"-"+$_debug_name+"- @error @serror"? IF $homesrvr = 'pc07'
?"- 126-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: '\\pc07\apps\'
?"- 127-"+@time+"-"+$_debug_name+"- @error @serror"? USE t: '\\pc07\common\'
?"- 128-"+@time+"-"+$_debug_name+"- @error @serror"? RUN '%comspec% /c \\pc07\win98\delprof.bat'
?"- 129-"+@time+"-"+$_debug_name+"- @error @serror"? ELSE
?"- 130-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: '\\pc01\apps\'
?"- 131-"+@time+"-"+$_debug_name+"- @error @serror"? USE t: '\\pc01\common\'
?"- 132-"+@time+"-"+$_debug_name+"- @error @serror"? RUN '%comspec% /c \\pc01\win98\delprof.bat'
?"- 133-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 134-"+@time+"-"+$_debug_name+"- @error @serror"? ENDSELECT
?"- 135-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 136-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 137-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup ('staff')
?"- 138-"+@time+"-"+$_debug_name+"- @error @serror"? SELECT
?"- 139-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
$campus = 'franklin'
?"- 140-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: '\\pc02\apps\'
?"- 141-"+@time+"-"+$_debug_name+"- @error @serror"? ; use t: '\\pc02\common\'
?"- 142-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup ('professors')
?"- 143-"+@time+"-"+$_debug_name+"- @error @serror"? USE u: '\\pc01\common\'
?"- 144-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 145-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
$campus = 'suffolk'
?"- 146-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: '\\pc04\apps\'
?"- 147-"+@time+"-"+$_debug_name+"- @error @serror"? ; use t: '\\pc04\common\'
?"- 148-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup ('professors')
?"- 149-"+@time+"-"+$_debug_name+"- @error @serror"? USE u: '\\pc03\common\'
?"- 150-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 151-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
$campus = 'wfd'
?"- 152-"+@time+"-"+$_debug_name+"- @error @serror"? IF $homesrvr = 'pc07'
?"- 153-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: '\\pc07\apps\'
?"- 154-"+@time+"-"+$_debug_name+"- @error @serror"? ; use t: '\\pc07\common\'
?"- 155-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup ('professors')
?"- 156-"+@time+"-"+$_debug_name+"- @error @serror"? USE u: '\\pc07\common\'
?"- 157-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 158-"+@time+"-"+$_debug_name+"- @error @serror"? ELSE
?"- 159-"+@time+"-"+$_debug_name+"- @error @serror"? USE f: '\\pc02\apps\'
?"- 160-"+@time+"-"+$_debug_name+"- @error @serror"? ; use t: '\\pc02\common\'
?"- 161-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup ('professors')
?"- 162-"+@time+"-"+$_debug_name+"- @error @serror"? USE u: '\\pc01\common\'
?"- 163-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 164-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 165-"+@time+"-"+$_debug_name+"- @error @serror"? ENDSELECT
?"- 166-"+@time+"-"+$_debug_name+"- @error @serror"? USE t: '\\$homesrvr\common\'
?"- 167-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 168-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 169-"+@time+"-"+$_debug_name+"- @error @serror"? ? "user id = " @userid
?"- 170-"+@time+"-"+$_debug_name+"- @error @serror"? ? "User share = " $user
?"- 171-"+@time+"-"+$_debug_name+"- @error @serror"? ? "Logon Server = " @lserver
?"- 172-"+@time+"-"+$_debug_name+"- @error @serror"? ? "Home Server = " $homesrvr
?"- 173-"+@time+"-"+$_debug_name+"- @error @serror"? ? "Campus = " $campus
?"- 174-"+@time+"-"+$_debug_name+"- @error @serror"?
?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"
? "-"
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.18e script ending"
IF (Val(substr(@kix,1,1)) >= 4)
IF (len(@scriptname) <> 0)
" ("+LCASE(@scriptname)+")"
ENDIF
ENDIF
? "-"
IF RedirectOutput("CON")
ENDIF
COLOR C+/N
?
? "Informative KIX "+@kix+":"+" debug info see "+CHR(34)+$_debug_file+CHR(34)
IF (Val(substr(@kix,1,1)) >= 4)
IF (len(@scriptname) <> 0)
" ("+LCASE(@scriptname)+")"
ENDIF
ENDIF
IF RedirectOutput($_debug_file)
ENDIF
;($begin)
;
; tue 16-jul-2002 08:15:02 (kix 4.10 vs 3.18e)
;
;Informative KIXSTRIP: no errors found (input=195 output=174 skip=21).
;
;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 [29:2:29]
; - select:case:endselect [3:9:3]
; - while:loop [0:0]
;Informative KIXSTRIP: 32 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: 4 RUN
;Informative KIXSTRIP: 18 USE
;
;($end)
Please run the debugging version and return the output of file
%tmp%\kixdebug.txt to the board.
greetings.
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 699 anonymous users online.
|
|
|
