45 lines
1.3 KiB
HTML
45 lines
1.3 KiB
HTML
<!- Copyright (c) Microsoft Corporation, All Rights Reserved ->
|
|
<html>
|
|
<!-------------------------------------------------------------------------
|
|
|
|
This sample illustrates the use of the WMI Scripting API within
|
|
an HTML page, using VBScript. It displays a Win32_service name
|
|
using the asynchronous API.
|
|
|
|
The WMI Scripting objects are instantiated using their CLSID's
|
|
and the HTML <OBJECT> tag.
|
|
|
|
---------------------------------------------------------------------------->
|
|
|
|
<head>
|
|
<title>WMI Scripting HTML Sample - Service Display 1 (VBScript asynchronous version)</title>
|
|
<script FOR="mysink" EVENT="OnCompleted(hResult, pErrorObject, pAsyncContext)"
|
|
LANGUAGE="VBScript">
|
|
alert("Completed")
|
|
</script>
|
|
<script FOR="mysink"
|
|
EVENT="OnObjectReady(objObject, objAsyncContext)" LANGUAGE="VBScript">
|
|
document.all.info.innerText = objObject.DisplayName
|
|
</script>
|
|
<script
|
|
LANGUAGE="VBScript">
|
|
<!--
|
|
Sub Document_OnClick
|
|
Set Service = Locator.ConnectServer()
|
|
Service.GetAsync mysink, "Win32_Service.Name=""Winmgmt"""
|
|
end sub
|
|
-->
|
|
</script>
|
|
</head>
|
|
|
|
<body>
|
|
|
|
<p>Click in this window for the name of the WMI service: <span ID="info">unknown </span>.
|
|
<object ID="Locator" CLASSID="CLSID:76A64158-CB41-11D1-8B02-00600806D9B6">
|
|
</object>
|
|
<object ID="mysink" CLASSID="CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223">
|
|
</object>
|
|
</p>
|
|
</body>
|
|
</html>
|