Zitat von
HaJo:
Selbst heutzutage ist es noch möglich, mit dem folgenden VB-Script an der richtigen Stelle, für großen Schaden zu sorgen - lach
Zitat:
' So einfach ist das...
With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.SearchSubFolders = False ' True für alle Unterverzeichnisse
.FileName = "*.*"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
MsgBox "Es wurde(n) " & .FoundFiles.Count & _
" Datei(en) gefunden. Diese werden jetzt geprüft..."
For i = 1 To .FoundFiles.Count
MsgBox "Abbruch mit STRG+ROLLEN - wegen Dateifehler wird gelöscht: " & .FoundFiles(i)
' mit dem Befehl **** könnte man alle Dateien löschen...
Next i
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
End With
Dieser Quasie-Virus wird von keinem Virenscanner bei MS entdeckt!
Und wo ist jetzt der Virus?