VBSでオプションを要求する

Question

私はVBSスクリプティングの初心者です。スクリプトを選択肢と連携させる方法についての助けと助言が必要です。

私の仕事ネットワークはプロキシを使用していますが、私のホームネットワークはそうではありません。私は必要な時にいつでもプロキシをオンからオフに切り替えることができました。無効にする。

私は私を依頼するVBSスクリプトをしたいと思います「

1. プロキシ/ 2.無効にプロキシ

を有効にする」とし、選択に対応するコードのセクションを介して実行。

私はVBSの経験はありません。私はこれで自分の深みを完全に忘れています。

Option Explicit 
Dim WSHShell, strSetting 
Dim ObjShell 
Set WSHShell = WScript.CreateObject("WScript.Shell") 

'Elevate VBS to run as Administrator 
If WScript.Arguments.length = 0 Then 
    Set ObjShell = WScript.CreateObject("Shell.Application") 
    ObjShell.ShellExecute "wscript.exe", """" & _ 
    WScript.ScriptFullName & """" &_ 
    " RunAsAdministrator", , "runas", 1 
    Wscript.Quit 
End if 

'Determine current proxy setting and toggle to oppisite setting 
strSetting = wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable") 
If strSetting = 1 Then 
NoProxy 
Else Proxy 
End If 

'Subroutine to Toggle Proxy Setting to ON "Tested & Working" 
Sub Proxy 
WSHShell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD" 
wscript.sleep 500 
WSHShell.Exec "cmd /C netsh.exe winhttp import proxy source=ie" 
End Sub 

'Subroutine to Toggle Proxy Setting to OFF "Tested & Working" 
Sub NoProxy 
WSHShell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD" 
wscript.sleep 500 
WSHShell.Exec "cmd /C netsh.exe winhttp reset proxy" 
End Sub 

Answer 1

あなたがはい/いいえを使用することができます/ MsgBoxキャンセル：

answer = MsgBox("Enable Proxy?", vbYesNoCancel + vbQuestion) 
Select Case answer 
    Case vbYes : Proxy 
    Case vbNo : NoProxy 
    Case Else : WScript.Echo "Cancelled" 
End Select