90 lines
2.4 KiB
HTML
90 lines
2.4 KiB
HTML
<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> |