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