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