<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 "inet@microsoft.com" 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>