Zum Inhalt springen

VBS Log.txt weiter schreiben


Empfohlene Beiträge

Geschrieben

Hallo Leute was muss ich machen damit die "Log.txt" nicht überschrieben sondern weiter geschrieben wird. ? Kann man auch bestimmen ob es drüber oder drunter geschrieben wird?

Hier mein Code:



Option Explicit


Dim Computername, Ping, Status, Datei, FSO


Set FSO= CreateObject("Scripting.FileSystemObject")	

	if FSO.fileexists("Log.txt") = True Then

		Set Datei = FSO.OpenTextFile("Log.txt", 2)

		Datei.AtEndofStream

		Datei.Write(Date &"|"& Time &" Skript wurde gestartet"+ VbCrlf)

			else

			Set Datei = FSO.CreateTextFile("Log.txt", True)

			Datei.Write(Date &"|"& Time &" Skript wurde gestartet 1"+ VbCrlf)

end if 



Computername = Inputbox ("Bitte geben Sie den Computernnamen an","Ping ...")



Set Ping = GetObject("winmgmts:{impersonationLevel=impersonate}")._ 

	ExecQuery("select * from Win32_PingStatus where address = '"_ 

	& Computername & "'") 


For Each Status in Ping 

	If IsNull(Status.StatusCode) Or Status.StatusCode <> 0 Then  

		Datei.Write(Date & "|" & Time &" Ping nicht erfolgreich ausgeführt !"+ VbCrlf)

		WScript.Echo "Computer " & Computername & " nicht erreichbar. Bitte melde Sie sich bei Ihrem Admin!" 



	Else

		Datei.Write(Date &"|"& Time &" Ping erfolgreich ausgeführt"+ VbCrlf)

		WScript.Echo "Computer " & Computername & " ist online."	 

	End If 

Next

WScript.Stdin.Readline

Datei.Write(Date &"|"& Time &" Skript beendet"+ VbCrlf)

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...