Set os=CreateObject("wscript.shell") 
Set os0=CreateObject("shell.application") 
Do  
input1=InputBox(" 請選擇："+chr(13)+chr(13)+ _ 
        "1. 全部窗口最小化"+chr(13)+ _  
        "2. 窗口狀態復原"+chr(13)+ _  
        "3. 窗口均勻平鋪"+chr(13)+ _ 
        "4. 窗口縱向平鋪"+chr(13)+ _ 
        "5. 窗口重疊展開" +Chr(13)+ _ 
        "6. 資源管理器"+chr(13)+ _  
        "7. 設置系統時間" +Chr(13) + _ 
        "8. 刷新系統菜單" +Chr(13)+ _ 
        "9. 手動設置開始菜單"+Chr(13)+ _ 
        "10. 搜索文件"+Chr(13)+ _ 
        "11. 搜索計算機"+Chr(13)+ _ 
        "12. 運行"+Chr(13)+ _  
        "13. 幫助"+Chr(13)+ _ 
        "14. 打開文件夾"+Chr(13)+ _ 
        "15. 掛起系統"+Chr(13)+ _ 
        "16. 關閉系統" +Chr(13)+ _ 
        "","vbs shell32 功能調用") 
Select Case input1 
Case 1 
     os0.MinimizeAll 
Case 2 
     os0.UndoMinimizeALL 
Case 3 
     os0.TileHorizontally 
Case 4 
     os0.TileVertically 
Case 5 
     os0.CascadeWindows 
Case 6 
     p1=os.SpecialFolders("desktop") 
     os0.Explore(p1) 
Case 7 
     os0.SetTime 
Case 8 
     os0.RefreshMenu 
Case 9 
     os0.TrayProperties 
Case 10 
     os0.FindFiles 
Case 11 
     os0.FindComputer 
Case 12 
     os0.FileRun 
Case 13 
     os0.Help 
Case 14 
     Set path1=os0.BrowseForFolder(0,"選擇要打開的文件夾:",0) 
     If path1 Is Nothing Then  
     Else 
      os0.Open(path1.self.path) 
     End If 
Case 15 
     os0.Suspend 
Case 16  
     os0.ShutdownWindows 
Case "" 
     Exit Do 
Case Else  
     os.Popup "選擇錯誤",2,"錯誤",64+0 
End Select 
loop