以下はそのソースコードです。
'//=========================================================================== '//【ソフト名】 IEProxyOff.vbs ver. 12.04.20 001 '//【対応環境】 Windows XP SP3 + IE6 のみ検証済み '//【注意事項】 '//=========================================================================== Option Explicit On Error Resume Next Dim WSH Set WSH = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then WSH.RegWrite _ "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable" _ ,0 _ ,"REG_DWORD" WScript.Echo "設定しました" Else WScript.Echo "エラー: " & Err.Description End If Set WSH = Nothing
0 件のコメント:
コメントを投稿