Shell.Application simple function is called in the VBS _vbs

Set os=createobject ("Wscript.Shell")
Set os0=createobject ("Shell.Application")
Todo
Input1=inputbox ("Please select:" +CHR () +CHR (13) + _
"1. All Windows Minimized" +CHR (13) + _
"2. Window state Recovery" +CHR (13) + _
"3. Window evenly tiled" +CHR (13) + _
"4. Window Portrait Tile" +CHR (13) + _
"5. Window Overlay Expansion" +CHR (13) + _
"6. Explorer" +CHR (13) + _
"7. Set system Time" +CHR (13) + _
"8. Refresh System Menu" +CHR (13) + _
"9. Set Start Menu Manually" +CHR (13) + _
"10. Search File" +CHR (13) + _
"11. Search Computer" +CHR (13) + _
"12. Run" +CHR (13) + _
"13. Help" +CHR (13) + _
"14. Open Folder" +CHR (13) + _
"15. Suspend System" +CHR (13) + _
"16. Shut down the system" +CHR (13) + _
"", "VBS SHELL32 feature invocation")
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, "Select the folder you want to open:", 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 "Select Error", 2, "error", 64+0
End Select
Loop