以下はそのソースコードです。
'//===========================================================================
'//【ソフト名】 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 件のコメント:
コメントを投稿