' Windows 98/Me の TCP/IP スタックを最適化を除去 v1.0
' (C)2000-2001 Windows.FAQ
' http://homepage2.nifty.com/winfaq/

On Error Resume Next
Set WShell = WScript.CreateObject("WScript.Shell")

if vbYes = MsgBox("Windows9x/Me の TCP/IP 最適化設定を除去します。",vbYesNo+vbQuestion,"除去作業の確認") then

For i=0 to 10 
  RegPath1 = "HKLM\System\CurrentControlSet\Services\Class\NetTrans\000"+Cstr(i)
  dd = WShell.RegRead(RegPath1+"\DriverDesc")
  if Err <> 0 then
    Err.Clear
    Exit for
  end if
  if dd = "TCP/IP" then
    WShell.RegDelete RegPath1+"\MaxMTU"
  end if
 Next
 RegPath2 = "HKLM\System\CurrentControlSet\Services\VxD\MSTCP"
 WShell.RegDelete RegPath2+"\DefaultRcvWindow"
 WShell.RegDelete RegPath2+"\DefaultTTL"

 ' Set Default Paramater
 WShell.RegDelete RegPath2+"\Tcp1323Opts"
 WShell.RegDelete RegPath2+"\SackOpts"
 WScript.Echo "除去が完了しました。"+vbCrLf+"Windows を再起動してください。"
else
 wscript.echo "設定は削除されませんでした。"
end if