21 lines
482 B
21 lines
482 B
<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>
|