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