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>Microsoft System Information</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=windows-1252"><META HTTP-EQUIV=PICS-Label CONTENT='(PICS-1.1 "http://www.rsac.org/ratingsv01.html" l comment "RSACi North America Server" by "[email protected]" r (n 0 s 0 v 0 l 0))'>
<SCRIPT ID=Script1 SRC="/scripts/Common.js"></SCRIPT>
<LINK ID=Stylesheet_Ref1 href="/css/PCHealth.css" rel=STYLESHEET type=text/css>
<SCRIPT LANGUAGE=VBScript> Dim g_oDc,g_ms Function CreateDCO() ' Create the data collection object. Set g_oDc = pchealth.CreateObject_DataCollection set g_ms = msinfo
' Specify the data set. need to change to relative path g_oDc.History_MaxDeltas = 30 g_oDc.MachineData_Dataspec = GetVendorPath & szUploadXMLFileName g_oDc.History_Dataspec = GetWinPath & "\PCHealth\HelpCtr\Config\DataSpec.XML" g_oDc.onComplete = dc_onCompleteJS g_oDc.OnProgress = dc_onProgressJS g_ms.DCO_IUnknown = g_oDc 'g_oDc.ExecuteASync end Function
sub dc_onComplete(DataCollectionPtr, hresult) if not (g_oDc is Nothing) then set stream = g_oDc.History_GetStream g_ms.SetHistoryStream(stream) 'we don't need a separate machinedata stream, because the history contains a snapshot 'set stream2 = g_oDc.MachineData_GetStream 'g_ms.SetMachineDataStream(stream2) 'BODY onload=test() end if end sub
sub dc_onProgress(DataCollectionPtr, done, total) Dim PercentDone
if total = 0 then ' Avoid divide-by-zero errors. total = 100 end if PercentDone = Round(done / total * 90) if not (g_ms is Nothing) then g_ms.UpdateDCOProgress(PercentDone) end if end sub
sub killDCO if not (g_oDc is Nothing) then g_oDc.Abort end if Set g_oDc = Nothing end sub</SCRIPT>
<SCRIPT LANGUAGE=JavaScript> function dc_onCompleteJS(DataCollectionPtr, hresult) { if (g_oDc != null) { dc_onComplete(DataCollectionPtr, hresult); } }
function dc_onProgressJS(DataCollectionPtr, done, total) { dc_onProgress(DataCollectionPtr, done, total); }</SCRIPT>
<OBJECT ID=pchealth classid=CLSID:FC7D9E02-3F9E-11d3-93C0-00C04F72DAF7></OBJECT>
</HEAD>
<BODY onload=CreateDCO() onunload=KillDCO() SCROLL=NO style="margin: 0px"> <OBJECT ID="MSInfo" CLASSID="CLSID:273380E8-1438-4B2C-95B0-713284FBC302" width="100%" height="100%"></BODY>
</HTML>
|
