29 lines
788 B
HTML
29 lines
788 B
HTML
<HTML>
|
|
<HEAD>
|
|
<TITLE>WBEM VBScript Example</TITLE>
|
|
|
|
<SCRIPT FOR="mysink" EVENT="OnObjectReady(objObject, objAsyncContext)" LANGUAGE="VBScript">
|
|
document.all.info.innerText = objObject.TargetInstance.Message
|
|
</SCRIPT>
|
|
|
|
<SCRIPT LANGUAGE="VBScript">
|
|
<!--
|
|
|
|
Sub window_onLoad
|
|
Set Service = Locator.ConnectServer()
|
|
Service.Security_.ImpersonationLevel=3
|
|
Service.ExecNotificationQueryAsync mysink, _
|
|
"select * from __instancecreationevent where targetinstance isa 'Win32_NTLogEvent'"
|
|
end sub
|
|
-->
|
|
</SCRIPT>
|
|
</HEAD>
|
|
<BODY>
|
|
<SPAN ID="info">
|
|
No event received yet
|
|
</SPAN>.
|
|
<OBJECT ID="Locator" CLASSID="CLSID:76A64158-CB41-11D1-8B02-00600806D9B6"></OBJECT>
|
|
<OBJECT ID="mysink" CLASSID="CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223"></OBJECT>
|
|
</BODY>
|
|
</HTML>
|