<HTML>
<HEAD>
<TITLE>WBEM VBScript Example</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub window_onload
Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer()
Service.Security_.ImpersonationLevel=3
Set Process = Service.Get("Win32_Service.Name=""Winmgmt""")
document.all.info.innerText = Process.DisplayName
end sub
</SCRIPT>
</HEAD>
<BODY>
The name of the service is
<SPAN ID="info">
unknown
</SPAN>.
</BODY>
</HTML>