vbs在网页中显示服务

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 = strhtml & objitem.displayname  & " = " & objitem.state & "<br>"
next

objexplorer.document.body.innerhtml = strhtml