1. Set os=CreateObject("wscript.shell")  
2. Set os0=CreateObject("shell.application")  
3. Do   
4. input1=InputBox(" 请选择："+chr(13)+chr(13)+ _  
5.    "1. 全部窗口最小化"+chr(13)+ _   
6.    "2. 窗口状态复原"+chr(13)+ _   
7.    "3. 窗口均匀平铺"+chr(13)+ _  
8.    "4. 窗口纵向平铺"+chr(13)+ _  
9.    "5. 窗口重叠展开" +Chr(13)+ _  
10.    "6. 资源管理器"+chr(13)+ _   
11.    "7. 设置系统时间" +Chr(13) + _  
12.    "8. 刷新系统菜单" +Chr(13)+ _  
13.    "9. 手动设置开始菜单"+Chr(13)+ _  
14.    "10. 搜索文件"+Chr(13)+ _  
15.    "11. 搜索计算机"+Chr(13)+ _  
16.    "12. 运行"+Chr(13)+ _   
17.    "13. 帮助"+Chr(13)+ _  
18.    "14. 打开文件夹"+Chr(13)+ _  
19.    "15. 挂起系统"+Chr(13)+ _  
20.    "16. 关闭系统" +Chr(13)+ _  
21.    "","vbs shell32 功能调用")  
22. Select Case input1  
23. Case 1  
24. os0.MinimizeAll  
25. Case 2  
26. os0.UndoMinimizeALL  
27. Case 3  
28. os0.TileHorizontally  
29. Case 4  
30. os0.TileVertically  
31. Case 5  
32. os0.CascadeWindows  
33. Case 6  
34. p1=os.SpecialFolders("desktop")  
35. os0.Explore(p1)  
36. Case 7  
37. os0.SetTime  
38. Case 8  
39. os0.RefreshMenu  
40. Case 9  
41. os0.TrayProperties  
42. Case 10  
43. os0.FindFiles  
44. Case 11  
45. os0.FindComputer  
46. Case 12  
47. os0.FileRun  
48. Case 13  
49. os0.Help  
50. Case 14  
51. Set path1=os0.BrowseForFolder(0,"选择要打开的文件夹:",0)  
52. If path1 Is Nothing Then   
53. Else 
54. os0.Open(path1.self.path)  
55. End If 
56. Case 15  
57. os0.Suspend  
58. Case 16   
59. os0.ShutdownWindows  
60. Case "" 
61. Exit Do 
62. Case Else   
63. os.Popup "选择错误",2,"错误",64+0  
64. End Select 
65. loop  

不要小看了这个脚本哦，从中可以学到好多的东西呢，对我来说是这样的，呵呵，正如题目说的那样

本文转自sucre03 51CTO博客，原文链接：http://blog.51cto.com/sucre/394556，如需转载请自行联系原作者