Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

28 lines
845 B

  1. <HTML>
  2. <HEAD>
  3. <TITLE>WBEM VBScript Example</TITLE>
  4. <SCRIPT FOR="mysink" EVENT="OnCompleted(hResult, pErrorObject, pAsyncContext)" LANGUAGE="VBScript">
  5. alert("Completed")
  6. </SCRIPT>
  7. <SCRIPT FOR="mysink" EVENT="OnObjectReady(objObject, objAsyncContext)" LANGUAGE="VBScript">
  8. document.all.info.innerText = objObject.DisplayName
  9. </SCRIPT>
  10. <SCRIPT FOR="document" EVENT="onclick()" LANGUAGE ="JavaScript">
  11. var service = locator.ConnectServer();
  12. service.Security_.ImpersonationLevel=3;
  13. service.GetAsync(mysink,'Win32_Service.Name="Winmgmt"');
  14. </SCRIPT>
  15. </HEAD>
  16. <BODY>
  17. Click for name of service:
  18. <SPAN ID="info">
  19. unknown
  20. </SPAN>.
  21. <OBJECT ID="locator" CLASSID="CLSID:76A64158-CB41-11D1-8B02-00600806D9B6"></OBJECT>
  22. <OBJECT ID="mysink" CLASSID="CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223"></OBJECT>
  23. </BODY>
  24. </HTML>