ServicePack über Kix auslesen und in Datei umleiten

;----------------------------------------
$path="\\Server1\Logs$\Logon\"  
$tz=";"  
$tempfile="%temp%\logfiles.txt"  
;----------------------------------------

$jahr=@year
If Len(@MONTHNO)=1 $monat="0"+@MONTHNO Else $monat=@MONTHNO EndIf  
If Len(@MDAYNO)=1 $tag="0"+@MDAYNO Else $tag=@MDAYNO EndIf  

$pcfile=$path+"PCs_"+$jahr+$monat+$tag+".csv"  
If Exist ($pcfile) Del ($pcfile) EndIf

Shell "%COMSPEC% /c DIR "+$path+"PCs /b > "+$tempfile  

$handle1=FreeFileHandle()
$rc=Open($handle1,$pcfile,5)
$rc=WriteLine($handle1,"Rechner;User;Berechtigung;Datum;Uhrzeit;Prozessor;Taktfreq.;RAM;Betriebssystem;ServicePack;IP-Adresse;MAC-Adresse;Floppy aktiv;CDRom aktiv;Sitzungsart;HD-Größe;frei(MB);FileSystem;Auflösung"+@CRLF)  

$handle2=FreeFileHandle()
$rc=Open($handle2,$tempfile,2)
$zeile=ReadLine($handle2)
While @ERROR=0
  $handle3=FreeFileHandle()
  $rc=Open($handle3,$path+"PCs\"+$zeile,2)  
  $line=ReadLine($handle3)
  While @ERROR=0
    $lastline=$line
    $line=ReadLine($handle3)
  Loop
  
  $rc=WriteLine($handle1,SubStr ($zeile,1,Len($zeile)-4)+";"+$lastline+@CRLF)  
  $rc=Close($handle3)
  $zeile=ReadLine($handle2)
Loop
$rc=Close($handle2)
$rc=Close($handle1)
Del ($tempfile)  

$rc=MessageBox("Habe Fertig!",@ScriptName,64)  
Run("Explorer $path")