quote:

---

Event Type: None
Event Source: Kixtart UPDATE 4.21 Release Candidate 2c
Event Category: None
Event ID: 1
Date: 4/23/2003
Time: 8:31:25 AM
User: N/A
Computer: MACHINEID
Description:
The description for Event ID ( 1 ) in Source ( Kixtart UPDATE 4.21 Release Candidate 2c ) cannot be found. The local computer may not have the necessary registry information or message DLL files to display messages from a remote computer. You may be able to use the /AUXSOURCE= flag to retrieve this description; see Help and Support for details. The following information is part of the event: Kixtart-UPDATE 3.08 script completed successfully (08:31:25 - 08:31:25) (+kix421.ok +kix32.exe) to "c:\scripts\".

---

code:

---

 $prgrm_version='2.00'
 $sysdrv=SUBSTR('%WINDIR%',1,3)
 $destdir=$sysdrv+'Scripts'
 $message=Substr(@kix,1,1)+Substr(@kix,3,2)
 IF 0=EXIST($destdir)
  MD $destdir
 ELSE
 $destdir=$destdir+'\'
 ENDIF
 IF len($destdir)=0
  $destdir=@lanroot+'\'
 ENDIF

 $pgmvrs='3.08'
 $tmp=ExpandEnvironmentVars('%tmp%'+'\')

 $timest=@time
 $srcdir=@curdir+'\'

 ;$consolemode='no' ; - kix32.exe -
 IF @inwin=1
  $max=1
 ELSE
  $max=4
 ENDIF
 DIM $kixfl[$max+1]
 $kixfl[0]='kix'+$message+'.ok' ; - check file -
 $kixfl[1]='kix32.exe'
 $kixfl[2]='kx16.dll'
 $kixfl[3]='kx32.dll'
 $kixfl[4]='kx95.dll'
 $firstinst='yes'
 IF Exist($sysdrv+$kixfl[0]) DEL $sysdrv+'\kix*.ok' ENDIF
 ; - other installed kixtart versions removing always -
 IF Exist($destdir+$kixfl[0])
  $firstinst='no'
 ELSE
  DEL $destdir+'kix*.ok' ; - other installed kixtart versions -
 ENDIF
 $update='no'
 $updinfo=''
 $i=0
 WHILE $i<=$max
  $srcfl=$srcdir+$kixfl[$i]
  $destfil=$destdir+$kixfl[$i]
  IF Exist($destfil) $rc=SetFileAttr($destfil,128)<>0 ENDIF
  $update='yes'
  IF Exist($srcfl)
   $update='no'
   $srcflsz=GetFileSize($srcfl)
   $desflsz=GetFileSize($destfil)
   $srcfltm=GetFileTime($srcfl)
   $desfltm=GetFileTime($destfil)
   $srcfld=GetFileVersion($srcfl,'filedescription')
   $desfld=GetFileVersion($destfil,'filedescription')
   $srcflv=GetFileVersion($srcfl,'fileversion')
   $desflv=GetFileVersion($destfil,'fileversion')
   $srcfli=GetFileVersion($srcfl,'internalname')
   $desfli=GetFileVersion($destfil,'internalname')
   $srcfll=GetFileVersion($srcfl,'language')
   $desfll=GetFileVersion($destfil,'language')
   $srcflo=GetFileVersion($srcfl,'originalfilename')
   $desflo=GetFileVersion($destfil,'originalfilename')
   $srcflp=GetFileVersion($srcfl,'productname')
   $desflp=GetFileVersion($destfil,'productname')
 
   IF $srcflsz<>$desflsz $update='yes' ENDIF
   IF $srcfltm<>$desfltm $update='yes' ENDIF
   IF $srcfld<>$desfld $update='yes' ENDIF
   IF $srcflv<>$desflv $update='yes' ENDIF
   IF $srcfli<>$desfli $update='yes' ENDIF
   IF $srcfll<>$desfll $update='yes' ENDIF
   IF $srcflo<>$desflo $update='yes' ENDIF
   IF $srcflp<>$desflp $update='yes' ENDIF
  ENDIF
  IF $update='yes'
   COPY $srcfl $destfil /h
   $updinfo=$updinfo+' +'+Lcase($kixfl[$i])
  ELSE
   $updinfo=$updinfo+' ='+Lcase($kixfl[$i])
  ENDIF
  IF @error<>0 ? 'Warning INSTALL: error '+@error+' ('+@serror+')' ENDIF
  $i=$i+1
 LOOP
 $updateok='yes' ; - all kixtart files must be available at $destdir -
 $i=1
 $sfl=$sysdrv+$kixfl[0]
 $dfl=$destdir+$kixfl[0]
 WHILE $i<=$max
  $destfil=$destdir+$kixfl[$i]
  $dfltm=GetFileTime($destfil)
  $dflsz=GetFileSize($destfil)
  IF 0=Exist($destfil)
   $updateok='no'
   $updinfo=$updinfo+' unknown_file.'+$kixfl[$i]
   $rc=WriteProfileString($sfl,'KiX',$kixfl[$i],@date+' '+@time+' -> unknown file')
   $rc=WriteProfileString($dfl,'KiX',$kixfl[$i],@date+' '+@time+' -> unknown file')
  ELSE
   $buildinfo=GetFileVersion($destfil,'specialbuild')
   IF Len($buildinfo)>0
    $buildinfo=' ('+Lcase($buildinfo)+')'
   ELSE
    $buildinfo=''
   ENDIF
   $rc=WriteProfileString($sfl,'KiX',$kixfl[$i],@date+' '+@time+' -> '+$dfltm+' '+$dflsz+$buildinfo)
   $rc=WriteProfileString($dfl,'KiX',$kixfl[$i],@date+' '+@time+' -> '+$dfltm+' '+$dflsz+$buildinfo)
  ENDIF
  $i=$i+1
  IF @inwin=1 $i=$max+1 ENDIF
 LOOP
 $i=$max
 IF 2=@inwin
  $max=4
  $i=2 ; - remove DLL's -
  WHILE $i<=$max
   $destfil=$destdir+$kixfl[$i]
   IF Exist($destfil)
    $rc=SetFileAttr($destfil,128)<>0
    DEL $destfil
    $updinfo=$updinfo+' ?'+Lcase($kixfl[$i])
   ELSE
    $updinfo=$updinfo+' ?'+Lcase($kixfl[$i])
   ENDIF
   $i=$i+1
  LOOP
 ENDIF
 ;$sysdrv+$kixfl[0]
 IF $updateok='yes'
  $updinfo='('+Ltrim(Rtrim(Lcase($updinfo)))+') to '+'"'+Ltrim(Rtrim(Lcase($destdir)))+'"'
  $rc=WriteProfileString($sfl,'KiX','KiX','install complete at '+@date+' '+@time+' '+$updinfo)
  $rc=WriteProfileString($dfl,'KiX','KiX','install complete at '+@date+' '+@time+' '+$updinfo)
 ELSE
  $updinfo='('+Ltrim(Rtrim(Lcase($updinfo)))+') to '+'"'+Ltrim(Rtrim(Lcase($destdir)))+'"'
  $rc=WriteProfileString($sfl,'KiX','KiX','install incomplete at '+@date+' '+@time+' '+$updinfo)
  $rc=WriteProfileString($dfl,'KiX','KiX','install incomplete at '+@date+' '+@time+' '+$updinfo)
 ENDIF
 IF $updateok<>'yes'
  IF Exist($sysdrv+$kixfl[0]) DEL $sysdrv+$kixfl[0] ENDIF
  ; - kixtart version is incompleted -
  IF Exist($destdir+$kixfl[0]) $destdir+$kixfl[0] ENDIF
  ; - kixtart version is incompleted -
  $rc=WriteProfileString($sfl,'KiX','KiX release',@PRODUCTTYPE+' -> kix '+@kix)
  $rc=WriteProfileString($dfl,'KiX','KiX release',@PRODUCTTYPE+' -> kix '+@kix)
  $rc=WriteProfileString($sfl,'KiX','KiX mode','update'+$message)
  $rc=WriteProfileString($dfl,'KiX','KiX mode','update'+$message)
 ENDIF
:end_script
 $timestop=@time
 IF $update='yes'
  $loginfo='Kixtart-UPDATE '+$pgmvrs+' script completed successfully'
  $loginfo=$loginfo+' ('+$timest+' - '+$timestop+') '+Ltrim(Rtrim($updinfo))
  IF $consolemode='yes' $loginfo=$loginfo+' (CONSOLE-LESS)' ENDIF
  IF $updateok='yes'
   $rc=LogEvent(0,1,$loginfo,'','Kixtart UPDATE @kix'+'c')
  ELSE
   $rc=LogEvent(0,1,$loginfo,'','Kixtart UPDATE @kix'+'e')
  ENDIF
 ENDIF
 IF $updateok='yes'
 $updateok=''
 ELSE
  $updateok='in'
 ENDIF
 IF $consolemode='yes'
  ? 'KiX '+@kix+' (console-less) update '+$updateok+'complete. (''+$srcdir+'' -> ''+$destdir+'')'
 ELSE
  ? 'KiX '+@kix+' update '+$updateok+'complete. (''+$srcdir+'' -> ''+$destdir+'')'
 ENDIF
 IF RedirectOutput('CON')=0 ENDIF
 IF $consolemode='yes'
  ? 'KiX '+@kix+' (console-less) update '+$updateok+'complete. ("'+$srcdir+"' -> '"+$destdir+'")'
 ELSE
  ? 'KiX '+@kix+' update '+$updateok+'completed. ("'+$srcdir+'" -> "'+$destdir+'")'
 ENDIF
 ?
 ? 'Informative INSTALL: no creation of debug list ''+$debug_file+'''
:end
 IF $showmode='yes'
  $title='KiXtart '+@kix
  IF $firstinst='yes'
   IF Exist($sysdrv+'kix'+$message+'.ok') OR Exist($destdir+'kix'+$message+'.ok')
    $message='Install of KiX '+@kix+' complete'
   ELSE
    $message='Install of KiX '+@kix+' incomple'
   ENDIF
  ELSE
   IF Exist($sysdrv+'kix'+$message+'.ok') OR Exist($destdir+'kix'+$message+'.ok')
    $message='Install of KiX '+@kix+' complete'
   ELSE
    $message='Install of KiX '+@kix+' incomplete'
   ENDIF
  ENDIF
 ENDIF
 BREAK ON
 FLUSHKB
 IF Exist($sysdrv+'kix'+$message+'.ok') OR Exist($destdir+'kix'+$message+'.ok')
  EXIT(0)
 ELSE
  EXIT(1)
 ENDIF

---

quote:

---

get rid of the setconsole line!

---

quote:

---

anyway, why you use files if you already log to the eventlog?

---

code:

---

@Echo OFF  

:: LAST EDITED; kld 07.01.02 @10:38PM pst
:: Trimmed down to use less stuff..
:: - From: http://support.microsoft.com/default.aspx?scid=kb;en-us;Q318689 (Modified)

VER | find "NT" > nul 
IF not errorlevel 1 GOTO Win_NT 

VER | find "2000" > nul 
IF not errorlevel 1 GOTO Win_NT 

VER | find "XP" > nul 
IF not errorlevel 1 GOTO Win_NT 

VER | find "98" > nul 
IF not errorlevel 1 GOTO Win_9X 

VER | find "95" > nul 
IF not errorlevel 1 GOTO Win_9X 

GOTO unknown_os 

:win_NT
@TITLE Company NT Logon Script
ECHO 				HELLO %USERNAME%!
Echo 		Welcome to %USERDOMAIN%, Inc. NT Domain Environment
::if not exist %windir%\kix410.ok %LOGONSERVER%\NETLOGON\kix410update.exe /q
::if not exist %windir%\kix411.ok %LOGONSERVER%\NETLOGON\kix411update.exe /q
if not exist %SystemDrive%\Scripts\nul md %SystemDrive%\Scripts
if not exist %SystemDrive%\Scripts\kix402.ok %LOGONSERVER%\NETLOGON\Programs\kix402update.exe /q
%SystemDrive%\Scripts\kix32.exe %LOGONSERVER%\NETLOGON\Kixtart.kix /f
:: -- call is reserved for calling another batch file - BAD MICROSOFT!!
::%windir%\kix32.exe %LOGONSERVER%\NETLOGON\Kixtest.kix
goto end 

:win_9X
:: --- CHECK FOR FILES TO SET THE USER NAME
IF NOT EXIST %WINDIR%\PUTINENV.EXE XCOPY \\SERVER\NETLOGON\Programs\Win9x\PUTINENV.EXE %WINDIR%
IF NOT EXIST %WINDIR%\WINSET.EXE XCOPY \\SERVER\NETLOGON\Programs\Win9x\WINSET.EXE %WINDIR%

:: --- SET THE Environment Variables
:: -- Execute the script
::%WINDIR%\SYSTEM\KIX32.EXE %WINDIR%\SYSTEM\W95ENV.KIX

%WINDIR%\PUTINENV.EXE L
%WINDIR%\winset computername=%COMPUTERNAME%
%WINDIR%\winset username=%USERNAME%
%WINDIR%\winset LANGROUP=%LANGROUP%
%WINDIR%\winset LOGONSERVER=%LOGONSERVER%

:: --- DISPLAY THE USER NAME/DOMAIN
ECHO 				    HELLO %USERNAME%!
ECHO 		Welcome to %LANGROUP%, Inc. Windows 9x Domain Environment

:: **********************************************************************************************
:: ******************************REMOVE FILES NOT NEEDED*****************************************
:: **********************************************************************************************
::if not exist %windir%\kix410.ok %0\..\kix410update.exe /q
::if not exist %windir%\kix411.ok %0\..\kix411update.exe /q
if not exist c:\scripts\nul md c:\scripts
if not exist c:\scripts\kix402.ok %0\..\Programs\kix402update.exe /q
::%0\..\kix.exe %0\..\kix32.exe %0\..\kix95.kix 
C:\scripts\kix32.exe %0\..\kixtest.kix 
goto end 

:unknown_os 
:end 

---

quote:

---

I don't know why you would question the event log entry, your script deliberately puts it there.

---

quote:

---

The local computer may not have the necessary registry information or message DLL files to display messages from a remote computer.

---

I should probably not worry myself so much with this. I was just trying to put together a cleaner roll-out of this.

Thanks,

Kent

code:

---

 IF @inwin=1
  $max='1'
 ELSE
  $max='4'
 ENDIF
  

---

code:

---

 DIM $max,$kixfl[$max+1]
 $pgmvrs='3.10'
 $tmp=ExpandEnvironmentVars('%tmp%'+'\')
 $srcdir=@curdir+'\'
 $sysdrv=SUBSTR('%WINDIR%',1,3)
 $destdir=$sysdrv+'Scripts'
 $message=Substr(@kix,1,1)+Substr(@kix,3,2)
 IF 0=EXIST($destdir)
  MD $destdir
 ELSE
  $destdir=$destdir+'\'
 ENDIF
 IF len($destdir)=0
  $destdir=@lanroot+'\'
 ENDIF
 IF @inwin=1
  $max=1
 ELSE
  $max=4
 ENDIF
 ;DIM $kixfl[$max+1]
 $kixfl[0]='kix'+$message+'.ok'
 $kixfl[1]='kix32.exe'
 $kixfl[2]='kx16.dll'
 $kixfl[3]='kx32.dll'
 $kixfl[4]='kx95.dll'
 $firstinst='yes'
 IF Exist($sysdrv+$kixfl[0])
  DEL $sysdrv+'\kix*.ok'
 ENDIF
 IF Exist($destdir+$kixfl[0])
  $firstinst='no'
 ELSE
  DEL $destdir+'kix*.ok'
 ENDIF
 $update='no'
 $updinfo=''
 $i=0
 WHILE $i<=$max
  $srcfl=$srcdir+$kixfl[$i]
  $destfil=$destdir+$kixfl[$i]
  IF Exist($destfil) $rc=SetFileAttr($destfil,128)<>0 ENDIF
  $update='yes'
  IF Exist($srcfl)
   $update='no'
   $srcflsz=GetFileSize($srcfl)
   $desflsz=GetFileSize($destfil)
   $srcfltm=GetFileTime($srcfl)
   $desfltm=GetFileTime($destfil)
   $srcfld=GetFileVersion($srcfl,'filedescription')
   $desfld=GetFileVersion($destfil,'filedescription')
   $srcflv=GetFileVersion($srcfl,'fileversion')
   $desflv=GetFileVersion($destfil,'fileversion')
   $srcfli=GetFileVersion($srcfl,'internalname')
   $desfli=GetFileVersion($destfil,'internalname')
   $srcfll=GetFileVersion($srcfl,'language')
   $desfll=GetFileVersion($destfil,'language')
   $srcflo=GetFileVersion($srcfl,'originalfilename')
   $desflo=GetFileVersion($destfil,'originalfilename')
   $srcflp=GetFileVersion($srcfl,'productname')
   $desflp=GetFileVersion($destfil,'productname')
   IF $srcflsz<>$desflsz $update='yes' ENDIF
   IF $srcfltm<>$desfltm $update='yes' ENDIF
   IF $srcfld<>$desfld $update='yes' ENDIF
   IF $srcflv<>$desflv $update='yes' ENDIF
   IF $srcfli<>$desfli $update='yes' ENDIF
   IF $srcfll<>$desfll $update='yes' ENDIF
   IF $srcflo<>$desflo $update='yes' ENDIF
   IF $srcflp<>$desflp $update='yes' ENDIF
  ENDIF
  IF $update='yes'
   COPY $srcfl $destfil /h
   $updinfo=$updinfo+' +'+$kixfl[$i]
  ELSE
   $updinfo=$updinfo+' ='+$kixfl[$i]
  ENDIF
  $i=$i+1
 LOOP
 $upok='yes'
 $i=1
 $sfl=$sysdrv+$kixfl[0]
 $dfl=$destdir+$kixfl[0]
 WHILE $i<=$max
  $destfil=$destdir+$kixfl[$i]
  $dfltm=GetFileTime($destfil)
  $dflsz=GetFileSize($destfil)
  IF 0=Exist($destfil)
   $upok='no'
   $updinfo=$updinfo+' unknown_file.'+$kixfl[$i]
   $rc=WriteProfileString($sfl,'KiX',$kixfl[$i],@date+' '+@time+' -> unknown file')
   $rc=WriteProfileString($dfl,'KiX',$kixfl[$i],@date+' '+@time+' -> unknown file')
  ELSE
   $buildinfo=GetFileVersion($destfil,'specialbuild')
   IF Len($buildinfo)>0
    $buildinfo=' ('+Lcase($buildinfo)+')'
   ELSE
    $buildinfo=''
   ENDIF
   $rc=WriteProfileString($sfl,'KiX',$kixfl[$i],@date+' '+@time+' -> '+$dfltm+' '+$dflsz+$buildinfo)
   $rc=WriteProfileString($dfl,'KiX',$kixfl[$i],@date+' '+@time+' -> '+$dfltm+' '+$dflsz+$buildinfo)
  ENDIF
  $i=$i+1
  IF @inwin=1 $i=$max+1
  ENDIF
 LOOP
 $i=$max
 IF 2=@inwin
  $max=4
  $i=2
  WHILE $i<=$max
   $destfil=$destdir+$kixfl[$i]
   IF Exist($destfil)
    $rc=SetFileAttr($destfil,128)<>0
    DEL $destfil
    $updinfo=$updinfo+' ?'+$kixfl[$i]
   ELSE
    $updinfo=$updinfo+' ?'+$kixfl[$i]
   ENDIF
   $i=$i+1
  LOOP
 ENDIF
 IF $upok='yes'
  $state='install complete at '
  $info=$state+@date+' '+@time+' '+$updinfo
 ELSE
  $state='install incomplete at '
  $info='update'+$message
  IF Exist($sysdrv+$kixfl[0])
   DEL $sysdrv+$kixfl[0]
  ENDIF
  IF Exist($destdir+$kixfl[0]) $destdir+$kixfl[0] ENDIF
 ENDIF
 $rc=WriteProfileString($sfl,'KiX','KiX release',@producttype+' -> kix '+@kix)
 $rc=WriteProfileString($dfl,'KiX','KiX release',@producttype+' -> kix '+@kix)
 $updinfo='('+Trim($updinfo)+') to '+'"'+Trim($destdir)+'"'
 $rc=WriteProfileString($sfl,'KiX','KiX',$info)
 $rc=WriteProfileString($dfl,'KiX','KiX',$info)
  

---

• we aren't using variables when we are referencing them only once. variables without
  any reference can be also comment f.e. $pgmvrs.
• you are starting in the first WHILE/LOOP structure with the wrong $i value.
  it should be $i=1. it isn't your intention to copy an existing control file
  to your "X:\Scripts" location we suppose.
• one of your last lines in second example $updinfo= is missing any goal. you
  aren't referencing them.
• in the line IF Exist($destdir+$kixfl[0]) $destdir+$kixfl[0] ENDIF we are missing DELcommand.
• we are missing the last three lines, which makes it possible to do some error checking
  from a batch job.
• also you can replace the control file kix420.ok by registry entry, which makes
  your code also a little bit smaller.
  also it is possible that you are creating only one control file in the %windir% directory.
  the other location is only for backwards compatibility.
• of course you need only one script to start installation, but in our version we have introduce
  both start1.kix and start2.kix versions to make it possible that we can help
  others with their problems by using our iexpress package.
• of course the amount of information can reduced. for us it are only debugging issues.
  to claim a reducing with 396,89% isn't fair. without any debugging facility you must make
  the comparison with the start1.kix script only.
  with the above remarks included we can reduce your script
  into
  start1.kix 2.862 bytes (reducing 140.25%)
  or
  start1.kix 2.596 bytes (reducing 154.62%)
  or
  start1.kix 2.217 bytes (reducing 181.11%)
  Also you shouldn't forget that IEXPRESS compress those information too.
  More important is how much time both versions will cost during an installation process.
  With the UPCTimer 1.6 we get for our versions:
  

  code:

  ---

  - kix421update.exe                        0.112393 sec
  - kix421registry.exe                      0.133719 sec
  - wkix421update.exe                       0.088145 sec

  ---

  So what is small.

• (1)why? when we are running it on our environment we doesn't need a debugging script
  liike start2.kix.
  more important is, that we can instruct people in an easy way to create debugging
  information about their iexpress installation when they have problems with it.
  Oh yeh, how did we solve the "terminal service" model? with a debug file.
• (2)why over-use parenthises? indeed to make it more "bullet-proof" and to get
  a better layout in our opinion.
• (3) ???
• (4) why not use variables? in some situations it is possible, but we didn't.
  general people aren't see anything from our code.
  in some situations we are doing things twice to make reading not too hard.
  currently we are running our twenties version.

• indeed we are also missing the WKIX32.EXE. But it is important to know
  in which way Kent is creating his IEXPRESS package. It is f.e. possible
  that he is call WKIX32.EXE KIX32.EXE in his version.
• sorry Les. Kent isn't installating DLL's when they aren't needed. He only
  verifies "do they exist and when positive remove them".
  Script contains only one COPY statement. See the first WHILE/LOOP structure.

code:

---

DIM $max,$kixfl[$max+1] ; vs 3.10
$tmp=ExpandEnvironmentVars('%tmp%'+'\')
$srcdir=@curdir+'\'
$destdir=Substr('%WINDIR%',1,3)+'Scripts'
$message=Substr(@kix,1,1)+Substr(@kix,3,2)
;
IF Exist($destdir)=0
 MD $destdir
ENDIF
IF Len($destdir)=0
 $destdir=@lanroot
ENDIF
IF Substr($destdir,Len($destdir),1) <> '\'
 $destdir=$destdir+'\'
ENDIF
;
IF @inwin=1
 $max=1
ELSE
 $max=4
ENDIF
$kixfl[0]='kix'+$message+'.ok'
$kixfl[1]='kix32.exe'
$kixfl[2]='kx16.dll'
$kixfl[3]='kx32.dll'
$kixfl[4]='kx95.dll'
$firstinst='yes'
IF Exist($destdir+$kixfl[0])
 $firstinst='no'
ELSE
 DEL $destdir+'kix*.ok'
ENDIF
;
$updinfo=''
$i=1
WHILE $i <= $max
 $srcfl=$srcdir+$kixfl[$i]
 $destfil=$destdir+$kixfl[$i]
 IF Exist($destfil)
  $rc=SetFileAttr($destfil,128) <> 0
 ENDIF
 IF Exist($srcfl)
  IF GetFileSize($srcfl) <> GetFileSize($destfil) OR
   GetFileTime($srcfl) <> GetFileTime($destfil) OR
   GetFileVersion($srcfl,'filedescription') <> GetFileVersion($destfil,'filedescription') OR
   GetFileVersion($srcfl,'fileversion') <> GetFileVersion($destfil,'fileversion') OR
   GetFileVersion($srcfl,'internalname') <> GetFileVersion($destfil,'internalname') OR
   GetFileVersion($srcfl,'language') <> GetFileVersion($destfil,'language') OR
   GetFileVersion($srcfl,'originalfilename') <> GetFileVersion($destfil,'originalfilename') OR
   GetFileVersion($srcfl,'productname') <> GetFileVersion($destfil,'productname')
   COPY $srcfl $destfil /h
   $updinfo=$updinfo+' +'+$kixfl[$i]
  ELSE
   $updinfo=$updinfo+' ='+$kixfl[$i]
  ENDIF
 ENDIF
 $i=$i+1
LOOP
;
$upok='yes'
$i=1
WHILE $i <= $max
 $destfil=$destdir+$kixfl[$i]
 IF Exist($destfil) = 0
  $upok='no'
  $updinfo=$updinfo+' unknown_file.'+$kixfl[$i]
  $rc=WriteProfileString($destdir+$kixfl[0],'KiX',$kixfl[$i],@date+' '+@time+' -> unknown file')
 ELSE
  $buildinfo=GetFileVersion($destfil,'specialbuild')
  IF Len($buildinfo) > 0
   $buildinfo=' ('+Lcase($buildinfo)+')'
  ENDIF
  $rc=WriteProfileString($destdir+$kixfl[0],'KiX',$kixfl[$i],@date+' '+@time+' -> '+GetFileTime($destfil)+' '+GetFileSize($destfil)+$buildinfo)
 ENDIF
 $i=$i+1
 IF @inwin=1 $i=$max+1
 ENDIF
LOOP
$i=$max
IF @inwin <> 1
 $max=4
 $i=2
 WHILE $i <= $max
  $destfil=$destdir+$kixfl[$i]
  IF Exist($destfil)
   $rc=SetFileAttr($destfil,128) <> 0
   DEL $destfil
  ENDIF
  $updinfo=$updinfo+' ?'+$kixfl[$i]
  $i=$i+1
 LOOP
ENDIF
IF $upok='yes'
 $state='install complete at '
 $info=$state+@date+' '+@time+' '+$updinfo
ELSE
 $state='install incomplete at '
 $info='update kix'+$message
 IF Exist($destdir+$kixfl[0])
  DEL $destdir+$kixfl[0]
 ENDIF
ENDIF
$rc=WriteProfileString($dfl,'KiX','KiX release',@producttype+' -> kix '+@kix)
$rc=WriteProfileString($dfl,'KiX','KiX',$info)
;
IF Exist($destdir+'kix'+$message+'.ok')
 EXIT(0)
ELSE
 EXIT(1)
ENDIF

---

code:

---

dim $x1,$x2[$x1+1] $x3=ExpandEnvironmentVars('%tmp%'+'\') $x4=@curdir+'\' $x5=Substr('%WINDIR%',1,3)+'Scripts' $x6=Substr(@kix,1,1)+Substr(@kix,3,2) if Exist($x5)=0 md $x5 endif if Len($x5)=0 $x5=@lanroot endif
if Substr($x5,Len($x5),1)<>'\' $x5=$x5+'\' endif if @inwin=1 $x1=1 else $x1=4 endif $x2[0]='kix'+$x6+'.ok' $x2[1]='kix32.exe' $x2[2]='kx16.dll' $x2[3]='kx32.dll' $x2[4]='kx95.dll' $x7='yes'
if Exist($x5+$x2[0]) $x7='no' else del $x5+'kix*.ok' endif $x8='' $x9=1 while $x9<=$x1 $x10=$x4+$x2[$x9] $x11=$x5+$x2[$x9] if Exist($x11) $x12=SetFileAttr($x11,128)<>0 endif if Exist($x10)
if GetFileSize($x10)<>GetFileSize($x11) OR GetFileTime($x10)<>GetFileTime($x11) OR GetFileVersion($x10,'filedescription')<>GetFileVersion($x11,'filedescription') OR GetFileVersion($x10,'fileversion')<>GetFileVersion($x11,'fileversion') OR
GetFileVersion($x10,'internalname')<>GetFileVersion($x11,'internalname') OR GetFileVersion($x10,'language')<>GetFileVersion($x11,'language') OR GetFileVersion($x10,'originalfilename')<>GetFileVersion($x11,'originalfilename') OR
GetFileVersion($x10,'productname')<>GetFileVersion($x11,'productname') copy $x10 $x11 /h $x8=$x8+' +'+$x2[$x9] else $x8=$x8+' ='+$x2[$x9] endif endif $x9=$x9+1 loop $x13='yes' $x9=1 while $x9<=$x1 $x11=$x5+$x2[$x9]
if Exist($x11)=0 $x13='no' $x8=$x8+' unknown_file.'+$x2[$x9] $x12=WriteProfileString($x5+$x2[0],'KiX',$x2[$x9],@date+' '+@time+' -> unknown file') else $x14=GetFileVersion($x11,'specialbuild') if Len($x14)>0
$x14=' ('+Lcase($x14)+')' endif $x12=WriteProfileString($x5+$x2[0],'KiX',$x2[$x9],@date+' '+@time+' -> '+GetFileTime($x11)+' '+GetFileSize($x11)+$x14) endif $x9=$x9+1 if @inwin=1 $x9=$x1+1 endif loop $x9=$x1
if @inwin<>1 $x1=4 $x9=2 while $x9<=$x1 $x11=$x5+$x2[$x9] if Exist($x11) $x12=SetFileAttr($x11,128)<>0 del $x11 endif $x8=$x8+' ?'+$x2[$x9] $x9=$x9+1 loop endif
if $x13='yes' $x15='install complete at ' $x16=$x15+@date+' '+@time+' '+$x8 else $x15='install incomplete at ' $x16='update kix'+$x6 if Exist($x5+$x2[0]) del $x5+$x2[0] endif endif
$x12=WriteProfileString($x17,'KiX','KiX release',@producttype+' -> kix '+@kix) $x12=WriteProfileString($x17,'KiX','KiX',$x16) if Exist($x5+'kix'+$x6+'.ok') exit (0) else exit (1) endif 

---

quote:

---

%windir% directory.
the other location is only for backwards compatibility.

---

quote:

---

of course the amount of information can reduced. for us it are only debugging issues.
to claim a reducing with 396,89% isn't fair.

---

quote:

---

(2)why over-use parenthises? indeed to make it more "bullet-proof" and to get
a better layout in our opinion.

---

If we can eliminate them, it looks and is more professional. Shouldn't this be a BKM or "Best Known Method?" This should be a practice that we as a community embrace! To quote one a post seen somewhat recently, "you should make your code accomodate the client, not client accomodate the code.

You have pointed out some variables that are not referenced. Isn't this supposed to be a "work in progress?" I think I can reciprocate that with you as well.

quote:

---

btw: another important issue was and is "we are using same scripts for different kixtart
releases. also the kixtart 3.6x releases".
So some new functions, commands or macros can't be used in our scripts.

---

quote:

---

Not trying to disuade you, but I would have to ask since I know you are quite busy at work and even doing work stuff at home. How important is this installer?

MCA already has it working (I assume)

---

quote:

---

Speaking for myself, I don't use any installer, never have. In fact I've now gone back to running it all from the NETLOGON folder again. Logons are quite fast and I have MUCH easier control of versions from this method.

Just curious why you're putting in so much effort on this.

---

code:

---

  if not exist c:\kix420.ok %0\..\kix420update /q

---

code:

---

  if not exist %windir%\kix420.ok %0\..\kix420update /q

---

quote:

---

About backwards compatibility:
when people where using an earlier version of our packages during deployment we must
cleanup the mess from those earlier versions.
when people where using only latest versions of our packages it isn't necessary to
do that. In our script above we doesn't use "c:\kix???.ok" at all. We have to deal
only with the "%windir%\kix???.ok" control file.

---

quote:

---

We don't think, that you of anybody else
love it to modify our reduced version with variable names like $x1, $x2, ...., $x35.

---

quote:

---

About parenthises
some language makes it possible that you are using short versions of available keywords.
of course typing the short ones doesn't cost much time, but reading those code many
years later make it very hard to understand what it means and to maintain.

---

code:

---

IF (0=INGROUP("GROUP"))
 ;DO STUFF
ENDIF

---

code:

---

IF 0=INGROUP("GROUP")
 ;DO STUFF
ENDIF

---

code:

---

About going back ... with the 3.6 version
everything is incorporate in same script. 

---

quote:

---

UDF you make it easy to find & use by inexperienced persons

---

'UDF' and 'inexperienced persons' when used in the same sentence is an oxymoron.

Purists may argue that it is not right to make a UDF out of it. Basicaly, it is the source code that gets packaged up as an EXE, not something that 'inexperienced persons' would undertake.

quote:

---

ERROR : array reference out of bounds!
Script: C:\!Kix\newpkg\install.KIX
Line : 21

---

code:

---

DIM $max,$kixfl[$max+1] ; vs 3.10
$tmp=ExpandEnvironmentVars('%tmp%\')
$srcdir=@curdir+'\'
$destdir=Substr('%WINDIR%',1,3)+'Scripts\'
$msg=join(split(@kix,'.'),'')
IF Exist($destdir)=0
 MD $destdir
ENDIF
IF Len($destdir)=0
 $destdir=@lanroot
ENDIF
IF @inwin=1
 $max=2
ELSE
 $max=5
ENDIF
$kixfl[0]='kix'+$msg+'.ok'
$kixfl[1]='kix32.exe'
$kixfl[2]='wkix32.exe'
$kixfl[3]='kx16.dll'
$kixfl[4]='kx32.dll'
$kixfl[5]='kx95.dll'
$firstinst='yes'
IF Exist($destdir+$kixfl[0])
 $firstinst='no'
ELSE
 DEL $destdir+'kix*.ok'
ENDIF
$updinfo=''
$i=1
WHILE $i <= $max
 $srcfl=$srcdir+$kixfl[$i]
 $destfil=$destdir+$kixfl[$i]
 IF Exist($destfil)
  $rc=SetFileAttr($destfil,128) <> 0
 ENDIF
 IF Exist($srcfl)
  IF GetFileSize($srcfl) <> GetFileSize($destfil) OR
   GetFileTime($srcfl) <> GetFileTime($destfil) OR
   GetFileVersion($srcfl,'filedescription') <> GetFileVersion($destfil,'filedescription') OR
   GetFileVersion($srcfl,'fileversion') <> GetFileVersion($destfil,'fileversion') OR
   GetFileVersion($srcfl,'internalname') <> GetFileVersion($destfil,'internalname') OR
   GetFileVersion($srcfl,'language') <> GetFileVersion($destfil,'language') OR
   GetFileVersion($srcfl,'originalfilename') <> GetFileVersion($destfil,'originalfilename') OR
   GetFileVersion($srcfl,'productname') <> GetFileVersion($destfil,'productname')
   COPY $srcfl $destfil /h
   IF @ERROR=0
    $upok='yes'
   ELSE
    $upok='no'
   ENDIF
   $updinfo=$updinfo+' +'+$kixfl[$i]
  ELSE
   $updinfo=$updinfo+' ='+$kixfl[$i]
  ENDIF
 ENDIF
 $i=$i+1
LOOP
IF $upok='yes'
 $state='install complete at '
 $info=$state+@date+' '+@time+' '+$updinfo
ELSE
 $state='install incomplete at '
 $info='update kix'+$message
 IF Exist($destdir+$kixfl[0])
  DEL $destdir+$kixfl[0]
 ENDIF
ENDIF
$rc=WriteProfileString($dfl,'KiX','KiX release',@producttype+' -> kix '+@kix)
$rc=WriteProfileString($dfl,'KiX','KiX',$info)
IF Exist($destdir+'kix'+$msg+'.ok')
 EXIT(0)
ELSE
 EXIT(1)
ENDIF

---

code:

---

 CLS
 BREAK ON
 DIM $max ; vs 3.10
 $tmp=ExpandEnvironmentVars('%tmp%\')
 $srcdir=@CURDIR+'\'
 $destdir=Substr('%WINDIR%',1,3)+'Scripts\'
 $msg=JOIN(split(@KIX,'.'),'')
 IF Exist($destdir)=0
  MD $destdir
 ENDIF
 IF Len($destdir)=0
  $destdir=@lanroot
 ENDIF
 IF @inwin=1
  $max='2'
 ELSE
  $max='5'
 ENDIF
 REDIM $kixfl[$max+1]
 $kixfl[0]='kix'+$msg+'.ok'
 $kixfl[1]='kix32.exe'
 $kixfl[2]='wkix32.exe'
 $kixfl[3]='kx16.dll'
 $kixfl[4]='kx32.dll'
 $kixfl[5]='kx95.dll'
 $firstinst='yes'
 IF Exist($destdir+$kixfl[0])
  $firstinst='no'
 ELSE
  DEL $destdir+'kix*.ok'
 ENDIF
  $dfl=$destdir+$kixfl[0]
 IF SUBSTR($kixfl[0],4,3) = LEFT(JOIN(split(GETFILEVERSION('KIX32.EXE'),', '),''),3)
  EXIT(0)
 ELSE
  $rc=WriteProfileString($dfl,'KiX','KiX release',@PRODUCTTYPE+' -> kix '+@KIX)
  WHILE $i <= $max
   $srcfl=$srcdir+$kixfl[$i]
   $destfil=$destdir+$kixfl[$i]
   IF Exist($destfil)
    $rc=SetFileAttr($destfil,128) <> 0
   ENDIF
   IF Exist($srcfl)
    IF GetFileSize($srcfl) <> GetFileSize($destfil) OR
     GetFileTime($srcfl) <> GetFileTime($destfil) OR
     GetFileVersion($srcfl,'filedescription') <> GetFileVersion($destfil,'filedescription') OR
     GetFileVersion($srcfl,'fileversion') <> GetFileVersion($destfil,'fileversion') OR
     GetFileVersion($srcfl,'internalname') <> GetFileVersion($destfil,'internalname') OR
     GetFileVersion($srcfl,'language') <> GetFileVersion($destfil,'language') OR
     GetFileVersion($srcfl,'originalfilename') <> GetFileVersion($destfil,'originalfilename') OR
     GetFileVersion($srcfl,'productname') <> GetFileVersion($destfil,'productname')
     COPY $srcfl $destfil /h
     IF @error=0
      $upok='yes'
      $state='install complete at '
      $info=$state+@date+' '+@time+' '+$updinfo
     ELSE
      $upok='no'
      $state='install incomplete at '
      $info='update kix'+$message
     ENDIF
     $updinfo=$updinfo+' +'+$kixfl[$i]
    ELSE
     $updinfo=$updinfo+' ='+$kixfl[$i]
    ENDIF
   ENDIF
   $i=$i+1
   $rc=WriteProfileString($destfil,'KiX','KiX',$info)
  LOOP
  IF Exist($destdir+'kix'+$msg+'.ok')
   EXIT(1)
  ELSE
   EXIT(2)
  ENDIF
 ENDIF
  

---

code:

---

 
 IF @inwin=1
   $max=2
   REDIM $kixfl[$max+1]
   $kixfl[0]='kix'+$msg+'.ok'
   $kixfl[1]='kix32.exe'
   $kixfl[2]='wkix32.exe'
 ELSE
   $max=5
   REDIM $kixfl[$max+1]
   $kixfl[0]='kix'+$msg+'.ok'
   $kixfl[1]='kix32.exe'
   $kixfl[2]='wkix32.exe'
   $kixfl[3]='kx16.dll'
   $kixfl[4]='kx32.dll'
   $kixfl[5]='kx95.dll'
 ENDIF 

---

quote:

---

ERROR : invalid method/function call: missing ')'!
Script: C:\!Kix\newpkg\install.KIX
Line : 31

---

code:

---

 CLS
 BREAK ON
 DIM $max
 $tmp=ExpandEnvironmentVars('%tmp%\')
 $srcdir=@CURDIR+'\'
 $destdir=Substr('%WINDIR%',1,3)+'Scripts\'
 $msg=JOIN(split(@KIX,'.'),'')
 IF Exist($destdir)=0
  MD $destdir
 ENDIF
 IF Len($destdir)=0
  $destdir=@lanroot
 ENDIF
 IF @inwin=1
  $max=2
  REDIM $kixfl[$max+1]
  $kixfl[0]='kix'+$msg+'.ok'
  $kixfl[1]='kix32.exe'
  $kixfl[2]='wkix32.exe'
 ELSE
  $max=5
  REDIM $kixfl[$max+1]
  $kixfl[0]='kix'+$msg+'.ok'
  $kixfl[1]='kix32.exe'
  $kixfl[2]='wkix32.exe'
  $kixfl[3]='kx16.dll'
  $kixfl[4]='kx32.dll'
  $kixfl[5]='kx95.dll'
 ENDIF
 $firstinst='yes'
 IF Exist($destdir+$kixfl[0])
  $firstinst='no'
 ELSE
  DEL $destdir+'kix*.ok'
 ENDIF
  $dfl=$destdir+$kixfl[0]
 IF SUBSTR($kixfl[0],4,3)=LEFT(JOIN(split(GETFILEVERSION('KIX32.EXE'),', '),''),3)
  EXIT 0
 ELSE
  $rc=WriteProfileString($dfl,'KiX','KiX release',@PRODUCTTYPE+' -> kix '+@KIX)
  $updinfo=''
  $i=1
  WHILE $i<=$max
   $srcfl=$srcdir+$kixfl[$i]
   $destfil=$destdir+$kixfl[$i]
   IF Exist($destfil)
    $rc=SetFileAttr($destfil,128)<>0
   ENDIF
   IF Exist($srcfl)
    IF GetFileSize($srcfl) <> GetFileSize($destfil) OR
     GetFileTime($srcfl) <> GetFileTime($destfil) OR
     GetFileVersion($srcfl,'filedescription') <> GetFileVersion($destfil,'filedescription') OR
     GetFileVersion($srcfl,'fileversion') <> GetFileVersion($destfil,'fileversion') OR
     GetFileVersion($srcfl,'internalname') <> GetFileVersion($destfil,'internalname') OR
     GetFileVersion($srcfl,'language') <> GetFileVersion($destfil,'language') OR
     GetFileVersion($srcfl,'originalfilename') <> GetFileVersion($destfil,'originalfilename') OR
     GetFileVersion($srcfl,'productname') <> GetFileVersion($destfil,'productname')
     COPY $srcfl $destfil /h
     IF @error=0
      $upok='yes'
      $state='install complete at '
      $info=$state+@date+' '+@time+' '+$updinfo
     ELSE
      $upok='no'
      $state='install incomplete at '
      $info='update kix'+$message
     ENDIF
     $updinfo=$updinfo+' +'+$kixfl[$i]
    ELSE
     $updinfo=$updinfo+' ='+$kixfl[$i]
    ENDIF
   ENDIF
   $i=$i+1
   $rc=WriteProfileString($dfl,'KiX','KiX',$info)
  LOOP
  IF Exist($destdir+'kix'+$msg+'.ok')
   EXIT 1
  ELSE
   EXIT 2
  ENDIF
 ENDIF
  

---

code:

---

kixstrip input.kix output.kix /nocombine /noheaders /nolicense

---

code:

---

DIM $max,$kixfl[$max+1] 
$tmp=ExpandEnvironmentVars('%tmp%'+'\') 
$srcdir=@curdir+'\' 
$destdir=Substr('%WINDIR%',1,3)+'Scripts' 
$message=Substr(@kix,1,1)+Substr(@kix,3,2) 
IF Exist($destdir)=0 
MD $destdir 
ENDIF 
IF Len($destdir)=0 
$destdir=@lanroot 
ENDIF 
IF Substr($destdir,Len($destdir),1)<>'\' 
$destdir=$destdir+'\' 
ENDIF 
IF @inwin=1 
$max=1 
ELSE 
$max=4 
ENDIF 
$kixfl[0]='kix'+$message+'.ok' 
$kixfl[1]='kix32.exe' 
$kixfl[2]='kx16.dll' 
$kixfl[3]='kx32.dll' 
$kixfl[4]='kx95.dll' 
$firstinst='yes' 
IF Exist($destdir+$kixfl[0]) 
$firstinst='no' 
ELSE 
DEL $destdir+'kix*.ok' 
ENDIF 
$updinfo='' 
$i=1 
WHILE $i<=$max 
$srcfl=$srcdir+$kixfl[$i] 
$destfil=$destdir+$kixfl[$i] 
IF Exist($destfil) 
$rc=SetFileAttr($destfil,128)<>0 
ENDIF 
IF Exist($srcfl) 
IF GetFileSize($srcfl)<>GetFileSize($destfil) OR 
GetFileTime($srcfl)<>GetFileTime($destfil) OR 
GetFileVersion($srcfl,'filedescription')<>GetFileVersion($destfil,'filedescription') OR 
GetFileVersion($srcfl,'fileversion')<>GetFileVersion($destfil,'fileversion') OR 
GetFileVersion($srcfl,'internalname')<>GetFileVersion($destfil,'internalname') OR 
GetFileVersion($srcfl,'language')<>GetFileVersion($destfil,'language') OR 
GetFileVersion($srcfl,'originalfilename')<>GetFileVersion($destfil,'originalfilename') OR 
GetFileVersion($srcfl,'productname')<>GetFileVersion($destfil,'productname') 
COPY $srcfl $destfil /h 
$updinfo=$updinfo+' +'+$kixfl[$i] 
ELSE 
$updinfo=$updinfo+' ='+$kixfl[$i] 
ENDIF 
ENDIF 
$i=$i+1 
LOOP 
$upok='yes' 
$i=1 
WHILE $i<=$max 
$destfil=$destdir+$kixfl[$i] 
IF Exist($destfil)=0 
$upok='no' 
$updinfo=$updinfo+' unknown_file.'+$kixfl[$i] 
$rc=WriteProfileString($destdir+$kixfl[0],'KiX',$kixfl[$i],@date+' '+@time+' -> unknown file') 
ELSE 
$buildinfo=GetFileVersion($destfil,'specialbuild') 
IF Len($buildinfo)>0 
$buildinfo=' ('+Lcase($buildinfo)+')' 
ENDIF 
$rc=WriteProfileString($destdir+$kixfl[0],'KiX',$kixfl[$i],@date+' '+@time+' -> '+GetFileTime($destfil)+' '+GetFileSize($destfil)+$buildinfo) 
ENDIF 
$i=$i+1 
IF @inwin=1 $i=$max+1 
ENDIF 
LOOP 
$i=$max 
IF @inwin<>1 
$max=4 
$i=2 
WHILE $i<=$max 
$destfil=$destdir+$kixfl[$i] 
IF Exist($destfil) 
$rc=SetFileAttr($destfil,128)<>0 
DEL $destfil 
ENDIF 
$updinfo=$updinfo+' ?'+$kixfl[$i] 
$i=$i+1 
LOOP 
ENDIF 
IF $upok='yes' 
$state='install complete at ' 
$info=$state+@date+' '+@time+' '+$updinfo 
ELSE 
$state='install incomplete at ' 
$info='update kix'+$message 
IF Exist($destdir+$kixfl[0]) 
DEL $destdir+$kixfl[0] 
ENDIF 
ENDIF 
$rc=WriteProfileString($dfl,'KiX','KiX release',@producttype+' -> kix '+@kix) 
$rc=WriteProfileString($dfl,'KiX','KiX',$info) 
IF Exist($destdir+'kix'+$message+'.ok') 
EXIT (0) 
ELSE 
EXIT (1) 
ENDIF 

---

code:

---

DIM $a,$kxfl
$tmp=ExpandEnvironmentVars('%tmp%\')
$srcdir=@curdir+'\'
$destdir=Substr('%WINDIR%',1,3)+'Scripts\'
$message=JOIN(split(@kix,'.'),'')

IF 0=Exist($destdir)
 MD $destdir
ENDIF

IF @inwin=1
 $a='kix32.exe',
 'wkix32.exe'
 FOR EACH $kixfl IN $a
  COPYKIX($kixfl)
 NEXT
ELSE
 $a='kix32.exe',
 'wkix32.exe',
 'kx16.dll',
 'kx32.dll',
 'kx95.dll'
 FOR EACH $kixfl IN $a
  COPYKIX($kixfl)
 NEXT
ENDIF

FUNCTION COPYKIX($file)
 $srcfl=$srcdir+$file
 $destfil=$destdir+$file
 IF Exist($destfil)
  $rc=SetFileAttr($destfil,128)<>0
 ENDIF
 IF Exist($srcfl)
  IF GetFileSize($srcfl) <> GetFileSize($destfil) OR
   GetFileTime($srcfl) <> GetFileTime($destfil) OR
   GetFileVersion($srcfl,'fileversion') <> GetFileVersion($destfil,'fileversion')
   COPY $srcfl $destfil /h
  ENDIF
 ENDIF
ENDFUNCTION

$rc=ADDKEY('HKCU\Software\KiXtart')
IF READVALUE('HKCU\Software\KiXtart','KIXPKG')<>'kix'+$message
 $rc=WRITEVALUE('HKCU\Software\KiXtart','KIXPKG','kix'+$message,'REG_SZ')
ELSE
 EXIT 1
ENDIF

---

code:

---

DIM $FilesToCopy,$
$tmp='%tmp%\'
$srcdir=@scriptdir+'\'
$destdir=split('%WINDIR%',':')[0]+':\Scripts\'
$message=JOIN(split(@kix,'.'),'')
 
IF 0=Exist($destdir)
 MD $destdir
ENDIF
 
$FilesToCopy='kix32.exe wkix32.exe'
IF @inwin=2
 $FilesToCopy=$FilesToCopy+' kx16.dll kx32.dll kx95.dll'
ENDIF
 
FOR EACH $ IN Split($FilesToCopy)
 COPYKIX($srcdir+$,$destdir+$)
NEXT
 
 $=WRITEVALUE('HKCU\Software\KiXtart','KIXPKG','kix'+$message,'REG_SZ')
 
FUNCTION COPYKIX($srcfile,$destfile)
 dim $
 IF Exist($srcfile)
  IF Exist($destfile)
   $=SetFileAttr($destfile,128)
  ENDIF
  IF GetFileSize($srcfile) <> GetFileSize($destfile) OR
   GetFileTime($srcfile) <> GetFileTime($destfile) OR
   GetFileVersion($srcfile) <> GetFileVersion($destfile)
   COPY $srcfile $destfile /h
  ENDIF
 ENDIF
ENDFUNCTION

---

code:

---

if not exist %SystemDrive%\Scripts\kix421.ok %LOGONSERVER%\NETLOGON\Programs\kix421update.exe /q

---

code:

---

DIM $FilesToCopy,$
$tmp='%tmp%\'
$srcdir=@scriptdir+'\'
$destdir=split('%WINDIR%',':')[0]+':\Scripts\'
$msg=LEFT(JOIN(split(@kix,'.'),''),3)
$ok=$destdir+'kix'+$msg+'.ok'
 
IF 0=Exist($destdir)
 MD $destdir
ENDIF
 
$FilesToCopy='kix32.exe wkix32.exe'
IF @inwin=2
 $FilesToCopy=$FilesToCopy+' kx16.dll kx32.dll kx95.dll'
ENDIF
 
FOR EACH $ IN Split($FilesToCopy)
 COPYKIX($srcdir+$,$destdir+$)
NEXT
 
FUNCTION COPYKIX($srcfile,$destfile)
 dim $
 IF Exist($srcfile)
  IF Exist($destfile)
   $=SetFileAttr($destfile,128)
   $state=' >replaced'
  ELSE
   $state=' >new'
  ENDIF
  IF GetFileSize($srcfile)<>GetFileSize($destfile) OR
   GetFileTime($srcfile)<>GetFileTime($destfile) OR
   GetFileVersion($srcfile)<>GetFileVersion($destfile)
   IF EXIST($destdir+'kix*.ok')
    Del $destdir+'kix*.ok'
   ENDIF
   COPY $srcfile $destfile /h
   $=WRITEPROFILESTRING($ok,split(split($destfile,'\')[2],'.')[0],'KIX',$destfile+$state)
  ENDIF
 ENDIF
ENDFUNCTION
  

---

code:

---

[Version]
Class=IEXPRESS
SEDVersion=3
[Options]
PackagePurpose=InstallApp
ShowInstallProgramWindow=1
HideExtractAnimation=1
UseLongFileName=0
InsideCompressed=0
CAB_FixedSize=0
CAB_ResvCodeSigning=0
RebootMode=N
InstallPrompt=%InstallPrompt%
DisplayLicense=%DisplayLicense%
FinishMessage=%FinishMessage%
TargetName=%TargetName%
FriendlyName=%FriendlyName%
AppLaunched=%AppLaunched%
PostInstallCmd=%PostInstallCmd%
AdminQuietInstCmd=%AdminQuietInstCmd%
UserQuietInstCmd=%UserQuietInstCmd%
SourceFiles=SourceFiles
[Strings]
InstallPrompt=
DisplayLicense=
FinishMessage=
TargetName=C:\!Kix\newpkg\kix421update.EXE
FriendlyName=Kixtart 4.21 installation
AppLaunched=KIX32.EXE
PostInstallCmd=KIX32.EXE install.kix
AdminQuietInstCmd=
UserQuietInstCmd=
FILE0="KX95.DLL"
FILE1="INSTALL.KIX"
FILE2="KX16.DLL"
FILE3="KX32.DLL"
FILE4="KIX32.EXE"
FILE5="WKIX32.EXE"
[SourceFiles]
SourceFiles0=C:\!Kix\newpkg\
[SourceFiles0]
%FILE0%=
%FILE1%=
%FILE2%=
%FILE3%=
%FILE4%=
%FILE5%=

---

code:

---

 $=WRITEPROFILESTRING($ok,'KIX','KIX Info',@producttype+' -> kix '+@kix) 

---

quote:

---

you reference the $ok inside the udf part

---

• way of using registry is indeed a good alternative. We see three possible problems
  - the HKCU-hive isn't available by W9x logging on. An alternative can be that you put
  those informative to the HKLM hive.
  - by using mandatory profiles the registry information we will gone during each logging
  on. So each time the installation package will reinstall itself on the client with
  the necessary to do it.
  - with the general DOS commands you can't check the registry content.
• about IF Len($destdir)=0 $destdir=@lanroot ENDIF has to deal with the possibility
  that the environment variable %windir% doesn't exist. Normally it is not a
  problem, but we have to deal with all kind of possibilities.
• with the current network speed and with the required execution times of iexpress package
  runs it isn't necessary to check each time you control file kix???.ok.
  Also for a modem connection it is acceptable.
• for testing the control-file in a DOS environment we are restricting to the available
  DOS commands. f.e. it's size isn't such function.
• we are missing the part of removing unwanted kixtart binaries, when they were implemented
  with an older edition of iexpress packages. Specially when the current location isn't the
  same as previous locations.
  f.e.
  c:\scripts\kix32.exe
  c:\scripts\kx16.dll
  c:\scripts\kx32.dll
  c:\scripts\kx95.dll
  c:\windows\kix32.exe
  c:\windows\kx16.dll
  c:\windows\kx32.dll
  c:\windows\kx95.dll
  Do you know which version it will use, when this will be the result. So removing them can
  be necessary to prevent unexpected errors during using kixtart.

quote:

---

Also it can be necessary that you must install kixtart on your clients. F.e. we are running
all kind of scripts in the background without the requirement of a network connection.
Also during logging on and with the speed of current networks such installation isn't necessary.
During logging on we will always updating our kixtart binaries on the clients without using our
control file to skip this element. Also such update isn't a big problem by modem connection.

---

quote:

---

An alternative can be that you put those informative to the HKLM hive.

---

quote:

---

has to deal with the possibility that the environment variable %windir% doesn't exist.

---

quote:

---

c:\scripts\kix32.exe
..other files..

---

quote:

---

it's slow to run logon-from network but with even slow 256kb connection it's already quick enough to not need a dist...

---

quote:

---

When you have problem with the deletion of old file it will be good to include those
information also in f.e. control file. A control file which can be located on
the server too.

---

code:

---

CLS
BREAK ON
$DomainString='DOMAIN' ;Replace with your domain
$GroupString='Domain Users'
$GroupObj = GetObject('WinNT://' + $DomainString + '/' + $GroupString)
For each $UserObj in $GroupObj.Members
    ;Look for the word NTLOGON in case of NTLOGON OR NTLOGON.BAT
    IF $UserObj.AccountDisabled<>'True' AND INSTR($UserObj.LoginScript,'NTLOGON')
    ?$UserObj.Name
    ?$UserObj.FullName 
    $UserObj.LoginScript = 'WKIX32.EXE'
    $UserObj.SetInfo
    $error=@error
     $logshare='H:\' ;Change to an available drive or UNC path
     $logfile=$logshare+$DomainString+'CHANGESCRIPT.CSV'
     $logdata=$UserObj.Name+','+$UserObj.FullName+','+$error+@CRLF
     LOGGER($logfile,$logdata)

    ENDIF
Next
?'--'
?'Script complete'
SLEEP 4

FUNCTION LOGGER($logfile,$logdata)
  DIM $n
  WHILE Open(1, $logfile, 5) OR $n=5
   IF $n
    '.'
   ELSE
    ?'Please wait'
   ENDIF
   $n=$n+1
   SLEEP 3
  LOOP
  $n=WriteLine(1, $logdata)
  $n=Close(1)
 ENDFUNCTION

---

code:

---

;KiXtart >= 4.12
$msg=LEFT(JOIN(split(@kix,'.'),''),3)
;KiXtart > 4.02
;$msg=left((split(@kix,'.')[0]+split(@kix,'.')[1]),3)

---

code:

---

AppLaunched=KIX32.EXE
PostInstallCmd=KIX32.EXE install.kix

---

code:

---

if not exist %SystemDrive%\Scripts\kix402.ok %LOGONSERVER%\NETLOGON\Programs\kix402update.exe /q
%SystemDrive%\Scripts\kix32.exe %LOGONSERVER%\NETLOGON\Kixtart.kix /f
GOTO END

---

code:

---

if not exist %SystemDrive%\Scripts\kix402.ok %LOGONSERVER%\NETLOGON\Programs\kix402update.exe /q  && GOTO END
%SystemDrive%\Scripts\kix32.exe %LOGONSERVER%\NETLOGON\Kixtart.kix /f
GOTO END

---

code:

---

if not exist %SystemDrive%\Scripts\kix402.ok %LOGONSERVER%\NETLOGON\Programs\kix402update.exe /q
CALL %SystemDrive%\Scripts\kix32.exe %LOGONSERVER%\NETLOGON\Kixtart.kix /f

---

code:

---

$tmp='%tmp%\'
$destdir=split('%WINDIR%',':')[0]+':\Scripts\'
IF @KIX="4.02"
 ;KiXtart > 4.02
 $srcdir=@scriptdir
 $msg=left((split(@kix,'.')[0]+split(@kix,'.')[1]),3)
ELSE
;KiXtart >= 4.12
 $srcdir=@scriptdir+'\'
 $msg=LEFT(JOIN(split(@kix,'.'),''),3)
ENDIF

---

code:

---

COPY '$srcfile' $destfile /h

---

code:

---

AppLaunched=kix32.exe $
PostInstallCmd=kix32.exe install.kix

---

The kix32.exe $ needed unless you want to have the KIXTART.KIX be spawned twice.

HTH,

Kent