FileWrite schreibt manchmal Zeilen doppelt

ghunt

Halli Hallo,

ich habe da ein Problem mit Filewrite.
Irgendwie schreibt er ab und zu Zeilen doppelt.
Leider kann ich nicht rausfinden, woran das liegt.
Ich poste mal die Zeilen, die in die Datei schreiben.
Vielleicht übersehe ich ja etwas.

Spoiler anzeigen

Code

$logopen = FileOpen($Filename , 1)
       FileWriteLine ( $logopen , "Rechnerinstallation Logfile")
       FileWriteLine ( $logopen , "Datum:" & @MDAY & "." & @MON & "." & @year)
       FileWriteLine ( $logopen , "Techniker:" & $madebystate)
       FileWriteLine ( $logopen , "Computername:" & @ComputerName)
       FileWriteLine ( $logopen , "IP:" & @IPAddress1)
       FileWriteLine ( $logopen , "Domänenbenutzer:" & $domuserstate )


  If $bkstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "Volkswagen Betriebskonzept,1")
  ElseIf $bkstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "Volkswagen Betriebskonzept,0")
  EndIf
  If $pcduostate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "PC Duo Client,1")
  ElseIf $pcduostate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "PC Duo Client,0")
  EndIf
    If $mt9750state=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "MT9750,1")
  ElseIf $mt9750state=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "MT9750,0")
  EndIf
    If $ofscstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "OfficeScan,1")
  ElseIf $ofscstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "OfficeScan,0")
  EndIf
    If $icastate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "ICA Client,1")
  ElseIf $icastate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "ICA Client,0")
  EndIf
    If $officestate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "MS Office [opt.],1")
  ElseIf $officestate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "MS Office [opt.],0")
  EndIf
    If $etkastate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "ETKA [opt.],1")
  ElseIf $etkastate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "ETKA [opt.],0")
  EndIf
    If $namecheckstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "Computername,1")
  ElseIf $namecheckstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "Computername,0")
  EndIf
    If $ipcheckstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "richtige IP,1")
  ElseIf $ipcheckstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "richtige IP,0")
  EndIf
    If $domcheckstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "Domainmember,1")
  ElseIf $domcheckstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "Domainmember,0")
  EndIf
    If $usergroupstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "Hauptbenutzer,1")
  ElseIf $usergroupstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "Hauptbenutzer,0")
  EndIf
    If $dir1checkstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "DIR1 ok,1")
  ElseIf $dir1checkstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "DIR1 ok,0")
  EndIf
    If $printerstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "Printer installed,1")
  ElseIf $printerstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "Printer installed,0")
  EndIf
    If $icauserstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "PC Duo Client,1")
  ElseIf $icauserstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "PC Duo Client,0")
  EndIf
    If $wefakeysstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "WEFA Keys,1")
  ElseIf $wefakeysstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "WEFA Keys,0")
  EndIf
    If $specfuncsstate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "Sonderfunktionen,1")
  ElseIf $specfuncsstate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "Somderfunktionen,0")
  EndIf
    If $progteststate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "Programmtest  erfolgreich,1")
  ElseIf $progteststate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "Programmtest erfolgreich,0")
  EndIf
      If $printteststate=$GUI_CHECKED Then
     FileWriteLine ( $logopen , "Druckertest erfolgreich,1")
  ElseIf $printteststate=$GUI_UNCHECKED Then
         FileWriteLine ( $logopen , "Somderfunktionen,0")
  EndIf
     FileWriteLine ( $logopen , "Kommentar:" &  $commentstate )


  FileClose ( $logopen )


$server = "MyFTP"
$username = "MyUser"
$pass = "MyPass"


$Open = _FTPOpen("MyFTP")
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, $Filename , "/logfiles/" & $Filename)
$Ftpc = _FTPClose($Open)


FileDelete ( $Filename )

Alles anzeigen

Und so sieht ein Ergebnis aus:

Code

PCNAME 07.08.2006 15:21:32
 
OS Version,WIN_2000
Servicepack,Service Pack 3
User,user1
IP Adresse,192.168.181.107
Speicherplatz C,4968
IP Adresse,192.168.181.107
Speicherplatz C,4968
DNS, 1
DNS, 1
Profilgroesse,26
ETKA, 0
ICA, 1
ICA, 1
mt9750, 0
pcduo, 1
pcduo, 1
OFscan, 1

Alles anzeigen

bernd670 : SPOILER- und CODE-Tags eingebaut

**peethebee**

Hallo!

Ich würde mir mal testweise die Werte der Variablen, die du in der If-Anweisung überprüfst, ausgeben lassen.
Außerdem ist ElseIf durch Else ersetzbar, da ja entweder aktiviert ist oder eben nicht.

Leider wird in deinem Skriptausschnitt scheinbar keine der problematischen Zeilen geschrieben, sodass eine genaue Fehlersuche noch schwer ist...

peethebee

ghunt

Ups, falsches Skript *rotwerd*

Spoiler anzeigen

Code

Func writeheader()
  $openinventoryfile = FileOpen ( $inventoryfilename , 1 )
  FileWriteLine ( $openinventoryfile , @Computername & " " & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC )
  FileWriteLine ( $openinventoryfile , " " )
  FileClose ( $openinventoryfile )
EndFunc


Func getosversion()
  $openforosversion = FileOpen ( $inventoryfilename , 1 )
  FileWriteLine ( $openforosversion , "OS Version," & @OSVersion )
  FileClose ( $openforosversion )
EndFunc


Func getossp()
  $openforossp = FileOpen ( $inventoryfilename , 1 )
;  MsgBox(0,"ossp", $openforossp )
  FileWriteLine ( $openforossp , "Servicepack," & @OSServicePack )
  FileClose ( $openforossp )
  EndFunc


Func getusername()
  $openforusername = FileOpen ( $inventoryfilename , 1 )
  FileWriteLine ( $openforusername , "User," & @UserName )
  FileClose ( $openforusername )
EndFunc


Func getipadress()
  $openforipadress = FileOpen ( $inventoryfilename , 1 )
  FileWriteLine ( $openforipadress , "IP Adresse," & @IPAddress1 )
  FileClose ( $openforipadress )
EndFunc


Func getcfreespace()
  $cfreespaceshow = DriveSpaceFree("C:\")
  $openforcfreespace = FileOpen ( $inventoryfilename , 1 )
  FileWriteLine ( $openforcfreespace , "Speicherplatz C," & Round (  $cfreespaceshow ) )
  FileClose ( $openforcfreespace )


EndFunc


Func getdns()
  $pingvwserver = Ping ( "vwserver" , 40 )
  $pingica = Ping ( "ica" , 40 )
  $pingc80 = Ping ( "c80" , 40 )


    If $pingvwserver<=40 AND $pingica<=40 AND $pingc80<=40 Then
      $openfordns = FileOpen ( $inventoryfilename , 1 )
      FileWriteLine ( $openfordns , "DNS, 1" )
      FileClose ( $openfordns )
    Else
      $openfordns = FileOpen ( $inventoryfilename , 1 )
      FileWriteLine ( $openfordns , "DNS, 0" )
      FileClose ( $openfordns )
    EndIf
EndFunc


Func getprofilevol()
  $profilesize = DirGetSize ( @UserProfileDir )
    $openforprofilevol = FileOpen ( $inventoryfilename , 1 )
    FileWriteLine ( $openforprofilevol , "Profilgroesse," & Round ($profilesize /1024/1024) )
    FileClose ( $openforprofilevol )
EndFunc


Func getetka()
  If FileExists ( @WindowsDir & "\ETKINST.INI" ) Then
    $etini = IniRead ( @WindowsDir & "\ETKINST.INI" , "VARIABLE" , "installtyp" , "" )
    $openforetka = FileOpen ( $inventoryfilename , 1 )
    FileWriteLine ( $openforetka , "ETKA, 1" & $etini )
    FileClose ( $openforetka )
  Else
    $openforetka = FileOpen ( $inventoryfilename , 1 )
    FileWriteLine ( $openforetka , "ETKA, 0" )
    FileClose ( $openforetka )
  EndIf
EndFunc


Func getica()
  If FileExists ( "C:\Programme\Citrix\ICA Client\pn.exe" ) OR FileExists ( "C:\Programme\Citrix\ICA-Client\pn.exe" ) Then
    $openforica = FileOpen ( $inventoryfilename , 1 )
    FileWriteLine ( $openforica , "ICA, 1" )
    FileClose ( $openforica )
  ElseIf FileExists ( "D:\Programme\Citrix\ICA Client\pn.exe" ) OR FileExists ( "D:\Programme\Citrix\ICA-Client\pn.exe" )Then
    $openforica = FileOpen ( $inventoryfilename , 1 )
    FileWriteLine ( $openforica , "ICA, 1" )
    FileClose ( $openforica )
  Else
    $openforica = FileOpen ( $inventoryfilename , 1 )
    FileWriteLine ( $openforica , "ICA, 0" )
    FileClose ( $openforica )
  EndIf
EndFunc

Alles anzeigen

bernd670 : SPOILER- und CODE-Tags eingebaut

**peethebee**

Hallo!

Der Ursache wäre wohl am einfachsten mit MsgBoxen beizukommen.

Aber ein paar grundsätzliche Sachen hätte ich noch, die vielleicht die Übersicht steigern und evtl. den Fehler beseitigen oder offen zu Tage treten lassen:
- Die Gliederung in Funktionen scheint mir hier nicht sinnvoll, da sie scheinbar nur einmal (und das evtl. sogar direkt hintereinander aufgerufen werden. Würde man einfach alles "hintereinander weg" schreiben, hätte man auch Problem 2 gelöst:
- Jedes Mal wird ein neues Filehandle aufgemacht, was per se schon mal nicht effektiv und nicht übersichtlich ist. Zudem kann man FileWriteLine als ersten Parameter statt eines Filehandles auch einen Dateinamen ($inventoryfilename) übergeben, der dann automatisch geöffnet und geschlossen wird.

peethebee

ghunt

Das eigentliche Problem dabei ist, dass die Fehler nur dann auftreten, wenn das Programm als geplanter Task ausgeführt wird.
Und dies leider auch nicht zuverlässig.

Der Grund, warum dies Funktionen sind, ist dass das Programm
in zwei verschiedenen Modi laufen kann.
In dem Modus wo die Probleme auftreten, werden tatsächlich alle nacheinander aufgerufen.

Welchen Sinn ergibt denn dann das Filehandle ?

**peethebee**

Das Filehandle ist dann sinnvoll einzusetzen, wenn man mehrere Zeilen nacheinander in eine Datei schreiben will.
Dann muss nicht vor jeder Zeile die Datei geöffnet und nach jeder geschlossen werden, sondern nur einmal davor und einmal danach. Dadurch wird also die Perfortmance gesteigert.

peethebee

**bernd670**

Hallo,

was noch intressant wäre ist der Teil in dem die Funktionen aufgerufen werden!