Piyush Posted December 8, 2009 Share Posted December 8, 2009 How to change the proxy settings of internet explorer....with autoit...Thanks.. [font="Comic Sans MS"][size="7"]Piyush.....[/size][/font][font="Palatino Linotype"][size="2"]Some Of My Scripts...Cool Font Generator Train Searcher and Tracer[/size][/font] Link to comment Share on other sites More sharing options...
Juvigy Posted December 8, 2009 Share Posted December 8, 2009 One way is with WMI: GetProxySetting() SetProxySetting("someproxy.com",8080) Func SetProxySetting($myProxyServer , $myProxyPort) $winmgmts = ObjGet("winmgmts:{impersonationLevel=impersonate}") $win32_Proxy = $winmgmts.InstancesOf ("win32_Proxy") Dim $Array[1] for $Obj in $win32_Proxy $result = $Obj.SetProxySetting($myProxyServer,$myProxyPort) $Array[UBound($Array) - 1] = $result ReDim $Array[UBound($Array) + 1] next ReDim $Array[UBound($Array) - 1] Return $Array EndFunc Func GetProxySetting() $winmgmts = ObjGet("winmgmts:{impersonationLevel=impersonate}") $win32_Proxy = $winmgmts.InstancesOf ("win32_Proxy") Dim $Array[1][2] for $Obj in $win32_Proxy $Array[UBound($Array) - 1][0] = $Obj.ProxyServer $Array[UBound($Array) - 1][1] = $Obj.ProxyPortNumber ReDim $Array[UBound($Array) + 1][2] next ReDim $Array[UBound($Array) - 1][2] Return $Array EndFunc Other way is with regedit to modify the keys located in: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings Link to comment Share on other sites More sharing options...
Piyush Posted December 8, 2009 Author Share Posted December 8, 2009 One way is with WMI: GetProxySetting() SetProxySetting("someproxy.com",8080) Func SetProxySetting($myProxyServer , $myProxyPort) $winmgmts = ObjGet("winmgmts:{impersonationLevel=impersonate}") $win32_Proxy = $winmgmts.InstancesOf ("win32_Proxy") Dim $Array[1] for $Obj in $win32_Proxy $result = $Obj.SetProxySetting($myProxyServer,$myProxyPort) $Array[UBound($Array) - 1] = $result ReDim $Array[UBound($Array) + 1] next ReDim $Array[UBound($Array) - 1] Return $Array EndFunc Func GetProxySetting() $winmgmts = ObjGet("winmgmts:{impersonationLevel=impersonate}") $win32_Proxy = $winmgmts.InstancesOf ("win32_Proxy") Dim $Array[1][2] for $Obj in $win32_Proxy $Array[UBound($Array) - 1][0] = $Obj.ProxyServer $Array[UBound($Array) - 1][1] = $Obj.ProxyPortNumber ReDim $Array[UBound($Array) + 1][2] next ReDim $Array[UBound($Array) - 1][2] Return $Array EndFunc Other way is with regedit to modify the keys located in: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings Thanks for that.. [font="Comic Sans MS"][size="7"]Piyush.....[/size][/font][font="Palatino Linotype"][size="2"]Some Of My Scripts...Cool Font Generator Train Searcher and Tracer[/size][/font] Link to comment Share on other sites More sharing options...
Bert Posted December 8, 2009 Share Posted December 8, 2009 Another way is to use a configuration script. Info on doing this can be found here: http://technet.microsoft.com/en-us/library/dd361918.aspx The Vollatran project My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now