![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: Display Multiple Lines of Output in a Web Page
|
||
strComputer = "."
Set objExplorer = WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Visible = 1 Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Service") For Each objItem in colItems strHTML = objItem.DisplayName & " = " & objItem.State & " " objExplorer.Document.Body.InnerHTML = strHTML Next | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |