1. strComputer = "." 
2.  
3. Set objExplorer = WScript.CreateObject("InternetExplorer.Application") 
4. objExplorer.Navigate "about:blank"    
5. objExplorer.ToolBar = 0 
6. objExplorer.StatusBar = 0 
7. objExplorer.Visible = 1 
8.  
9. Set objWMIService = GetObject _ 
10.     ("winmgmts:\" & strComputer & " ootcimv2") 
11. Set colItems = objWMIService.ExecQuery _ 
12.   ("SELECT * FROM Win32_Service") 
13.  
14. For Each objItem in colItems 
15.     strHTML = strHTML & objItem.DisplayName  & " = " & objItem.State & "<BR>" 
16. Next 
17.  
18. objExplorer.Document.Body.InnerHTML = strHTML