Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\MaxConnectionsPer1_0Server",10,"REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\MaxConnectionsPerServer",10,"REG_DWORD" Message = "Internet Explorer Downloads have been increased to 10." X = MsgBox(Message, vbOKOnly, "Done") Set WshShell = Nothing