sProxyServer = "192.168.1.254:3128" sOverrides = "192.168.1.*;" ' ========================================================= On Error Resume Next Set oShell = CreateObject("WScript.Shell") sRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\" sRegVal = oShell.RegRead(sRegKey & "ProxyServer") If Err.number <> 0 Then oShell.RegWrite sRegKey & "ProxyServer", sProxyServer, "REG_SZ" oShell.RegWrite sRegKey & "ProxyOverride", sOverrides, "REG_SZ" oShell.RegWrite sRegKey & "ProxyEnable", 00000001, "REG_DWORD" End If Set oShell = nothing