Hey guys, a few tidbits I found to hopefully make wow on windows run a little better.
The first is a VBScript, it changes a registry entry that makes your networking packets send without waiting for a response from a server.
The Second is a Registry script which sets your machine to moosh small packets together to make one normal size packet so the server doesn't need so long to process it.
Below are the codes:
VBS
****** START HERE ******
' --------------------------------------------------------------------------------
' Script: setTcpAck.vbs
' Purpose: Simple little script to clear tcpacktick delays for SMB
' Author: Hyperus
' Notes: No Liability Accepted for use under any circumstances
' --------------------------------------------------------------------------------
'
Option Explicit
'Const vbYesNo = 4
'Const vbYes = 6
'Const vbNo = 7
Dim objWMIService,colOperatingSystems,objOperatingSystem
Dim nResponse,OSVersion
Dim oShell,sNIC, n
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
OSVersion = Left(objOperatingSystem.Version,3)
Next
Set objWMIService = nothing
Set colOperatingSystems = nothing
Set objOperatingSystem = nothing
nResponse = MsgBox("Clear TcpAck Delays on this machine. Is this what you want to do?" & vbCRLF & vbCRLF & "Click Yes to proceed or No to quit.", vbYesNo, "AddIP")
If nResponse = vbNo Then
WScript.Echo "*** Script terminated by user ***"
WScript.Quit 0
End If
Set oShell = WScript.CreateObject("WScript.Shell")
For n = 1 To 20
sNIC = ""
On Error Resume Next
sNIC = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & CStr(n) & "\ServiceName")
Err.Clear
On Error Goto 0
If sNIC <> "" Then
WScript.Echo "Found Apapter [" & CStr(n) & "] " & sNIC
Select Case OSVersion
Case "5.0"
oShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & sNIC & "\TcpDelAckTicks",0,"REG_DWORD"
wscript.echo "Writing : HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & sNIC & "\TcpDelAckTicks=0"
Case "5.1"
oShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & sNIC & "\TcpAckFrequency",1,"REG_DWORD"
wscript.echo "Writing : HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & sNIC & "\TcpAckFrequency=1"
Case "5.2"
oShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & sNIC & "\TcpAckFrequency",1,"REG_DWORD"
wscript.echo "Writing : HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & sNIC & "\TcpAckFrequency=1"
Case "6.0"
oShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & sNIC & "\TcpAckFrequency",1,"REG_DWORD"
wscript.echo "Writing : HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & sNIC & "\TcpAckFrequency=1"
Case Else
WScript.Echo "'" & OSVersion & "'" & " Operating System not Suppported for this Reg Hack"
End Select
End If
Next
Set oShell = Nothing
WScript.Echo "Done."
nResponse = MsgBox("The machine must be restarted before these changes will take effect." & vbCRLF & vbCRLF & "You must do this manually.", 0, "AddIP - Done!")
WScript.Quit 0
****** STOP HERE ******
Registry
****** START HERE ******
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSMQ]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSMQ\Parameters]
"TCPNoDelay"=dword:00000001
****** STOP HERE ******
What to do:
Open a text editor (Notepad for example) and copy the above data into the file.
For the first script, save the file as 'wow.vbs'. When done, double click the file, click OK when it asks you and it will tell you to reboot the computer.
The Second file is the same as the first, but should be saved as 'wow.reg'. Double click the file, allow it to add to the registry. Reboot your computer and check the latencies. - You should be enjoying lower pings =)
Tags:
Share
You need to be a member of SCaR to add comments!
Join this social network