Returns proxy and NNTP information for a computer.
This script was tested using Object REXX 2.1.0 for Microsoft Windows, available from IBM.
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
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