You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » Slow Login Script
Register User       Forum List       Calendar       FAQ
Page 1 of 1 1
Topic Options
#131263 - 2004-12-14 09:50 AM Slow Login Script
Anonymous
Unregistered


Hi all,

I've got a strange behaviour of my login script. Sometimes the script runs very fast (5sec), sometimes it takes up to 3 minutes. The problem seems to be the "ingroup" statements. I'm using Kix Version 4.22.0.0 I'm having about 22 ingroup queries. Can anyone help me?
Top
#131264 - 2004-12-14 10:10 AM Re: Slow Login Script
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Well,

maybe you should post your code then...
Additionally a bit more information on your Environment would be indicated.
_________________________



Top
#131265 - 2004-12-14 10:59 AM Re: Slow Login Script
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
ja, I bet you have xp machines there
_________________________
!

download KiXnet

Top
#131266 - 2004-12-14 11:04 AM Re: Slow Login Script
Anonymous
Unregistered


Here are more details about the enviroment:

Two Windows 2003 Std Domain Controllers LAN(100MBit)
Clients Windows XP SP2 (100MBit)
The Script:
Code:

;Script can be terminated without Logoff
Break On

; Determine time of day
$TIME = @TIME
SELECT
  CASE $TIME > "00:000:01" AND $TIME < "12:00:00"
    $TOD = "Good morning"
  CASE $TIME > "11:59:59" AND $TIME < "18:00:00"
    $TOD = "Good afternoon"
  CASE $TIME > "17:59:59" AND $TIME < "24:00:00"
    $TOD = "Good evening"
  CASE 1
    $TOD = "Welcome"
ENDSELECT

;Add Intranet-CH to the trusted sites in IE
AddKey ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\intranet-ch.acn")
WriteValue ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\intranet-ch.acn","HTTP","00000001",REG_DWORD)

if ingroup("Enterprise\041LUC-LS-CH")				;common netdrives CH 
	use P: "\\ACN041SQL01\ACNPOOL"
	use X: "\\ACN041SQL01\APPL_GER"
endif
	
if ingroup("Enterprise\041LUC-LS-GS")				;Global Services	
	use F: "\\ACN041EPC02\epc_cft"
	use G: "\\ACN041EPC02\EPC_FTP"
	use I: "\\ACN041EPC02\data"
	use P: "\\ACN041EPC02\epc_pub"
	use T: "\\ACN041EPC02\PROD1"
	use U: "\\ACN041EPC02\@userid"
	use X: "\\ACN041EPC02\appl"
	ADDPRINTERCONNECTION ("\\ACN041LUCRAS01\EPC_HP_1") 
endif

if ingroup("Enterprise\041LUC-LS-GS_DesignGroup")		;Global Services IDB Design and Maintenance
	use Q: "\\ACN041EPC02\gis_pub"
endif

if ingroup("Enterprise\041LUC-LS-EGCC")				;IT EGCC	
	use J: "\\ACN041EPC02\inf_pub"
	use P: "\\ACN041EPC02\esdg_pub"
	use Q: "\\acn041EPC02\cmc"
	use U: "\\ACN041EPC02\@userid"
	use X: "\\ACN041EPC02\appl"
endif

if ingroup("Enterprise\041LUC-LS-OPS")				;IT OPERATIONS	
	use I: "\\ACN041LUCAPP02\ACN_INF"
	use J: "\\ACN041LUCAPP02\nis_inf"
	use O: "\\ACN041LUCAPP02\MFINPUT"
	use Q: "\\ACN041LUCFSV01\OP"
	USE U: "\\ACN041LUCFSV01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-MV")				;MARKETING & SALES	
	use I: "\\ACN041LUCAPP02\ACN_INF"
	use J: "\\ACN041LUCAPP02\nis_inf"
	use Q: "\\ACN041LUCFSV01\MV"
	USE U: "\\ACN041LUCFSV01\@userid"
	ADDPRINTERCONNECTION ("\\ACN041LUCRAS01\MV_CAN_1")
endif

if ingroup("Enterprise\041LUC-LS-FINANCE")			;FINANCE	
	use m: "\\acn041sql01\abacus"
	use N: "\\ACN041SQL01\ABACUSN"				;Abacus Neu (Lohn)
	use q: "\\acn041sql01\finance"
	USE U: "\\ACN041SQL01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-DSS")				;DECISION SUPPORT SERVICES	
	use i: "\\ACN041LUCAPP02\ACN_INF"
	use j: "\\acn041LUCAPP02\nis_inf"
	use k: "\\acn041LUCAPP02\nis_cli"
	use q: "\\acn041LUCFSV01\DSS"
	use s: "\\acn041LUCFSV01\DSS_SEKR"
	use t: "\\acn041LUCFSV01\TRN"
	USE U: "\\ACN041LUCFSV01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-ITSRV")			;IT Services
	use T: "\\ACN041LUCWD01\INSTALL"
endif

if ingroup("Enterprise\041LUC-LS-MGT")				;Country Management
	use S: "\\acn041lucfsv01\CountryM"
endif

if ingroup("Enterprise\041LUC-LS-DEV")				;IT Development	
	use K: "\\ACN041LUCAPP02\causal"
	use N: "\\acn041hht01\hht"
endif

if ingroup("Enterprise\041LUC-LS-STATRES")			;MEASUREMENT SCIENCE	
	use I: "\\ACN041LUCAPP02\ACN_INF"
	use J: "\\ACN041LUCAPP02\nis_inf"
	use Q: "\\ACN041LUCFSV01\OP"
	use R: "\\acn041sql01\roebi"
	use S: "\\acn041LUCAPP02\SR"
	USE U: "\\ACN041LUCFSV01\@userid"
	
endif

if ingroup("Enterprise\041LUC-LS-DC")				;DIS Spec (OE, UL)
	use G: "\\ACN041OPS01\HOST"
	use R: "\\ACN041SQL01\roebi"
endif

if ingroup("Enterprise\041LUC-LS-DIS")				;DATA INPUT SERVICES	
	use H: "\\acn041SQL01\dosapps"
	use K: "\\ACN041LUCAPP02\causal"
endif

if ingroup("Enterprise\041LUC-LS-HS")				;HOMESCAN MARKETING	
	use I: "\\ACN041LUCAPP02\ACN_INF"
	use Q: "\\ACN041lucfsv01\MV"
	use U: "\\ACN041lucfsv01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-HR")				;HUMAN RESOURCES	
	use Q: "\\acn041lucfsv01\ADM"
	use M: "\\acn041sql01\abacus"
	use N: "\\acn041LUCFSV01\hr"
	use U: "\\ACN041LUCFSV01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-HSOP")				;HOMESCAN OPERATIONS	
	use N: "\\chhsntcs04\chhsntcs$"
	use R: "\\chhsntcs05\chhsntcs$"
	use M: "\\ACN041LUCAPP02\homescan"
	use O: "\\ACN041LUCAPP02\MFINPUT"
	use Q: "\\acn041LUCFSV01\OP"
	USE U: "\\ACN041LUCFSV01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-EMRE")				;ADMINISTATION, TELEPHONE, REPRO	
	use Q: "\\acn041lucfsv01\ADM"
	USE U: "\\ACN041LUCFSV01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-TC")				;IT OPERATIONS TC	
	use H: "\\acn041acn01\dosapps"
	use I: "\\ACN041LUCAPP02\ACN_INF"
	use J: "\\acn041LUCAPP02\nis_inf"
	use O: "\\ACN041LUCAPP02\MFINPUT"
	use Q: "\\acn041LUCFSV01\OP"
	USE U: "\\ACN041LUCFSV01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-TRADE")			;RETAILER SERVICES	
	use I: "\\ACN041LUCAPP02\ACN_INF"
	use J: "\\acn041LUCAPP02\nis_inf"
	use Q: "\\ACN041LUCFSV01\MV"
	use R: "\\acn041sql01\roebi"
	use S: "\\ACN041LUCFSV01\RS"
	USE U: "\\ACN041LUCFSV01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-MARKETING")			;MARKETING DOCUMENTS	
	use H: "\\acn041lucfsv01\Marketing"
endif

if ingroup("Enterprise\041LUC-LS-MS")				;MERCHANDISING SERVICES	
	use i: "\\ACN041LUCAPP02\ACN_INF"
	use j: "\\acn041LUCAPP02\nis_inf"
	use k: "\\acn041LUCAPP02\nis_cli"
	use q: "\\acn041LUCFSV01\DSS"
	use r: "\\ACN041LUCFSV01\DSS_SEKR"
	use S: "\\ACN041LUCFSV01\SPACEMAN"
	use t: "\\acn041LUCFSV01\TRN"
	USE U: "\\ACN041LUCFSV01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-TRAINING")			;TRAINING
	use T: "\\acn041LUCFSV01\TRN"
	use x: "\\acn041sql01\appl_ger"
	USE U: "\\ACN041LUCFSV01\@userid"
endif

if ingroup("Enterprise\041LUC-LS-INTRANET")			;Intranet
	use y: "\\acn041LUCAPP02\P_M_CH"
endif

if ingroup("Enterprise\041LUC-LS-LEGIC")			;Futterautomat
	use O: "\\ACN041SQL01\LEGIC"
endif

if ingroup("Enterprise\041LUC-LS-CHAZUBI")			;Azubi Home Drive
	use U: "\\ACN041LUCFSV01\@userid"
endif

; Determine if user is connected via RAS or VPN
IF @RAS=0 AND INSTR (@IPADDRESS0,"10. 67.16")=2
	IF EXIST ("%ProgramFiles%\NETINST\NIAGNT32.EXE") 
	 SHELL "%ProgramFiles%\NetInst\niagnt32.exe"
	 ;SHELL "@LDRIVE\ACN041\RUN_OCS.BAT"
	ELSE
	 ;SHELL "@LDRIVE\ACN041\RUN_OCS.BAT"	
	ENDIF
Endif


COLOR g+/n
cls
sleep 2
?"    The actual Info for your session    "
AT (3,20) $TOD + " " + @FULLNAME
color c+/n
at (6,20) "Userid      :"
at (7,20) "Computername:"
at (8,20) "Domain      :"
color c+/n
at (9,32) @lserver
color c+/n
at (9,20) "Logon Server: "
at (10,20) "MAC Addr    :"
at (11,20) "Datum       :"
at (12,20) "Time        :"
at (13,20) "NT Release  :"
at (14,20) "IP-Adresse  :"
;at (15,20) "Diskspace   :"
; sleep 1
color c+/n
at (6,34) @userid
at (7,34) @wksta
at (8,34) @domain
at (10,34) @Address
at (11,34) @date
at (12,34) @time
at (13,34) @dos
at (14,33) @IPADDRESS0
;at (15,34) "$ResultMB" + " Mb"

sleep 5


Many thanks for your help
Roger
Top
#131267 - 2004-12-14 11:41 AM Re: Slow Login Script
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
hahaa!
lets see...
looking at logonscript what was that switch...
Code:
function DisableXPfastlogonOptimization()

 if @dos=>5.1

  $=writevalue("HKCU\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","SyncForegroundPolicy",1,"REG_DWORD")

 endif

endfunction

_________________________
!

download KiXnet

Top
#131268 - 2004-12-14 11:55 AM Re: Slow Login Script
Anonymous
Unregistered


Thanks Jooel! I'll try this and let you know if it helped.
Top
#131269 - 2004-12-14 01:58 PM Re: Slow Login Script
Anonymous
Unregistered


Unfortunately, this didn't resolve my problem. It still stuck sometimes while checking the "ingroup" memberships.
Any more ideas?
Top
#131270 - 2004-12-14 02:24 PM Re: Slow Login Script
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
Since you are not using one of the MapDrive() UDFs, no drive mapping feedback is given from your script. Are you sure that it is the INGROUP function that is giving you the delay on not a bad mapping?

I would suggest you use the UDFs listed below to augment your script. Add Writelog() into other parts of your script as it will provide a logfile that is timestamped and you will know exactly where you delay is occurring.

Code:
Function MapDrive($Drive, $Server, $Share)
    Dim $Drive, $Server, $Share, $shell
    Color c+/n

    If $Drive<>"" and $Server<>"" and $Share<>""
        $LogText="Connecting $Drive to \\$Server\$Share"
        ? $LogText
        USE $Drive /Delete /Persistent
        USE $Drive "\\$Server\$Share"
        If @error=0
            color g+/n
            $x=" - Success"
            "$x"
            If val($DOS) >= 5
                $shell=createobject("shell.application")
                $shell.namespace($Drive+"\").self.name=$Share + " on '" + $Server + "'"
                $shell = 0
            Endif
        Else
            color r+/n
            $x=" - Failed: Error @error"
            "$x"
            $ErrorState=1
        Endif
        WriteLog ($LogText + $x)
        WriteLog2("%temp%\MapDrive.log",$LogText + $x,1)
        Color w+/n
    Else
        WriteLog ("Function 'MapDrive' called with invalid parameters: '$Drive', '$Server', '$Share'")
    Endif
Endfunction
 
Function WriteLog($text)
	dim $RC, $text, $LogFile, $Filehandle
	$Filehandle = 1
	$LogFile = "%temp%\logon.log"
	$RC=Writeline ($Filehandle, "@Date @Time - $Text" + Chr(13) + Chr(10))
	if $RC<0
		$RC=Close ($Filehandle)
		$RC=Open ($Filehandle, $LogFile, 5)
		Select
			Case $RC=-1
				$RC=MessageBox ("Invalid file name ($LogFile) specified for log file.","Logon Script Error",48)
			Case $RC=0
				WriteLog ($Text)
			Case $RC=>0
				$RC=MessageBox ("Error($RC) while attempting to open log file ($LogFile).","Logon Script Error",48)
		Endselect
	Endif
EndFunction
 
;--------------------------------------------------------------------------------------------------
;FUNCTION         WriteLog2()
;
;AUTHOR           Howard A. Bullock (hbullock@tycoelectronics.com)
;
;ACTION           Generic logging facility for scripts. Appends log entry to a file with an
;                 optional TimeStamp.
;
;SYNTAX           WriteLog2($File, $text, [0|1])
;
;PARAMETERS       $File (Required) -  String value
;                 $text (Required) -  String value
;                 $TimeStamp (Optional) Default(0) no TimeStamp (1 or 0)
;
;
;REMARKS          This function writes (appends) an optionally time stamped log entry to the file
;                 defined in function. This function searches for the first unused file handle,
;                 open the file, and write the entry. The file handle is then closed. When the
;                 function is unable to perform its it write the error is displayed in a message box.
;
;RETURNS          Nothing
;
;DEPENDENCIES     None
;
;EXAMPLES         WriteLog2("junk.txt","This is a test")
;                 WriteLog2("junk.txt","This is a test",0)
;                 WriteLog2("junk.txt","This is a test",1)
;
;
Function WriteLog2($File, $Text, optional $TimeStamp)
   dim $RC, $File, $text, $FH, $TimeStamp, $nul
   $FH=1
   $RC=Open ($FH, $File, 5)
   while $RC = -3 and $FH < 11
      $FH=$FH +1
      $RC=Open ($FH, $File, 5)
   Loop
   Select
      Case $RC=0
            if ($TimeStamp=1)
               $TimeStamp = @Date + " " + @Time + " - "
            else
               $TimeStamp = ""
            endif
            $RC=Writeline ($FH, $TimeStamp + $Text + @CRLF)
            if ($RC <> 0)
            	$text = "WriteLine error: $RC @CRLF  -4 = File not open for writing@CRLF" +
            	         "  -3 = File number not open@CRLF  -2 =  Invalid file number specified@CRLF" +
                        "  -1 = End of file"
             	$nul=MessageBox ($text,"Script Error",48)
            endif
            $nul=Close ($FH)
            exit $RC
      Case $RC=-2
         $text = "WriteLog2: Invalid file handle ($FH) specified when trying to Open $File."
         $nul=MessageBox ($text,"Script Error",48)

      Case $RC=-1
         $text = "WriteLog2: Invalid file name ($File) specified for log file."
         $nul=MessageBox ($text,"Script Error",48)

      Case $RC=>0
         $text = "System Error($RC) while attempting to open log file ($File)."
         $nul=MessageBox ($text,"Script Error",48)

   Endselect
   exit $RC
EndFunction
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#131271 - 2004-12-15 01:16 PM Re: Slow Login Script
MCA Offline
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
#131272 - 2004-12-15 01:49 PM Re: Slow Login Script
Anonymous
Unregistered


Thanks MCA. I'll try your script and see where I sometimes lose the time.

Greetings
Roger
Top
#131273 - 2004-12-16 08:53 AM Re: Slow Login Script
Anonymous
Unregistered


According to the debug logfile, the Kix script is running fast. The delay must then be before -> the script call. The slow login is therefore no Kix problem. Thank you guys for your help.
Greetings Roger
Top
#131274 - 2004-12-16 03:15 PM Re: Slow Login Script
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
just like said before.
xp logon optimation is most likely your problem.
_________________________
!

download KiXnet

Top
#131275 - 2004-12-16 03:16 PM Re: Slow Login Script
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
oh, and obviously it does not change the behavior on the same boot.
you need a new boot up after running the disable to see the change.
_________________________
!

download KiXnet

Top
#131276 - 2004-12-17 02:58 PM Re: Slow Login Script
MCA Offline
KiX Supporter
*****

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

Good to hear it isn't kixtart. Bad that the real problem is still unknown.

Take a close look at the eventlog. It shows also timing issues. Possible it shows what cost most of the time during logging on.
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 1


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

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

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