Slow Login Script - KiXtart.org

You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » Slow Login Script
Page 1 of 1
Topic Options
#131271 - 2004-12-15 01:16 PM
Re: Slow Login Script
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

Another way is automatic debugging during logging without requirement of user intervention.
See f.e. link Debugging script without user input. also during logging on. the advanced way

We prepare your code with our program kixstrip.
Our call was: kistrip input.kix output.kix /block_check /debug
After running see the file %tmp%\kixdebug.txt
Code:

            ;CLS
             $_debug_kix_info=Ltrim(Rtrim(Substr(@kix,InStr(@kix,'.')-1,Len(@kix)-InStr(@kix,'.')+2)))
             IF (InStr("-3.0x-3.1x-3.2x-3.3x-","-"+Substr($_debug_kix_info,1,3)+"x-") <> 0)
               IF MessageBox("sorry, your kixtart "+$_debug_kix_info+" release is too old."+" at least use kixtart 3.4x release."+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 "+$_debug_kix_info+"/kixstrip 4.03e script starting"
             IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
               IF (Len(@scriptname) <> 0)
                 " ("+Lcase(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF ("$_debug_already_starting" <> "yes")
               ? "-curdir:         "+Lcase(@curdir)
               ? "-scriptdir:      "+Lcase(@scriptdir)
               IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,2)) >= 422)
                 ? "-scriptexe:      "+Lcase(@scriptexe)+" (pid "+@pid+")"
               ENDIF
               IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) >= 41)
                 ? "-scriptname:     "+Lcase(@scriptname)
               ENDIF
               ? "-startdir:       "+Lcase(@startdir)
               ? "-"
               ? "-userid/wuserid: "+Lcase(@userid)+"/"+Lcase(@wuserid)
               ? "-user priv:      "+Lcase(@priv)
               IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
                 ? "-version:        inwin="+@inwin+"/dos="+@dos+"/productsuite="+@productsuite+"/producttype="+@producttype+"/csd="+Ltrim(Rtrim(@csd))
               ELSE
                 ? "-version:        inwin="+@inwin+"/dos="+@dos
               ENDIF
               ? "-"
               IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) >= 41)
                 ? "-"+@cpu+" (memory "+Val(MemorySize()+1)+" MB)"
                 ? "-"
               ENDIF
             ENDIF

             $_debug_temp_name="" ; -format: yyyymmdd_hhmmss.sss_999 scriptname-
             IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) >= 36)
               IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
                 $_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 (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) >= 41)
                 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 (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) < 36)
               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"?  ;Script can be terminated without Logoff
?"-         2-"+@time+"-"+$_debug_name+"- @error @serror"?  BREAK ON
?"-         3-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-         4-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Determine time of day
?"-         5-"+@time+"-"+$_debug_name+"- @error @serror"?  $time = @time
?"-         6-"+@time+"-"+$_debug_name+"- @error @serror"?  SELECT
?"-         7-"+@time+"-"+$_debug_name+"- @error @serror"?  CASE 
                                                                   $time > "00:000:01" AND $time < "12:00:00"
?"-         8-"+@time+"-"+$_debug_name+"- @error @serror"?        $tod = "Good morning"
?"-         9-"+@time+"-"+$_debug_name+"- @error @serror"?  CASE 
                                                                   $time > "11:59:59" AND $time < "18:00:00"
?"-        10-"+@time+"-"+$_debug_name+"- @error @serror"?        $tod = "Good afternoon"
?"-        11-"+@time+"-"+$_debug_name+"- @error @serror"?  CASE 
                                                                   $time > "17:59:59" AND $time < "24:00:00"
?"-        12-"+@time+"-"+$_debug_name+"- @error @serror"?        $tod = "Good evening"
?"-        13-"+@time+"-"+$_debug_name+"- @error @serror"?  CASE 
                                                                   1
?"-        14-"+@time+"-"+$_debug_name+"- @error @serror"?        $tod = "Welcome"
?"-        15-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDSELECT
?"-        16-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        17-"+@time+"-"+$_debug_name+"- @error @serror"?  ;Add Intranet-CH to the trusted sites in IE
?"-        18-"+@time+"-"+$_debug_name+"- @error @serror"?  AddKey ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\intranet-ch.acn")
?"-        19-"+@time+"-"+$_debug_name+"- @error @serror"?  WriteValue ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\intranet-ch.acn","HTTP","00000001",REG_DWORD)
?"-        20-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        21-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-CH")    ;common netdrives CH
?"-        22-"+@time+"-"+$_debug_name+"- @error @serror"?        USE P: "\\ACN041SQL01\ACNPOOL"
?"-        23-"+@time+"-"+$_debug_name+"- @error @serror"?        USE X: "\\ACN041SQL01\APPL_GER"
?"-        24-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        25-"+@time+"-"+$_debug_name+"- @error @serror"?
?"-        26-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-GS")    ;Global Services
?"-        27-"+@time+"-"+$_debug_name+"- @error @serror"?        USE F: "\\ACN041EPC02\epc_cft"
?"-        28-"+@time+"-"+$_debug_name+"- @error @serror"?        USE G: "\\ACN041EPC02\EPC_FTP"
?"-        29-"+@time+"-"+$_debug_name+"- @error @serror"?        USE I: "\\ACN041EPC02\data"
?"-        30-"+@time+"-"+$_debug_name+"- @error @serror"?        USE P: "\\ACN041EPC02\epc_pub"
?"-        31-"+@time+"-"+$_debug_name+"- @error @serror"?        USE T: "\\ACN041EPC02\PROD1"
?"-        32-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041EPC02\@userid"
?"-        33-"+@time+"-"+$_debug_name+"- @error @serror"?        USE X: "\\ACN041EPC02\appl"
?"-        34-"+@time+"-"+$_debug_name+"- @error @serror"?        ADDPRINTERCONNECTION ("\\ACN041LUCRAS01\EPC_HP_1")
?"-        35-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        36-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        37-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-GS_DesignGroup")  ;Global Services IDB Design and Maintenance
?"-        38-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\ACN041EPC02\gis_pub"
?"-        39-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        40-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        41-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-EGCC")    ;IT EGCC
?"-        42-"+@time+"-"+$_debug_name+"- @error @serror"?        USE J: "\\ACN041EPC02\inf_pub"
?"-        43-"+@time+"-"+$_debug_name+"- @error @serror"?        USE P: "\\ACN041EPC02\esdg_pub"
?"-        44-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\acn041EPC02\cmc"
?"-        45-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041EPC02\@userid"
?"-        46-"+@time+"-"+$_debug_name+"- @error @serror"?        USE X: "\\ACN041EPC02\appl"
?"-        47-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        48-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        49-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-OPS")    ;IT OPERATIONS
?"-        50-"+@time+"-"+$_debug_name+"- @error @serror"?        USE I: "\\ACN041LUCAPP02\ACN_INF"
?"-        51-"+@time+"-"+$_debug_name+"- @error @serror"?        USE J: "\\ACN041LUCAPP02\nis_inf"
?"-        52-"+@time+"-"+$_debug_name+"- @error @serror"?        USE O: "\\ACN041LUCAPP02\MFINPUT"
?"-        53-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\ACN041LUCFSV01\OP"
?"-        54-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-        55-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        56-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        57-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-MV")    ;MARKETING & SALES
?"-        58-"+@time+"-"+$_debug_name+"- @error @serror"?        USE I: "\\ACN041LUCAPP02\ACN_INF"
?"-        59-"+@time+"-"+$_debug_name+"- @error @serror"?        USE J: "\\ACN041LUCAPP02\nis_inf"
?"-        60-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\ACN041LUCFSV01\MV"
?"-        61-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-        62-"+@time+"-"+$_debug_name+"- @error @serror"?        ADDPRINTERCONNECTION ("\\ACN041LUCRAS01\MV_CAN_1")
?"-        63-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        64-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        65-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-FINANCE")   ;FINANCE
?"-        66-"+@time+"-"+$_debug_name+"- @error @serror"?        USE m: "\\acn041sql01\abacus"
?"-        67-"+@time+"-"+$_debug_name+"- @error @serror"?        USE N: "\\ACN041SQL01\ABACUSN"    ;Abacus Neu (Lohn)
?"-        68-"+@time+"-"+$_debug_name+"- @error @serror"?        USE q: "\\acn041sql01\finance"
?"-        69-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041SQL01\@userid"
?"-        70-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        71-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        72-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-DSS")    ;DECISION SUPPORT SERVICES
?"-        73-"+@time+"-"+$_debug_name+"- @error @serror"?        USE i: "\\ACN041LUCAPP02\ACN_INF"
?"-        74-"+@time+"-"+$_debug_name+"- @error @serror"?        USE j: "\\acn041LUCAPP02\nis_inf"
?"-        75-"+@time+"-"+$_debug_name+"- @error @serror"?        USE k: "\\acn041LUCAPP02\nis_cli"
?"-        76-"+@time+"-"+$_debug_name+"- @error @serror"?        USE q: "\\acn041LUCFSV01\DSS"
?"-        77-"+@time+"-"+$_debug_name+"- @error @serror"?        USE s: "\\acn041LUCFSV01\DSS_SEKR"
?"-        78-"+@time+"-"+$_debug_name+"- @error @serror"?        USE t: "\\acn041LUCFSV01\TRN"
?"-        79-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-        80-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        81-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        82-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-ITSRV")   ;IT Services
?"-        83-"+@time+"-"+$_debug_name+"- @error @serror"?        USE T: "\\ACN041LUCWD01\INSTALL"
?"-        84-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        85-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        86-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-MGT")    ;Country Management
?"-        87-"+@time+"-"+$_debug_name+"- @error @serror"?        USE S: "\\acn041lucfsv01\CountryM"
?"-        88-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        89-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        90-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-DEV")    ;IT Development
?"-        91-"+@time+"-"+$_debug_name+"- @error @serror"?        USE K: "\\ACN041LUCAPP02\causal"
?"-        92-"+@time+"-"+$_debug_name+"- @error @serror"?        USE N: "\\acn041hht01\hht"
?"-        93-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        94-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        95-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-STATRES")   ;MEASUREMENT SCIENCE
?"-        96-"+@time+"-"+$_debug_name+"- @error @serror"?        USE I: "\\ACN041LUCAPP02\ACN_INF"
?"-        97-"+@time+"-"+$_debug_name+"- @error @serror"?        USE J: "\\ACN041LUCAPP02\nis_inf"
?"-        98-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\ACN041LUCFSV01\OP"
?"-        99-"+@time+"-"+$_debug_name+"- @error @serror"?        USE R: "\\acn041sql01\roebi"
?"-       100-"+@time+"-"+$_debug_name+"- @error @serror"?        USE S: "\\acn041LUCAPP02\SR"
?"-       101-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-       102-"+@time+"-"+$_debug_name+"- @error @serror"?
?"-       103-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       104-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       105-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-DC")    ;DIS Spec (OE, UL)
?"-       106-"+@time+"-"+$_debug_name+"- @error @serror"?        USE G: "\\ACN041OPS01\HOST"
?"-       107-"+@time+"-"+$_debug_name+"- @error @serror"?        USE R: "\\ACN041SQL01\roebi"
?"-       108-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       109-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       110-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-DIS")    ;DATA INPUT SERVICES
?"-       111-"+@time+"-"+$_debug_name+"- @error @serror"?        USE H: "\\acn041SQL01\dosapps"
?"-       112-"+@time+"-"+$_debug_name+"- @error @serror"?        USE K: "\\ACN041LUCAPP02\causal"
?"-       113-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       114-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       115-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-HS")    ;HOMESCAN MARKETING
?"-       116-"+@time+"-"+$_debug_name+"- @error @serror"?        USE I: "\\ACN041LUCAPP02\ACN_INF"
?"-       117-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\ACN041lucfsv01\MV"
?"-       118-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041lucfsv01\@userid"
?"-       119-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       120-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       121-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-HR")    ;HUMAN RESOURCES
?"-       122-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\acn041lucfsv01\ADM"
?"-       123-"+@time+"-"+$_debug_name+"- @error @serror"?        USE M: "\\acn041sql01\abacus"
?"-       124-"+@time+"-"+$_debug_name+"- @error @serror"?        USE N: "\\acn041LUCFSV01\hr"
?"-       125-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-       126-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       127-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       128-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-HSOP")    ;HOMESCAN OPERATIONS
?"-       129-"+@time+"-"+$_debug_name+"- @error @serror"?        USE N: "\\chhsntcs04\chhsntcs$"
?"-       130-"+@time+"-"+$_debug_name+"- @error @serror"?        USE R: "\\chhsntcs05\chhsntcs$"
?"-       131-"+@time+"-"+$_debug_name+"- @error @serror"?        USE M: "\\ACN041LUCAPP02\homescan"
?"-       132-"+@time+"-"+$_debug_name+"- @error @serror"?        USE O: "\\ACN041LUCAPP02\MFINPUT"
?"-       133-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\acn041LUCFSV01\OP"
?"-       134-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-       135-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       136-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       137-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-EMRE")    ;ADMINISTATION, TELEPHONE, REPRO
?"-       138-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\acn041lucfsv01\ADM"
?"-       139-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-       140-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       141-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       142-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-TC")    ;IT OPERATIONS TC
?"-       143-"+@time+"-"+$_debug_name+"- @error @serror"?        USE H: "\\acn041acn01\dosapps"
?"-       144-"+@time+"-"+$_debug_name+"- @error @serror"?        USE I: "\\ACN041LUCAPP02\ACN_INF"
?"-       145-"+@time+"-"+$_debug_name+"- @error @serror"?        USE J: "\\acn041LUCAPP02\nis_inf"
?"-       146-"+@time+"-"+$_debug_name+"- @error @serror"?        USE O: "\\ACN041LUCAPP02\MFINPUT"
?"-       147-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\acn041LUCFSV01\OP"
?"-       148-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-       149-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       150-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       151-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-TRADE")   ;RETAILER SERVICES
?"-       152-"+@time+"-"+$_debug_name+"- @error @serror"?        USE I: "\\ACN041LUCAPP02\ACN_INF"
?"-       153-"+@time+"-"+$_debug_name+"- @error @serror"?        USE J: "\\acn041LUCAPP02\nis_inf"
?"-       154-"+@time+"-"+$_debug_name+"- @error @serror"?        USE Q: "\\ACN041LUCFSV01\MV"
?"-       155-"+@time+"-"+$_debug_name+"- @error @serror"?        USE R: "\\acn041sql01\roebi"
?"-       156-"+@time+"-"+$_debug_name+"- @error @serror"?        USE S: "\\ACN041LUCFSV01\RS"
?"-       157-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-       158-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       159-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       160-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-MARKETING")   ;MARKETING DOCUMENTS
?"-       161-"+@time+"-"+$_debug_name+"- @error @serror"?        USE H: "\\acn041lucfsv01\Marketing"
?"-       162-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       163-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       164-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-MS")    ;MERCHANDISING SERVICES
?"-       165-"+@time+"-"+$_debug_name+"- @error @serror"?        USE i: "\\ACN041LUCAPP02\ACN_INF"
?"-       166-"+@time+"-"+$_debug_name+"- @error @serror"?        USE j: "\\acn041LUCAPP02\nis_inf"
?"-       167-"+@time+"-"+$_debug_name+"- @error @serror"?        USE k: "\\acn041LUCAPP02\nis_cli"
?"-       168-"+@time+"-"+$_debug_name+"- @error @serror"?        USE q: "\\acn041LUCFSV01\DSS"
?"-       169-"+@time+"-"+$_debug_name+"- @error @serror"?        USE r: "\\ACN041LUCFSV01\DSS_SEKR"
?"-       170-"+@time+"-"+$_debug_name+"- @error @serror"?        USE S: "\\ACN041LUCFSV01\SPACEMAN"
?"-       171-"+@time+"-"+$_debug_name+"- @error @serror"?        USE t: "\\acn041LUCFSV01\TRN"
?"-       172-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-       173-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       174-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       175-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-TRAINING")   ;TRAINING
?"-       176-"+@time+"-"+$_debug_name+"- @error @serror"?        USE T: "\\acn041LUCFSV01\TRN"
?"-       177-"+@time+"-"+$_debug_name+"- @error @serror"?        USE x: "\\acn041sql01\appl_ger"
?"-       178-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-       179-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       180-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       181-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-INTRANET")   ;Intranet
?"-       182-"+@time+"-"+$_debug_name+"- @error @serror"?        USE y: "\\acn041LUCAPP02\P_M_CH"
?"-       183-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       184-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       185-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-LEGIC")   ;Futterautomat
?"-       186-"+@time+"-"+$_debug_name+"- @error @serror"?        USE O: "\\ACN041SQL01\LEGIC"
?"-       187-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       188-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       189-"+@time+"-"+$_debug_name+"- @error @serror"?  IF ingroup("Enterprise\041LUC-LS-CHAZUBI")   ;Azubi Home Drive
?"-       190-"+@time+"-"+$_debug_name+"- @error @serror"?        USE U: "\\ACN041LUCFSV01\@userid"
?"-       191-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       192-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       193-"+@time+"-"+$_debug_name+"- @error @serror"?  ; Determine if user is connected via RAS or VPN
?"-       194-"+@time+"-"+$_debug_name+"- @error @serror"?  IF @ras=0 AND INSTR (@ipaddress0,"10. 67.16")=2
?"-       195-"+@time+"-"+$_debug_name+"- @error @serror"?        IF EXIST ("%ProgramFiles%\NETINST\NIAGNT32.EXE")
?"-       196-"+@time+"-"+$_debug_name+"- @error @serror"?              SHELL "%ProgramFiles%\NetInst\niagnt32.exe"
?"-       197-"+@time+"-"+$_debug_name+"- @error @serror"?              ;SHELL "@LDRIVE\ACN041\RUN_OCS.BAT"
?"-       198-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       199-"+@time+"-"+$_debug_name+"- @error @serror"?              ;SHELL "@LDRIVE\ACN041\RUN_OCS.BAT"
?"-       200-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       201-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       202-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       203-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       204-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR g+/n
?"-       205-"+@time+"-"+$_debug_name+"- @error @serror"?  CLS
?"-       206-"+@time+"-"+$_debug_name+"- @error @serror"?  SLEEP 2
?"-       207-"+@time+"-"+$_debug_name+"- @error @serror"?  ?"    The actual Info for your session    "
?"-       208-"+@time+"-"+$_debug_name+"- @error @serror"?  AT (3,20) $TOD + " " + @fullname
?"-       209-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR c+/n
?"-       210-"+@time+"-"+$_debug_name+"- @error @serror"?  at (6,20) "Userid      :"
?"-       211-"+@time+"-"+$_debug_name+"- @error @serror"?  at (7,20) "Computername:"
?"-       212-"+@time+"-"+$_debug_name+"- @error @serror"?  at (8,20) "Domain      :"
?"-       213-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR c+/n
?"-       214-"+@time+"-"+$_debug_name+"- @error @serror"?  at (9,32) @lserver
?"-       215-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR c+/n
?"-       216-"+@time+"-"+$_debug_name+"- @error @serror"?  at (9,20) "Logon Server: "
?"-       217-"+@time+"-"+$_debug_name+"- @error @serror"?  at (10,20) "MAC Addr    :"
?"-       218-"+@time+"-"+$_debug_name+"- @error @serror"?  at (11,20) "Datum       :"
?"-       219-"+@time+"-"+$_debug_name+"- @error @serror"?  at (12,20) "Time        :"
?"-       220-"+@time+"-"+$_debug_name+"- @error @serror"?  at (13,20) "NT Release  :"
?"-       221-"+@time+"-"+$_debug_name+"- @error @serror"?  at (14,20) "IP-Adresse  :"
?"-       222-"+@time+"-"+$_debug_name+"- @error @serror"?  ;at (15,20) "Diskspace   :"
?"-       223-"+@time+"-"+$_debug_name+"- @error @serror"?  ; sleep 1
?"-       224-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR c+/n
?"-       225-"+@time+"-"+$_debug_name+"- @error @serror"?  at (6,34) @userid
?"-       226-"+@time+"-"+$_debug_name+"- @error @serror"?  at (7,34) @wksta
?"-       227-"+@time+"-"+$_debug_name+"- @error @serror"?  at (8,34) @domain
?"-       228-"+@time+"-"+$_debug_name+"- @error @serror"?  at (10,34) @address
?"-       229-"+@time+"-"+$_debug_name+"- @error @serror"?  at (11,34) @date
?"-       230-"+@time+"-"+$_debug_name+"- @error @serror"?  at (12,34) @time
?"-       231-"+@time+"-"+$_debug_name+"- @error @serror"?  at (13,34) @dos
?"-       232-"+@time+"-"+$_debug_name+"- @error @serror"?  at (14,33) @ipaddress0
?"-       233-"+@time+"-"+$_debug_name+"- @error @serror"?  ;at (15,34) "$ResultMB" + " Mb"
?"-       234-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       235-"+@time+"-"+$_debug_name+"- @error @serror"?  SLEEP 5

?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"
             ? "-"
             ? "-"+Lcase(@day)+" "+@date+" "+@time+"- kixtart "+$_debug_kix_info+"/kixstrip 4.03e script ending"
             IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
               IF (Len(@scriptname) <> 0)
                 " ("+Lcase(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF RedirectOutput("CON")
             ENDIF
             COLOR c+/n
             ?
             ? "Informative KIX "+$_debug_kix_info+":"+" debug info see "+Chr(34)+$_debug_file+Chr(34)
             IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
               IF (Len(@scriptname) <> 0)
                 " ("+Lcase(@scriptname)+")"
               ENDIF
             ENDIF
             IF RedirectOutput($_debug_file)
             ENDIF
;($begin)
;
;            kixstrip 4.03e - kixtart 4.22
;
;                       wed 15-dec-2004 13:04:20
;
;Informative KIXSTRIP:   no errors found (input=235 output=235 skip=0).
;
;Informative KIXSTRIP:   29 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 BREAK
;Informative KIXSTRIP:    1 SHELL
;Informative KIXSTRIP:    2 SLEEP
;Informative KIXSTRIP:   91 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
Page 1 of 1
Previous Topic View All Topics
Index Next Topic
Entire topic
Subject	Posted by	Posted
Slow Login Script	Anonymous	2004-12-14 09:50 AM
Re: Slow Login Script	Lonkero	2004-12-14 10:59 AM
Re: Slow Login Script	Jochen	2004-12-14 10:10 AM
Re: Slow Login Script	Anonymous	2004-12-14 11:04 AM
Re: Slow Login Script	Lonkero	2004-12-14 11:41 AM
Re: Slow Login Script	Anonymous	2004-12-14 11:55 AM
Re: Slow Login Script	Anonymous	2004-12-14 01:58 PM
Re: Slow Login Script	Howard Bullock	2004-12-14 02:24 PM
Re: Slow Login Script	MCA	2004-12-15 01:16 PM
Re: Slow Login Script	Anonymous	2004-12-15 01:49 PM
Re: Slow Login Script	Anonymous	2004-12-16 08:53 AM
Re: Slow Login Script	Lonkero	2004-12-16 03:15 PM
Re: Slow Login Script	Lonkero	2004-12-16 03:16 PM
Re: Slow Login Script	MCA	2004-12-17 02:58 PM
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
Hop to:
Shout Box
Search the board with:
superb Board Search
or try with google:

	Web kixtart.org