Returns proxy and NNTP information for a computer.

This script was tested using Object REXX 2.1.0 for Microsoft Windows, available from IBM.

Object REXX
Edit|Remove
strComputer = "."
objWMIService = .OLEObject~GetObject("winmgmts:\\"||strComputer||"\root\CIMV2")
do objItem over objWMIService~ExecQuery("Select * from NetDiagnostics")
    say "bIE Proxy:" objItem~bIEProxy
    say "id:" objItem~id
    say "IE Proxy:" objItem~IEProxy
    say "IE Proxy Port:" objItem~IEProxyPort
    say "News NNTP Port:" objItem~NewsNNTPPort
    say "News Server:" objItem~NewsServer
end