You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » Win98SE clients sometimes hang during KIX script
Register User       Forum List       Calendar       FAQ
Page 1 of 2 12>
Topic Options
#24931 - 2002-07-12 01:10 AM Win98SE clients sometimes hang during KIX script
BrianButler Offline
Fresh Scripter

Registered: 2002-07-12
Posts: 8
Loc: Little Rock, AR, USA
Hello,

We have KIX v4.10 running on an NT4.0 Server with mostly Win98SE clients.

Sometimes (but not always) the Win98SE client machine will hang when the KIX script runs. This
happens in the classic way, as has been discussed here previously, with a KIX32 and WINOLDAP
process. There are some machines more often affected than others, and we can't find what is
different about the machines which are more frequently affected.

Problem: None of the classic fixes have worked.

KIX has been installed per docs.

We have removed WinPopup (and several other things) from the machines where this happens most
often. They are all as "clean" as possible in terms of startup software. Windows Update is
done frequently and all critical patches to date have been applied.

KIXSTRIP likes the logon script.

There is no pause statement.

The affected client machines do have a KIXTART.LOG in \windows\temp but there are no entries
for instances where this problem occurs.

Any ideas?

*Thanks very much*!

(MCA: layout corrections)

[ 12 July 2002, 20:04: Message edited by: MCA ]
_________________________
-- Brian Butler Citadel Radio Little Rock Engineering/MIS Department 501-401-0200

Top
#24932 - 2002-07-12 01:26 AM Re: Win98SE clients sometimes hang during KIX script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

Some questions?
- what kixtart 4.10 build running?
- where are the kixtart files installed?
- how are you calling your script?
- did you try also the /debug version of kixstrip to run your script. please
posts the output to the board.
greetings.
_________________________
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

Top
#24933 - 2002-07-12 04:04 PM Re: Win98SE clients sometimes hang during KIX script
BrianButler Offline
Fresh Scripter

Registered: 2002-07-12
Posts: 8
Loc: Little Rock, AR, USA
v4.10 build - the kix32.exe has the same length as build 99 which I just pulled off the web. I don't know another way to determine which build I have. Is there a way? I have the .exe only and not much else.

Where the files are installed - they are all on the NT Server's NETLOGON share.

How the script is called - it is the user's logon script specified in NT User Manager.

Following is the output of kixstrip /debug on our script:

code:
 

IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") = 0) AND (instr("-4.x-5.x-6.x-7.x-8.x-9.x-","-"+substr(@kix,1,2)+"x-") = 0)
  IF MessageBox("sorry, your kixtart "+@kix+" release is too old."+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" at least run KiXtart 3.60"+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" please upgrade .","KiXtart "+@kix+" info",4112,300)
  ENDIF
  EXIT
ENDIF
COLOR C+/N
DIM $perf_hits[101]
$perf_cur=    1 gosub "perf_info"  ;Citadel Little Rock default logon script for domain LITTLEROCK
$perf_cur=    2 gosub "perf_info"  ;v2.0 6/24/2002

.....

$perf_cur=  190 gosub "perf_info" :exit
$perf_cur=  191 gosub "perf_info" 
$perf_cur=  192 gosub "perf_info" 
$perf_cur=  193 gosub "perf_info"  QUIT

;($begin)
;
;                       fri 12-jul-2002 08:39:31       (kix 4.10 vs 3.18e)
;
;Informative KIXSTRIP:   no errors found (input=193 output=193 skip=0).
;
;Informative KIXSTRIP:   21 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 QUIT
;Informative KIXSTRIP:    2 SHELL
;Informative KIXSTRIP:    6 USE
;
;($end)

:perf_report
 IF (RedirectOutput("") = 0)
 ENDIF
 CLS
 at(2,26) "Kixtart Performance Report "+@kix
 box(3,5,5,75,"single")
 $perf_column=6
 DO
   at(4,$perf_column) " "
   $perf_column=$perf_column+1
 UNTIL ($perf_column >= 75)
 box(7,5,9,75,"single")
 $perf_percentage=((100*$perf_cur)/$perf_stop)
 at(6,30) substr("   ",1,3-len("$perf_percentage")) $perf_percentage " %"
 at(8,26) substr("       ",1,7-len("$perf_cur")) $perf_cur " .. " $perf_stop
 at(8,49) "total lines:  " $perf_total
 $perf_stop_time=@time
 $perf_start_stime=(3600*substr($perf_start_time,1,2)+60*substr($perf_start_time,4,2)+substr($perf_start_time,7,2))
 $perf_stop_stime=(3600*substr($perf_stop_time,1,2)+60*substr($perf_stop_time,4,2)+substr($perf_stop_time,7,2))
 $perf_elapse_time=$perf_stop_stime - $perf_start_stime
 at(4,25) $perf_start_time " .. " $perf_stop_time
 at(4,55) "elapse: " $perf_elapse_time " sec"
 IF ($perf_elapse_time = 0)
   $perf_elapse_time=1
 ENDIF
 at(6,49) "lines/second: " ($perf_total/$perf_elapse_time)
 at(11,0)
 $perf_info="  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits"
 $perf_info
 $perf_count1=1
 DO
   $perf_info=""
   $perf_count2=1
   DO
     $perf_hits_pos=$perf_count1+$perf_count2-1
     $perf_hits_value=$perf_hits[$perf_hits_pos]
     $perf_info=$perf_info+substr("   ",1,3-len("$perf_hits_pos"))+$perf_hits_pos
     $perf_info=$perf_info+substr("     ",1,5-len("$perf_hits_value"))+$perf_hits_value
     $perf_count2=$perf_count2+1
   UNTIL ($perf_count2 > 10)
   at(11+$perf_count1/10+1,0) $perf_info
   $perf_count1=$perf_count1+10
 UNTIL ($perf_count1 > 100)
 at(22,0)
 EXIT
:perf_info ; - performance -
 $perf_stop=193
 IF ($perf_cur <= 1)
     $perf_count1=0
     DO
       $perf_hits[$perf_count1]=0
       $perf_count1=$perf_count1+1
     UNTIL ($perf_count1 > 100)
     $perf_start_time=@time
     $perf_total=0
 ENDIF
 $perf_percentage=((100*$perf_cur)/$perf_stop)
 $perf_hits[$perf_percentage]=$perf_hits[$perf_percentage]+1
 $perf_total=$perf_total+1
 RETURN
Thanks!

[ 12 July 2002, 20:03: Message edited by: MCA ]
_________________________
-- Brian Butler Citadel Radio Little Rock Engineering/MIS Department 501-401-0200

Top
#24934 - 2002-07-12 04:28 PM Re: Win98SE clients sometimes hang during KIX script
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
WHOA... what's with the loooong line?

To check version, right-click on KIX32.exe and check the "Properties".
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#24935 - 2002-07-12 08:02 PM Re: Win98SE clients sometimes hang during KIX script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

You are using the latest kixstrip release, but your latest significant
option was /Performance.
We transfer it to a version with
- prepared by the call kixstrip input.kix output.kix /debug
- some very long lines are splitting for the readability of this board topic. it
shows also a possible mistyping in one of your company rules.

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"?  ;Citadel Little Rock default logon script for domain LITTLEROCK
?"-         2-"+@time+"-"+$_debug_name+"- @error @serror"?  ;v2.0 6/24/2002
?"-         3-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Hide the console window
?"-         4-"+@time+"-"+$_debug_name+"- @error @serror"?  SetConsole ("HIDE")
?"-         5-"+@time+"-"+$_debug_name+"- @error @serror"?  ; First, check for Virus Protection and force installation if required
?"-         6-"+@time+"-"+$_debug_name+"- @error @serror"?  SHELL "%comspec% /c vplogin.bat"
?"-         7-"+@time+"-"+$_debug_name+"- @error @serror"?  ; then, a little security and housekeeping
?"-         8-"+@time+"-"+$_debug_name+"- @error @serror"?  DEL "C:\Windows\*.pwl"
?"-         9-"+@time+"-"+$_debug_name+"- @error @serror"?  DEL "C:\*.chk"
?"-        10-"+@time+"-"+$_debug_name+"- @error @serror"?  ; if this is a "special" user, bypass the rest and exit
?"-        11-"+@time+"-"+$_debug_name+"- @error @serror"? :bypass
?"-        12-"+@time+"-"+$_debug_name+"- @error @serror"?  IF @homeshr = ""
?"-        13-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO "exit"
?"-        14-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        15-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Map the public and personal shares
?"-        16-"+@time+"-"+$_debug_name+"- @error @serror"?  USE "X:" "\\lr-primary\Public"
?"-        17-"+@time+"-"+$_debug_name+"- @error @serror"?  USE "W:" "@homeshr"
?"-        18-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Make sure that the mandatory profile is used
?"-        19-"+@time+"-"+$_debug_name+"- @error @serror"?  ; copy "X:\userdef.man" "W:/user.man"
?"-        20-"+@time+"-"+$_debug_name+"- @error @serror"?  ; del "W:\user.dat"
?"-        21-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Define the message to pop up when we're all finished with this phase
?"-        22-"+@time+"-"+$_debug_name+"- @error @serror"?  $nl = CHR(10) + CHR(13) + CHR(10) + CHR(13)
                                                             ;($debug off)
                                                             $msg =        "@fullname, Welcome to the Citadel Little Rock Computer Network." + $nl
                                                             $msg = $msg + "Please remember these important rules:" + $nl
                                                             $msg = $msg + "1. You will be held responsible for EVERYTHING that is done under your network login. For your own protection, LOG OUT FROM THIS MACHINE WHEN YOU LEAVE." + $nl
                                                             $msg = $msg + "2. DO NOT share your password or account information. Each person has their own account, so let the other people use their own!" + $nl
                                                             $msg = $msg + "3. Do not download and install programs, toys, or games from the Internet. This machine is NOT a toy!" + $nl
                                                             $msg = $msg + "4. Company Policy forbids installing personal software or unlicensed applications on company-owned computers. Please abide by that policy." + $nl
                                                             $msg = $msg + "4. If you have any problems, please ask Dan Case for assistance."
?"-        31-"+@time+"-"+$_debug_name+"- @error @serror"?  ;($debug on)
?"-        32-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Set time to match the PDC
?"-        33-"+@time+"-"+$_debug_name+"- @error @serror"?  SETTIME "\\lr-primary"
?"-        34-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Finally, map some drives based on group membership
?"-        35-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("MIS")
?"-        36-"+@time+"-"+$_debug_name+"- @error @serror"?        USE "U:" "\\lr-server\MIS$"
?"-        37-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        38-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Sales")
?"-        39-"+@time+"-"+$_debug_name+"- @error @serror"?        USE "V:" "\\lr-primary\Sales"
?"-        40-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO "hello"
?"-        41-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        42-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Production")
?"-        43-"+@time+"-"+$_debug_name+"- @error @serror"?        USE "V:" "\\lr-primary\Production"
?"-        44-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO "hello"
?"-        45-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        46-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Talent")
?"-        47-"+@time+"-"+$_debug_name+"- @error @serror"?        USE "V:" "\\lr-primary\Production"
?"-        48-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO "hello"
?"-        49-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        50-"+@time+"-"+$_debug_name+"- @error @serror"?  ;pop up that lovely greeting message box
?"-        51-"+@time+"-"+$_debug_name+"- @error @serror"? :hello
?"-        52-"+@time+"-"+$_debug_name+"- @error @serror"?  IF MESSAGEBOX ("$msg", "Welcome Back, @fullname! Please Read this!",4144,)
?"-        53-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        54-"+@time+"-"+$_debug_name+"- @error @serror"?  ; run the disk quota checker
?"-        55-"+@time+"-"+$_debug_name+"- @error @serror"?  ;Define a few things
?"-        56-"+@time+"-"+$_debug_name+"- @error @serror"?  $logfile = "\\lr-primary\QL$$\@MonthNo-@MDayNo-@Year.log"
?"-        57-"+@time+"-"+$_debug_name+"- @error @serror"?  $tmp_directory=ExpandEnvironmentVars("%tmp%")
?"-        58-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (substr($tmp_directory,len($tmp_directory),1) <> "\")
?"-        59-"+@time+"-"+$_debug_name+"- @error @serror"?        $tmp_directory=$tmp_directory+"\"
?"-        60-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        61-"+@time+"-"+$_debug_name+"- @error @serror"?  $tmp_file=$tmp_directory+"disk.tmp"
?"-        62-"+@time+"-"+$_debug_name+"- @error @serror"?  IF exist($tmp_file) = 1
?"-        63-"+@time+"-"+$_debug_name+"- @error @serror"?        DEL $tmp_file
?"-        64-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        65-"+@time+"-"+$_debug_name+"- @error @serror"?  ;Shell out and create a file with a full directory of the personal share
?"-        66-"+@time+"-"+$_debug_name+"- @error @serror"?  SHELL "%comspec% /c dir  W:\ /a /s >>"+$tmp_file
?"-        67-"+@time+"-"+$_debug_name+"- @error @serror"?  ;Parse the file and grab the line with the total size of the personal share...
?"-        68-"+@time+"-"+$_debug_name+"- @error @serror"?  IF OPEN (1,$tmp_file) = 0
?"-        69-"+@time+"-"+$_debug_name+"- @error @serror"?        $size = ""
?"-        70-"+@time+"-"+$_debug_name+"- @error @serror"?        WHILE $size = ""
?"-        71-"+@time+"-"+$_debug_name+"- @error @serror"?              $t = ReadLine(1)
?"-        72-"+@time+"-"+$_debug_name+"- @error @serror"?              $t = Trim($t)
?"-        73-"+@time+"-"+$_debug_name+"- @error @serror"?              IF Left($t,5) = "Total"
?"-        74-"+@time+"-"+$_debug_name+"- @error @serror"?                    $size = ReadLine(1)
?"-        75-"+@time+"-"+$_debug_name+"- @error @serror"?              ENDIF
?"-        76-"+@time+"-"+$_debug_name+"- @error @serror"?        LOOP
?"-        77-"+@time+"-"+$_debug_name+"- @error @serror"?        $perf_cur=  108
?"-        78-"+@time+"-"+$_debug_name+"- @error @serror"?        GOSUB "perf_info"
?"-        79-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        80-"+@time+"-"+$_debug_name+"- @error @serror"?  ;...and delete the temp file
?"-        81-"+@time+"-"+$_debug_name+"- @error @serror"?  IF CLOSE(1) = 0
?"-        82-"+@time+"-"+$_debug_name+"- @error @serror"?        DEL $tmp_file
?"-        83-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        84-"+@time+"-"+$_debug_name+"- @error @serror"?  ;Clean up the line we stripped from the temp file...
?"-        85-"+@time+"-"+$_debug_name+"- @error @serror"?  $tl = instr($size,"File") + 7
?"-        86-"+@time+"-"+$_debug_name+"- @error @serror"?  $tr = Len($size) - $tl -5
?"-        87-"+@time+"-"+$_debug_name+"- @error @serror"?  $size = Trim(Substr($size,$tl,$tr))
?"-        88-"+@time+"-"+$_debug_name+"- @error @serror"?  $p = InStr($size,Chr(44))
?"-        89-"+@time+"-"+$_debug_name+"- @error @serror"?  WHILE $p > 0
?"-        90-"+@time+"-"+$_debug_name+"- @error @serror"?        $size = Left($size,($p - 1)) + Right($size, Len($size) - $p)
?"-        91-"+@time+"-"+$_debug_name+"- @error @serror"?        $p = InStr($size,Chr(44))
?"-        92-"+@time+"-"+$_debug_name+"- @error @serror"?  LOOP
?"-        93-"+@time+"-"+$_debug_name+"- @error @serror"?  ;...convert from bytes to Mb, and calculate how far (if at all) over quota the user is...
?"-        94-"+@time+"-"+$_debug_name+"- @error @serror"?  $size = Val($size) /1048576
?"-        95-"+@time+"-"+$_debug_name+"- @error @serror"?  $over = $size - 350
?"-        96-"+@time+"-"+$_debug_name+"- @error @serror"?  ;If user is over quota, send them an appropriate message...
?"-        97-"+@time+"-"+$_debug_name+"- @error @serror"?  IF $size > 350
?"-        98-"+@time+"-"+$_debug_name+"- @error @serror"?        IF $size > 350 AND $size < 500
?"-        99-"+@time+"-"+$_debug_name+"- @error @serror"?              $used =         "Your Personal Folder (Drive W:) contains " + $size + " Megabytes of data. " + Chr(13) + Chr(10)
?"-       100-"+@time+"-"+$_debug_name+"- @error @serror"?              $used = $used + "Please delete any files you no longer need to create more free space."
?"-       101-"+@time+"-"+$_debug_name+"- @error @serror"?              $hdr = "Level 1 Disk Usage Warning"
?"-       102-"+@time+"-"+$_debug_name+"- @error @serror"?              $code = 64
?"-       103-"+@time+"-"+$_debug_name+"- @error @serror"?              $level = 1
?"-       104-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       105-"+@time+"-"+$_debug_name+"- @error @serror"?        IF $size => 500 AND $size < 750
?"-       106-"+@time+"-"+$_debug_name+"- @error @serror"?              $used =         "Your Personal Folder (Drive W:) contains " + $size + " Megabytes of data. " + Chr(13) + Chr(10)
?"-       107-"+@time+"-"+$_debug_name+"- @error @serror"?              $used = $used + "Please remove at least "+ $over + " Megabytes from your Personal Folder to free space." + Chr(13) +
?"-       108-"+@time+"-"+$_debug_name+"- @error @serror"?              $hdr = "Level 2 Disk Usage Warning"
?"-       109-"+@time+"-"+$_debug_name+"- @error @serror"?              $code = 48
?"-       110-"+@time+"-"+$_debug_name+"- @error @serror"?              $level = 2
?"-       111-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       112-"+@time+"-"+$_debug_name+"- @error @serror"?        IF $size => 750 AND $size < 1000
?"-       113-"+@time+"-"+$_debug_name+"- @error @serror"?              $used =         "Your Personal Folder (Drive W:) contains " + $size + " Megabytes of data. " + Chr(13) + Chr(10)
?"-       114-"+@time+"-"+$_debug_name+"- @error @serror"?              $used = $used + "This is shared storage space, and you are using far more than your fair share." + Chr(13) + Chr(10)
?"-       115-"+@time+"-"+$_debug_name+"- @error @serror"?              $hdr = "Level 3 Disk Usage Warning"
?"-       116-"+@time+"-"+$_debug_name+"- @error @serror"?              $code = 4112
?"-       117-"+@time+"-"+$_debug_name+"- @error @serror"?              $level = 3
?"-       118-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       119-"+@time+"-"+$_debug_name+"- @error @serror"?        IF $size => 1000
?"-       120-"+@time+"-"+$_debug_name+"- @error @serror"?              $used =         "Your Personal Folder (Drive W:) contains " + $size + " Megabytes of data. " + Chr(13) + Chr(10)
?"-       121-"+@time+"-"+$_debug_name+"- @error @serror"?              $used = $used + "This is shared storage space, and you are using far more than your fair share." + Chr(13) + Chr(10)
?"-       122-"+@time+"-"+$_debug_name+"- @error @serror"?              $hdr = "Level 4 Disk Usage Warning"
?"-       123-"+@time+"-"+$_debug_name+"- @error @serror"?              $code = 4112
?"-       124-"+@time+"-"+$_debug_name+"- @error @serror"?              $level = 4
?"-       125-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       126-"+@time+"-"+$_debug_name+"- @error @serror"?        ;...and write to the log
?"-       127-"+@time+"-"+$_debug_name+"- @error @serror"?        $logline =            "Quota Notification -- Level " + $level + ": " + @monthno + "-" + @mdayno + "-" + @year + ", " + @time
?"-       128-"+@time+"-"+$_debug_name+"- @error @serror"?        $logline = $logline + "  User: " + @userid + " Share Size: "+ $size  + " Megabytes." + Chr(13) + Chr(10) + Chr(13) + Chr(10)
?"-       129-"+@time+"-"+$_debug_name+"- @error @serror"?        IF Open(2,$logfile,5) = 0
?"-       130-"+@time+"-"+$_debug_name+"- @error @serror"?              $x = Writeline(2,$logline)
?"-       131-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       132-"+@time+"-"+$_debug_name+"- @error @serror"?        IF Close(2)
?"-       133-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       134-"+@time+"-"+$_debug_name+"- @error @serror"?        IF  messagebox ($used, $hdr,$code,)
?"-       135-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       136-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       137-"+@time+"-"+$_debug_name+"- @error @serror"?  ;...then, say bye-bye
?"-       138-"+@time+"-"+$_debug_name+"- @error @serror"? :exit
?"-       139-"+@time+"-"+$_debug_name+"- @error @serror"?  QUIT
?"-       140-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       141-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       142-"+@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)
;
;                       fri 12-jul-2002 20:01:14       (kix 4.10 vs 3.18e)
;
;Informative KIXSTRIP:   no errors found (input=166 output=142 skip=24).
;
;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            [19:0:19]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [2:2]
;Informative KIXSTRIP:   21 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:    1 GOSUB
;Informative KIXSTRIP:    4 GOTO
;Informative KIXSTRIP:    1 QUIT
;Informative KIXSTRIP:    2 SHELL
;Informative KIXSTRIP:    6 USE
;
;($end)
greetings.

btw: we reduce above input for readability of this forum
_________________________
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

Top
#24936 - 2002-07-12 08:04 PM Re: Win98SE clients sometimes hang during KIX script
BrianButler Offline
Fresh Scripter

Registered: 2002-07-12
Posts: 8
Loc: Little Rock, AR, USA
As for the version provided in Properties, it is v4.10.

As for the long line, I'm not sure what you mean. Is it not displaying in a readable fashion? There are definitely some long lines in the code. Should we use a wordwrapper?

Thanks!
_________________________
-- Brian Butler Citadel Radio Little Rock Engineering/MIS Department 501-401-0200

Top
#24937 - 2002-07-12 08:07 PM Re: Win98SE clients sometimes hang during KIX script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
we change your code a little which makes such long lines readable.

greetings.
_________________________
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

Top
#24938 - 2002-07-12 08:59 PM Re: Win98SE clients sometimes hang during KIX script
BrianButler Offline
Fresh Scripter

Registered: 2002-07-12
Posts: 8
Loc: Little Rock, AR, USA
I understand. Sorry about the way the code is
formatted. If there is something else I should
be doing please advise.

Am I correct in that kixstrip is not finding
scripting errors? Is there anything else that
comes to mind?

Thanks!
_________________________
-- Brian Butler Citadel Radio Little Rock Engineering/MIS Department 501-401-0200

Top
#24939 - 2002-07-12 09:42 PM Re: Win98SE clients sometimes hang during KIX script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

Some question:
  • what is the contents of your vplogin.bat file?
  • disable temporary the lines 8 and 9. possible problems with "share violation" problems.
  • we have remove
    code:
    ?"-        77-"+@time+"-"+$_debug_name+"- @error @serror"?        $perf_cur=  108?"-        78-"+@time+"-"+$_debug_name+"- @error @serror"?        GOSUB "perf_info"
    it was the result of your version.
Can you run our version with debug code in it.
Please return output of file c:\kixdebug.txt to the board.
we replace the default location in the %tmp% to c:\ directory.
greetings.
btw: one of the tasks of moderators is the supporting the contributers in their requests.
f.e. by make it much easier to read
_________________________
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

Top
#24940 - 2002-07-12 09:44 PM Re: Win98SE clients sometimes hang during KIX script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

New version"
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"?  ;Citadel Little Rock default logon script for domain LITTLEROCK
?"-         2-"+@time+"-"+$_debug_name+"- @error @serror"?  ;v2.0 6/24/2002
?"-         3-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Hide the console window
?"-         4-"+@time+"-"+$_debug_name+"- @error @serror"?  SetConsole ("HIDE")
?"-         5-"+@time+"-"+$_debug_name+"- @error @serror"?  ; First, check for Virus Protection and force installation if required
?"-         6-"+@time+"-"+$_debug_name+"- @error @serror"?  SHELL "%comspec% /c vplogin.bat"
?"-         7-"+@time+"-"+$_debug_name+"- @error @serror"?  ; then, a little security and housekeeping
?"-         8-"+@time+"-"+$_debug_name+"- @error @serror"?  DEL "C:\Windows\*.pwl"
?"-         9-"+@time+"-"+$_debug_name+"- @error @serror"?  DEL "C:\*.chk"
?"-        10-"+@time+"-"+$_debug_name+"- @error @serror"?  ; if this is a "special" user, bypass the rest and exit
?"-        11-"+@time+"-"+$_debug_name+"- @error @serror"? :bypass
?"-        12-"+@time+"-"+$_debug_name+"- @error @serror"?  IF @homeshr = ""
?"-        13-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO "exit"
?"-        14-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        15-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Map the public and personal shares
?"-        16-"+@time+"-"+$_debug_name+"- @error @serror"?  USE "X:" "\\lr-primary\Public"
?"-        17-"+@time+"-"+$_debug_name+"- @error @serror"?  USE "W:" "@homeshr"
?"-        18-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Make sure that the mandatory profile is used
?"-        19-"+@time+"-"+$_debug_name+"- @error @serror"?  ; copy "X:\userdef.man" "W:/user.man"
?"-        20-"+@time+"-"+$_debug_name+"- @error @serror"?  ; del "W:\user.dat"
?"-        21-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Define the message to pop up when we're all finished with this phase
?"-        22-"+@time+"-"+$_debug_name+"- @error @serror"?  $nl = CHR(10) + CHR(13) + CHR(10) + CHR(13)
                                                             ;($debug off)
                                                             $msg =        "@fullname, Welcome to the Citadel Little Rock Computer Network." + $nl
                                                             $msg = $msg + "Please remember these important rules:" + $nl
                                                             $msg = $msg + "1. You will be held responsible for EVERYTHING that is done under your network login. For your own protection, LOG OUT FROM THIS MACHINE WHEN YOU LEAVE." + $nl
                                                             $msg = $msg + "2. DO NOT share your password or account information. Each person has their own account, so let the other people use their own!" + $nl
                                                             $msg = $msg + "3. Do not download and install programs, toys, or games from the Internet. This machine is NOT a toy!" + $nl
                                                             $msg = $msg + "4. Company Policy forbids installing personal software or unlicensed applications on company-owned computers. Please abide by that policy." + $nl
                                                             $msg = $msg + "4. If you have any problems, please ask Dan Case for assistance."
?"-        31-"+@time+"-"+$_debug_name+"- @error @serror"?  ;($debug on)
?"-        32-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Set time to match the PDC
?"-        33-"+@time+"-"+$_debug_name+"- @error @serror"?  SETTIME "\\lr-primary"
?"-        34-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Finally, map some drives based on group membership
?"-        35-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("MIS")
?"-        36-"+@time+"-"+$_debug_name+"- @error @serror"?        USE "U:" "\\lr-server\MIS$"
?"-        37-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        38-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Sales")
?"-        39-"+@time+"-"+$_debug_name+"- @error @serror"?        USE "V:" "\\lr-primary\Sales"
?"-        40-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO "hello"
?"-        41-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        42-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Production")
?"-        43-"+@time+"-"+$_debug_name+"- @error @serror"?        USE "V:" "\\lr-primary\Production"
?"-        44-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO "hello"
?"-        45-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        46-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Talent")
?"-        47-"+@time+"-"+$_debug_name+"- @error @serror"?        USE "V:" "\\lr-primary\Production"
?"-        48-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO "hello"
?"-        49-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        50-"+@time+"-"+$_debug_name+"- @error @serror"?  ;pop up that lovely greeting message box
?"-        51-"+@time+"-"+$_debug_name+"- @error @serror"? :hello
?"-        52-"+@time+"-"+$_debug_name+"- @error @serror"?  IF MESSAGEBOX ("$msg", "Welcome Back, @fullname! Please Read this!",4144,)
?"-        53-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        54-"+@time+"-"+$_debug_name+"- @error @serror"?  ; run the disk quota checker
?"-        55-"+@time+"-"+$_debug_name+"- @error @serror"?  ;Define a few things
?"-        56-"+@time+"-"+$_debug_name+"- @error @serror"?  $logfile = "\\lr-primary\QL$$\@MonthNo-@MDayNo-@Year.log"
?"-        57-"+@time+"-"+$_debug_name+"- @error @serror"?  $tmp_directory=ExpandEnvironmentVars("%tmp%")
?"-        58-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (substr($tmp_directory,len($tmp_directory),1) <> "\")
?"-        59-"+@time+"-"+$_debug_name+"- @error @serror"?        $tmp_directory=$tmp_directory+"\"
?"-        60-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        61-"+@time+"-"+$_debug_name+"- @error @serror"?  $tmp_file=$tmp_directory+"disk.tmp"
?"-        62-"+@time+"-"+$_debug_name+"- @error @serror"?  IF exist($tmp_file) = 1
?"-        63-"+@time+"-"+$_debug_name+"- @error @serror"?        DEL $tmp_file
?"-        64-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        65-"+@time+"-"+$_debug_name+"- @error @serror"?  ;Shell out and create a file with a full directory of the personal share
?"-        66-"+@time+"-"+$_debug_name+"- @error @serror"?  SHELL "%comspec% /c dir  W:\ /a /s >>"+$tmp_file
?"-        67-"+@time+"-"+$_debug_name+"- @error @serror"?  ;Parse the file and grab the line with the total size of the personal share...
?"-        68-"+@time+"-"+$_debug_name+"- @error @serror"?  IF OPEN (1,$tmp_file) = 0
?"-        69-"+@time+"-"+$_debug_name+"- @error @serror"?        $size = ""
?"-        70-"+@time+"-"+$_debug_name+"- @error @serror"?        WHILE $size = ""
?"-        71-"+@time+"-"+$_debug_name+"- @error @serror"?              $t = ReadLine(1)
?"-        72-"+@time+"-"+$_debug_name+"- @error @serror"?              $t = Trim($t)
?"-        73-"+@time+"-"+$_debug_name+"- @error @serror"?              IF Left($t,5) = "Total"
?"-        74-"+@time+"-"+$_debug_name+"- @error @serror"?                    $size = ReadLine(1)
?"-        75-"+@time+"-"+$_debug_name+"- @error @serror"?              ENDIF
?"-        76-"+@time+"-"+$_debug_name+"- @error @serror"?        LOOP
?"-        77-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        78-"+@time+"-"+$_debug_name+"- @error @serror"?  ;...and delete the temp file
?"-        79-"+@time+"-"+$_debug_name+"- @error @serror"?  IF CLOSE(1) = 0
?"-        80-"+@time+"-"+$_debug_name+"- @error @serror"?        DEL $tmp_file
?"-        81-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        82-"+@time+"-"+$_debug_name+"- @error @serror"?  ;Clean up the line we stripped from the temp file...
?"-        83-"+@time+"-"+$_debug_name+"- @error @serror"?  $tl = instr($size,"File") + 7
?"-        84-"+@time+"-"+$_debug_name+"- @error @serror"?  $tr = Len($size) - $tl -5
?"-        85-"+@time+"-"+$_debug_name+"- @error @serror"?  $size = Trim(Substr($size,$tl,$tr))
?"-        86-"+@time+"-"+$_debug_name+"- @error @serror"?  $p = InStr($size,Chr(44))
?"-        87-"+@time+"-"+$_debug_name+"- @error @serror"?  WHILE $p > 0
?"-        88-"+@time+"-"+$_debug_name+"- @error @serror"?        $size = Left($size,($p - 1)) + Right($size, Len($size) - $p)
?"-        89-"+@time+"-"+$_debug_name+"- @error @serror"?        $p = InStr($size,Chr(44))
?"-        90-"+@time+"-"+$_debug_name+"- @error @serror"?  LOOP
?"-        91-"+@time+"-"+$_debug_name+"- @error @serror"?  ;...convert from bytes to Mb, and calculate how far (if at all) over quota the user is...
?"-        92-"+@time+"-"+$_debug_name+"- @error @serror"?  $size = Val($size) /1048576
?"-        93-"+@time+"-"+$_debug_name+"- @error @serror"?  $over = $size - 350
?"-        94-"+@time+"-"+$_debug_name+"- @error @serror"?  ;If user is over quota, send them an appropriate message...
?"-        95-"+@time+"-"+$_debug_name+"- @error @serror"?  IF $size > 350
?"-        96-"+@time+"-"+$_debug_name+"- @error @serror"?        IF $size > 350 AND $size < 500
?"-        97-"+@time+"-"+$_debug_name+"- @error @serror"?              $used =         "Your Personal Folder (Drive W:) contains " + $size + " Megabytes of data. " + Chr(13) + Chr(10)
?"-        98-"+@time+"-"+$_debug_name+"- @error @serror"?              $used = $used + "Please delete any files you no longer need to create more free space."
?"-        99-"+@time+"-"+$_debug_name+"- @error @serror"?              $hdr = "Level 1 Disk Usage Warning"
?"-       100-"+@time+"-"+$_debug_name+"- @error @serror"?              $code = 64
?"-       101-"+@time+"-"+$_debug_name+"- @error @serror"?              $level = 1
?"-       102-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       103-"+@time+"-"+$_debug_name+"- @error @serror"?        IF $size => 500 AND $size < 750
?"-       104-"+@time+"-"+$_debug_name+"- @error @serror"?              $used =         "Your Personal Folder (Drive W:) contains " + $size + " Megabytes of data. " + Chr(13) + Chr(10)
?"-       105-"+@time+"-"+$_debug_name+"- @error @serror"?              $used = $used + "Please remove at least "+ $over + " Megabytes from your Personal Folder to free space." + Chr(13) +
?"-       106-"+@time+"-"+$_debug_name+"- @error @serror"?              $hdr = "Level 2 Disk Usage Warning"
?"-       107-"+@time+"-"+$_debug_name+"- @error @serror"?              $code = 48
?"-       108-"+@time+"-"+$_debug_name+"- @error @serror"?              $level = 2
?"-       109-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       110-"+@time+"-"+$_debug_name+"- @error @serror"?        IF $size => 750 AND $size < 1000
?"-       111-"+@time+"-"+$_debug_name+"- @error @serror"?              $used =         "Your Personal Folder (Drive W:) contains " + $size + " Megabytes of data. " + Chr(13) + Chr(10)
?"-       112-"+@time+"-"+$_debug_name+"- @error @serror"?              $used = $used + "This is shared storage space, and you are using far more than your fair share." + Chr(13) + Chr(10)
?"-       113-"+@time+"-"+$_debug_name+"- @error @serror"?              $hdr = "Level 3 Disk Usage Warning"
?"-       114-"+@time+"-"+$_debug_name+"- @error @serror"?              $code = 4112
?"-       115-"+@time+"-"+$_debug_name+"- @error @serror"?              $level = 3
?"-       116-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       117-"+@time+"-"+$_debug_name+"- @error @serror"?        IF $size => 1000
?"-       118-"+@time+"-"+$_debug_name+"- @error @serror"?              $used =         "Your Personal Folder (Drive W:) contains " + $size + " Megabytes of data. " + Chr(13) + Chr(10)
?"-       119-"+@time+"-"+$_debug_name+"- @error @serror"?              $used = $used + "This is shared storage space, and you are using far more than your fair share." + Chr(13) + Chr(10)
?"-       120-"+@time+"-"+$_debug_name+"- @error @serror"?              $hdr = "Level 4 Disk Usage Warning"
?"-       121-"+@time+"-"+$_debug_name+"- @error @serror"?              $code = 4112
?"-       122-"+@time+"-"+$_debug_name+"- @error @serror"?              $level = 4
?"-       123-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       124-"+@time+"-"+$_debug_name+"- @error @serror"?        ;...and write to the log
?"-       125-"+@time+"-"+$_debug_name+"- @error @serror"?        $logline =            "Quota Notification -- Level " + $level + ": " + @monthno + "-" + @mdayno + "-" + @year + ", " + @time
?"-       126-"+@time+"-"+$_debug_name+"- @error @serror"?        $logline = $logline + "  User: " + @userid + " Share Size: "+ $size  + " Megabytes." + Chr(13) + Chr(10) + Chr(13) + Chr(10)
?"-       127-"+@time+"-"+$_debug_name+"- @error @serror"?        IF Open(2,$logfile,5) = 0
?"-       128-"+@time+"-"+$_debug_name+"- @error @serror"?              $x = Writeline(2,$logline)
?"-       129-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       130-"+@time+"-"+$_debug_name+"- @error @serror"?        IF Close(2)
?"-       131-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       132-"+@time+"-"+$_debug_name+"- @error @serror"?        IF  messagebox ($used, $hdr,$code,)
?"-       133-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       134-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       135-"+@time+"-"+$_debug_name+"- @error @serror"?  ;...then, say bye-bye
?"-       136-"+@time+"-"+$_debug_name+"- @error @serror"? :exit
?"-       137-"+@time+"-"+$_debug_name+"- @error @serror"?  QUIT
?"-       138-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       139-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       140-"+@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)
;
;                       fri 12-jul-2002 21:39:53       (kix 4.10 vs 3.18e)
;
;Informative KIXSTRIP:   no errors found (input=163 output=140 skip=23).
;
;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            [19:0:19]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [2:2]
;Informative KIXSTRIP:   21 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 QUIT
;Informative KIXSTRIP:    2 SHELL
;Informative KIXSTRIP:    6 USE
;
;($end)
greetings.
_________________________
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

Top
#24941 - 2002-07-12 11:25 PM Re: Win98SE clients sometimes hang during KIX script
BrianButler Offline
Fresh Scripter

Registered: 2002-07-12
Posts: 8
Loc: Little Rock, AR, USA
VPLOGIN.BAT is for Norton Antivirus Corporate Edition. I think this is pretty much how it came from Norton.

code:
 

@SET LANG=ENU
@SET FILE_SERVER=LR-PRIMARY
@ECHO OFF
REM *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
REM
REM  VPLOGIN.BAT
REM  Description: Client login script file for Windows NT Servers running 
REM               Norton AntiVirus Corporate Edition
REM 
REM *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

rem %0\..\NBPSHPOP +T: \\%FILE_SERVER%\vplogon

if "%OS%" == "Windows_NT" goto WINNT_NBPSHPOP

%0\..\NBPSHPOP +T: \\%FILE_SERVER%\vplogon

goto MOVEON

:WINNT_NBPSHPOP

NBPSHPOP +T: \\%FILE_SERVER%\vplogon

:MOVEON

T:\OSVER
IF ERRORLEVEL 2 GOTO WIN_32
GOTO 16BIT

REM *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

:WIN_32
   T:\VP_Log32 /p=T: 
   GOTO END

REM =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

:16BIT
   T:\VP_Log16 /l=%LANG% /p=T:\ /n=4

REM =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

:END

rem %0\..\NBPSHPOP -T:

if "%OS%" == "Windows_NT" goto WINNT_NBPSHPOP_END

%0\..\NBPSHPOP -T:

goto MOVEON_END

:WINNT_NBPSHPOP_END

NBPSHPOP -T:

:MOVEON_END
_________________________
-- Brian Butler Citadel Radio Little Rock Engineering/MIS Department 501-401-0200

Top
#24942 - 2002-07-12 11:46 PM Re: Win98SE clients sometimes hang during KIX script
ckirby Offline
Fresh Scripter

Registered: 2002-05-14
Posts: 7
Loc: Los Angeles, CA
I've had the same problem when calling another batch file on Win98 clients. The batch file I
was calling ran an executable so I just ripped that executable out and put it directly into my
KiXtart logon script. Something is fishy when KiXtart shells or runs a batch file, that calls
another executable, on Windows 98/98 SE clients.

(MCA: layout correction)

[ 13 July 2002, 02:20: Message edited by: MCA ]
Top
#24943 - 2002-07-13 02:24 AM Re: Win98SE clients sometimes hang during KIX script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear BrianButler,

Try our version for one of more users and take a close look at the c:\temp file, when
your script hangs.
The information will not be overwritten.
The file c:\temp will show
- what was the last line executed?
- what was the time of execution?
- what was the error status at that moment?
greetings.

[ 13 July 2002, 02:27: Message edited by: MCA ]
_________________________
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

Top
#24944 - 2002-07-13 02:27 AM Re: Win98SE clients sometimes hang during KIX script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear ckirby,

First some questions:
- what kixtart version running?
- where are the kixtart files installed?
- are you running the KXRPC file?
- how are you calling KIX32? direct or by BATch file.
- did you run it also after processing by our kixstrip tool with the /Debug option.

When you want a faster response please post your script on the board.
greetings.
_________________________
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

Top
#24945 - 2002-07-13 10:29 PM Re: Win98SE clients sometimes hang during KIX script
ckirby Offline
Fresh Scripter

Registered: 2002-05-14
Posts: 7
Loc: Los Angeles, CA
MCA,

I'm good.. the script is already in production and working fine without calling a batch file.
I had the problem with 4.02 and haven't tested it with 4.10. I'm calling KiXtart from a batch file
and all the KiXtart files are in a \netlogon\kixtart folder. I'm not running KXRPC
(didn't need it). Never played with the debug when troubleshooting. I'm pretty sure this is
easily duplicated.

(MCA: layout correction)

[ 13 July 2002, 22:48: Message edited by: MCA ]
Top
#24946 - 2002-07-13 11:03 PM Re: Win98SE clients sometimes hang during KIX script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

Good to hear that it is working. For the other users it can possible hard to understand "what
is the differences between 4.02 and 4.10 release".
Ruud searches in another way to the kixtart binaries. Specially very useful when the
kixtart binaries aren't located in one of the
directories specified by PATH value.
greetings.
_________________________
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

Top
#24947 - 2002-07-14 12:14 AM Re: Win98SE clients sometimes hang during KIX script
ckirby Offline
Fresh Scripter

Registered: 2002-05-14
Posts: 7
Loc: Los Angeles, CA
Opps.. i read my reply and I mean't that I'm fine with the workaround that I found and not I'm good as "I'm good". [Smile]
Top
#24948 - 2002-07-15 06:49 PM Re: Win98SE clients sometimes hang during KIX script
BrianButler Offline
Fresh Scripter

Registered: 2002-07-12
Posts: 8
Loc: Little Rock, AR, USA
Need some more help.

I'm trying to get the script as provided by MCA off
the web bulletin board into a normal file so I can run it.

I have tried everything...saving the web page as text, cutting and pasting...
unfortunately Internet Explorer is destroying the formatting,
and haphazardly running lines together, etc.
It's totally unusable and the editing would be intense.

I know you guys are doing this all the time, but how? :-)
I see no FAQ entry...

Thanks for everything!

[ 15 July 2002, 18:51: Message edited by: BrianButler ]
_________________________
-- Brian Butler Citadel Radio Little Rock Engineering/MIS Department 501-401-0200

Top
#24949 - 2002-07-15 06:54 PM Re: Win98SE clients sometimes hang during KIX script
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
Paste into WordPad and save as a text file. You will loose the formatting, though.
_________________________
There are two types of vessels, submarines and targets.

Top
#24950 - 2002-07-15 07:35 PM Re: Win98SE clients sometimes hang during KIX script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear Brian,

Please send me your mail address and we will send it to you.
greetings.
_________________________
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

Top
Page 1 of 2 12>


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 1046 anonymous users online.
details
Newest Members
fgarcia, Viginette, ManuvdWielNL, Sir_Barrington, batdk82
17889 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.059 seconds in which 0.019 seconds were spent on a total of 13 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org