VBS Service Settings Tool

Set WshShell = WScript.CreateObject("WScript.Shell")
Dim osselect
MsgBox "Disabled :" &Chr(10) & _
       "Security Center (Windows 7)" &Chr(10) & _
       "Windows Defender" &Chr(10) & _
       "Windows Firewall" &Chr(10) & _
       "Automatic :" &Chr(10) & _
       "Themes (Windows Server 2008 R2)" &Chr(10) & _
       "Windows Audio (Windows Server 2008 R2)" , 0 , "Service Setting Tool"
Do
osselect = InputBox("1 = Windows 7" &Chr(10) & _
                    "2 = Windows Server 2008 R2" , "Select Windows Version (0=Exit)" , "Input A Numeric For Your Choice")
Loop While IsNumeric(osselect) = Flase
Select Case osselect
Case 0
Case 1
Return = WshShell.run("sc config wscsvc start= disabled" , 1 , True) ' %COMSPEC% /k(/c)
Call sharesetting
Case 2
Return = WshShell.run("sc config Themes start= auto" , 1 , True)
Return = WshShell.run("sc config AudioSrv start= auto" , 1 , True)
Call sharesetting
Case else
MsgBox "Error Select & Exit" , 0 , "Message"
End select

Sub sharesetting
Return = WshShell.run("sc config WinDefend start= disabled" , 1 , True)
Return = WshShell.run("sc config MpsSvc start= disabled" , 1 , True)
Exit Sub
End Sub