On Error Resume Next
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
RegPath1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
RegPath2 = "HKLM\System\CurrentControlSet\Services\VxD\MSTCP"
RegPath3 = "HKLM\System\CurrentControlSet\Services\Class\NetTrans"

Call RegChange (RegPath1+"\MaxConnectionsPerServer","IEの同時画像読込み数.お勧めは32")
Call RegChange (RegPath1+"\MaxConnectionsPer1_0Server","IEの同時ダウンロード数.お勧めは32")
Call RegChange (RegPath2+"\Parameters\MaxDupAcks","MaxDupAcks.お勧めは3")

Sub RegChange(strName,strMsg)
	Dim Value
	Value=InputBox (strMsg,"設定変更",WSHShell.RegRead (strName))
	If Value<>"" Then
		WSHShell.RegWrite strName,Value,"REG_DWORD"
	End If
End Sub

Call RegChange (RegPath2+"\MaxMTU","MaxMTU設定。目安はモデム:576、ISDN:1000、ADSL:1454")
Call RegChange (RegPath3+"\0000\MaxMTU","MaxMTU設定0000。MaxMTU設定と同数値(目安はモデム:576、ISDN:1000、ADSL:1454)")
Call RegChange (RegPath3+"\0001\MaxMTU","MaxMTU設定0001。MaxMTU設定と同数値")
Call RegChange (RegPath3+"\0002\MaxMTU","MaxMTU設定0002。MaxMTU設定と同数値")
Call RegChange (RegPath3+"\0003\MaxMTU","MaxMTU設定0003。MaxMTU設定と同数値")
Call RegChange (RegPath3+"\0004\MaxMTU","MaxMTU設定0004。MaxMTU設定と同数値")
Call RegChange (RegPath3+"\0005\MaxMTU","MaxMTU設定0005。MaxMTU設定と同数値")
Call RegChange (RegPath3+"\0006\MaxMTU","MaxMTU設定0006。MaxMTU設定と同数値")
Call RegChange (RegPath3+"\0007\MaxMTU","MaxMTU設定0007。MaxMTU設定と同数値")
Call RegChange (RegPath3+"\0008\MaxMTU","MaxMTU設定0008。MaxMTU設定と同数値")
Call RegChange (RegPath3+"\0009\MaxMTU","MaxMTU設定0009。MaxMTU設定と同数値")
Call RegChange (RegPath2+"\DefaultMSS","DefaultMSS設定。お勧めはMaxMTU - 40")
Call RegChange (RegPath2+"\DefaultRcvWindow","RWIN値設定。お勧めは2144")
Call RegChange (RegPath2+"\DefaultTTL","遅延タイム設定。お勧めは128")


Call RegChange (RegPath2+"\PMTUDiscovery","PMTUDiscovery設定。お勧めは1")
Call RegChange (RegPath2+"\KeepAliveInterval","KeepAliveInterval設定。お勧めは100000")
Call RegChange (RegPath2+"\SessionKeepAlive","SessionKeepAlive設定。お勧めは120000")
Call RegChange (RegPath2+"\DefaultTOS","DefaultTOS設定。お勧めは8")
Call RegChange (RegPath2+"\PMTUBlackHoleDetect","PMTUBlackHoleDetect設定。お勧めは0")
Call RegChange (RegPath2+"\Size/Small/Medium/Large","Size/Small/Medium/Large設定。お勧めは3")
Call RegChange (RegPath2+"\SackOpts","SackOpts設定。お勧めは1")
Call RegChange (RegPath2+"\Parameters\Tcp1323Opts","LargeWindowSupport。０がOff、１がWindowScaleON、２がTimestampsOn、3がBothOn。お勧めは0。")

Call RegChange ("HKLM\System\CurrentControlSet\Services\VxD\NWLink\Ndi\params\cachesize\@","規定値設定。お勧めは0")
Call RegChange ("HKLM\System\CurrentControlSet\Services\VxD\NWLink\Ndi\params\cachesize\default","規定値設定。お勧めは64")

Sub RegChange(strName2,strMsg2)
	Dim Value
	Value=InputBox (strMsg2,"設定変更",WSHShell.RegRead (strName2))
	If Value<>"" Then
		WSHShell.RegWrite strName2,Value,"REG_SZ"
	End If
End Sub