2010-07-16 20:49

/* Displays network information (including proxy server information) for Internet Explorer */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2\Applications\MicrosoftIE")
coliesettings = objwmiservice~execquery("Select * from MicrosoftIE_LANSettings")
DO striesetting OVER coliesettings
	SAY "Autoconfiguration proxy:" striesetting~autoconfigproxy
	SAY "Autoconfiguration URL:" striesetting~autoconfigurl
	SAY "Autoconfiguration Proxy detection mode:" striesetting~autoproxydetectmode
	SAY "Proxy:" striesetting~proxy
	SAY "Proxy override:" striesetting~proxyoverride
	SAY "Proxy server:" striesetting~proxyserver
	SAY
END

2010-07-16 20:49