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.
|
|
<HTML><HEAD><TITLE>WBEM PerlScript Example</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="PerlScript">
use OLE;use Win32::OLE;
sub Document_OnClick() { $service = $window->locator->ConnectServer(); $service->{Security_}->{ImpersonationLevel}=3; $service->GetAsync($window->mysink,'Win32_Service.Name="Winmgmt"'); }</SCRIPT></HEAD><BODY>The name of the service is <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></BODY></HTML>
|
