showservices.vbs

Set objExplorer = WScript.CreateObject("InternetExplorer.Application", "IE_")

objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 400
objExplorer.Height = 250
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
Set objDocument = objExplorer.Document
objDocument.Open

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer& "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_Service")
For Each objService in colServices
 objDocument.Writeln objService.DisplayName & "<BR>"
 Wscript.Sleep 2000
Next

Sub IE_onQuit()
 Wscript.Quit
End Sub