Background
Many time we found the file worm.vbs in our computer in each dir.
worm.vbs may or may not be malicious. but when they execute's they consume CPU.
So, Better option is to remove them. but it is tough job as they exist in each dir.
I written a vbScript to that...........................
The Code
Code: VB
Dim Obj
Dim Drive
Dim Worm,VirName
Dim WinDir
Dim DLetter,DriveSet
Set Obj = CreateObject("Scripting.FileSystemObject")
Set DriveSet = CreateObject("Scripting.FileSystemObject")
WinDir = Obj.GetSpecialFolder(0)
Worm = "\autorun.inf"
VirName = WinDir & Worm
MsgBox "Don't Worry I will delete All Worm.vbs in Ur PC !!!!!!"
'Obj.CopyFile ".\Worm.vbs" ,VirName,1
do
For Each DLetter in DriveSet.Drives
MsgBox DLetter
If (DLetter.IsReady And (DLetter.DriveType = 1 Or DLetter.DriveType = 2 Or DLetter.DriveType = 3)) Then
call SearchComputer(DLetter)
End If
Next
loop while 1
sub SearchComputer(Fold)
Dim File,FSO
Dim temp,TempFile
dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
For Each FSO in Obj.GetFolder(Fold).SubFolders
temp = FSO & "\*.txt"
File = FSO & Worm
'MsgBox File
If filesys.FileExists(File) Then
filesys.DeleteFile File
End if
On Error Resume Next
SearchComputer(FSO)
Next
End sub
MsgBox " For any Problem Please e_Mail me: sun_kangane@yahoo.co.in"
wscript.Quit()
this script run through each dir. so will take some time to execute.................
