2010-07-16 20:49

/* Displays information about Internet Explorer connection settings */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2\Applications\MicrosoftIE")
coliesettings = objwmiservice~execquery("Select * from MicrosoftIE_ConnectionSettings")
DO striesetting OVER coliesettings
	SAY "Allow Internet programs:" striesetting~allowinternetprograms
	SAY "Autoconfiguration URL:" striesetting~autoconfigurl
	SAY "Auto disconnect:" striesetting~autodisconnect
	SAY "Autoconfiguration proxy detection mode:" striesetting~autoproxydetectmode
	SAY "Data encryption:" striesetting~dataencryption
	SAY "Default:" striesetting~default
	SAY "Default gateway:" striesetting~defaultgateway
	SAY "Dialup server:" striesetting~dialupserver
	SAY "Disconnect idle time:" striesetting~disconnectidletime
	SAY "Encrypted password:" striesetting~encryptedpassword
	SAY "IP address:" striesetting~ipaddress
	SAY "IP header compression:" striesetting~ipheadercompression
	SAY "Modem:" striesetting~modem
	SAY "Name:" striesetting~name
	SAY "Network logon:" striesetting~networklogon
	SAY "Network protocols:" striesetting~networkprotocols
	SAY "Primary DNS server:" striesetting~primarydns
	SAY "Primary WINS server:" striesetting~primarywins
	SAY "Proxy:" striesetting~proxy
	SAY "Proxy override:" striesetting~proxyoverride
	SAY "Proxy server:" striesetting~proxyserver
	SAY "Redial attempts:" striesetting~redialattempts
	SAY "Redial wait:" striesetting~redialwait
	SAY "Script fileame:" striesetting~scriptfilename
	SAY "Secondary DNS server:" striesetting~secondarydns
	SAY "Secondary WINS server:" striesetting~secondarywins
	SAY "Server assigned IP address:" striesetting~serverassignedipaddress
	SAY "Server assigned name server:" striesetting~serverassignednameserver
	SAY "Software compression:" striesetting~softwarecompression
	SAY
END

2010-07-16 20:49