mirror of https://github.com/tongzx/nt5src
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.
3679 lines
121 KiB
3679 lines
121 KiB
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
|
|
<HTML>
|
|
<!--
|
|
******************************************************************
|
|
Copyright (c) 1999 Microsoft Corporation
|
|
|
|
Module Name:
|
|
Bug Reporting Page
|
|
|
|
File:
|
|
bugrep.htm
|
|
|
|
Abstract:
|
|
Bug reporting channel for Millennium beta
|
|
|
|
Internal Version : 1.000
|
|
|
|
1999-09-10 : Cleaned up formatting of HTML and made syntax clean
|
|
1999-09-20 : Cleaning up code
|
|
1999-09-21 : Bugs P1 99969, 102646, 102645, 102740, 102196 (102811?)
|
|
1999-09-22 : Cleaned up formatting, added removing from a list and
|
|
made localization easier
|
|
1999-09-23 : Made printing easier with expanding text areas
|
|
1999-09-27 : Removed leading spaces from filenames in AddFile
|
|
BetaID field accepts only 0-9 values
|
|
Error message if XML files are missing (broken install)
|
|
1999-09-28 : Fixed alignment of text areas to top
|
|
Fixed focus related bug in text areas
|
|
Fixed to be more localization friendly (Bug 103361)
|
|
Removed config.sys and autoexec.bat from collected file list
|
|
1999-09-29 : Added user.dat, system.dat and classes.dat to default file list
|
|
1999-09-30 : Added DirectX data collection
|
|
Added system drive path instead of \..\ convention
|
|
Added option to handle data collection failures
|
|
1999-10-01 : Added ActiveX object to collect build and language info
|
|
Register ActiveX object on script load (brp_sysinfo.dll)
|
|
Added tracking number after data upload
|
|
Moved thankyou into a SPAN to display tracking after upload
|
|
1999-10-05 : Adding IEINFO5.MOF to cab and using MOFCOMP to compile this
|
|
Collecting IE info along with machine data
|
|
Forced extension of saved file to be CAB (bug 102973)
|
|
1999-10-06 : Changed directx diag running mode to 1
|
|
Disabled DirectX data collection
|
|
1999-10-11 : Changed max sizes of text-areas to 2000
|
|
Changed to use bugrep.css
|
|
1999-10-12 : Added xml files to list of collected files
|
|
1999-10-13 : Fixed IE realted break
|
|
1999-10-13 : Added min space image
|
|
1999-10-16 : When no info checked direct CAB creating skipping DC
|
|
Registry files collected only for Area = Setup
|
|
CollecOk related bugs fixed
|
|
Restructed flow to have Save and Submit check boxes
|
|
Report bytes transmitted in upload
|
|
Changed CAB file name to preserve all .'s in filename
|
|
Behaviour changed to hide all input field when saving
|
|
or submitting bug so that no fields can be changed
|
|
After finishing all fields are restored
|
|
Upload bug reporting page version in incident XML
|
|
Changed cursor to busy when uploading/saving bug
|
|
Disabled controls during submit
|
|
Added record of incidents using SAF framework for
|
|
saved and submitted incidents in a \incidents
|
|
directory
|
|
1999-10-18 : Set focus to beta id on page load
|
|
Set focus to missing entry when validating form
|
|
Removed .'s from BetaID
|
|
Declared all objects locally/globally
|
|
Order of error checking consistent with screen order
|
|
Fix for MOF command not returning after finishing
|
|
1999-10-19 : Changed Confirm to have title
|
|
Added link to winbeta site
|
|
Added bug page version
|
|
If failure then do not get streams
|
|
Changed Run commands to use short path name for IEINFO
|
|
Changed Run commands to use short path name for SYSINFO
|
|
1999-10-23 : Changed checking of stream to JS code to work around VB problem
|
|
1999-10-24 : Added collecting hcupdate.log
|
|
Added collecting WMI logs
|
|
Added dc_onComplete function
|
|
1999-10-25 : Find build number and do proper RecordIncident
|
|
1999-10-26 : Changed occured to occurred
|
|
Added width for space.gif image for localization
|
|
1999-10-27 : Updated xml files to handle changes to dataspec.xml
|
|
1999-10-28 : Text boxes on incident view have scroll bars but no edit/cut/paste
|
|
Fixed . in file name to be at end
|
|
Changed Done to Submit
|
|
1999-10-28 : Fixed to initialize only once (brp_init.ini)
|
|
Save incident data in csv files
|
|
Added resume.txt
|
|
Fixed build break
|
|
1999-10-30 : Added presisting betaid and other options
|
|
Added DrWatson log collection
|
|
Added display for cabbit and directX
|
|
Extensive validation of filenames
|
|
Auto filling of filename from title
|
|
Set default folder to millennium bugs
|
|
|
|
Requires following files
|
|
|
|
ErrCodes.vbs
|
|
bugrep.css
|
|
bug_upload_collect.xml
|
|
bug_upload_collect_2408.xml
|
|
bug_upload_nocollect.xml
|
|
dataspec.xml
|
|
|
|
******************************************************************
|
|
-->
|
|
<HEAD><TITLE>File a bug report</TITLE>
|
|
<META content="text/html; charset=windows-1252" http-equiv=Content-Type>
|
|
<LINK ID=Stylesheet_Ref href="bugrep.css" rel=STYLESHEET type=text/css>
|
|
<META content=/scripts/PostInfo.asp name=postinfo>
|
|
<OBJECT ID=pchealth classid=CLSID:FC7D9E02-3F9E-11d3-93C0-00C04F72DAF7></OBJECT>
|
|
|
|
<SCRIPT ID="ErrCodesList" LANGUAGE=VBScript SRC="ErrCodes.vbs"></SCRIPT>
|
|
<SCRIPT LANGUAGE=VBScript>
|
|
'
|
|
' Make sure all variables are declared explicitly and to make typos easier
|
|
' to find (in in the current code)
|
|
'
|
|
'option explicit
|
|
|
|
'
|
|
' ProductName (should be equal to product name field in SAF1.XML)
|
|
'
|
|
const L_BRP_Version = "4.90.00."
|
|
const L_BRPBuild_Version = "2415"
|
|
|
|
'
|
|
' ProductName (should be equal to product name field in SAF1.XML)
|
|
'
|
|
const L_ProductName_Version = "Microsoft Millennium Beta"
|
|
|
|
'
|
|
' Vendor directory under which all files are stored on the client
|
|
'
|
|
const L_VendorChannel_Address = "CN=Microsoft Corporation,L=Redmond,S=Washington,C=US"
|
|
'
|
|
' Title for all dialog message boxes
|
|
'
|
|
const L_MsgBoxTitle_Message = "Bug Reporting"
|
|
|
|
'
|
|
' Server name for uploading bugs
|
|
'
|
|
const L_ServerName_Address = "http://beta.mspchealth.com/pchealth_esc/UpLoadServer.dll"
|
|
'const L_ServerNameTest_Address = "http://pchts1/pchealth_esc/UpLoadServer.dll"
|
|
const L_ServerNameTest_Address = "http://spoofweb/pchealth_esc/UpLoadServer.dll"
|
|
|
|
'
|
|
' Testing flag, set to 0 for release code, 1 for testing code and using the
|
|
' test server
|
|
'
|
|
const BRP_DebugFlag = 0
|
|
|
|
|
|
'
|
|
' Main code, only localization changes to be made after this section
|
|
'
|
|
const UL_HISTORY_LOG = 1
|
|
const UL_HISTORY_LOG_AND_DATA = 2
|
|
const UL_HISTORY_NONE = 0
|
|
|
|
const UL_BACKGROUND = 0
|
|
const UL_FOREGROUND = 1
|
|
|
|
const UL_ABORTED = 4
|
|
const UL_ACTIVE = 1
|
|
const UL_COMPLETED = 6
|
|
const UL_DELETED = 7
|
|
const UL_FAILED = 5
|
|
const UL_NOTACTIVE = 0
|
|
const UL_SUSPENDED = 2
|
|
const UL_TRANSMITTING = 3
|
|
|
|
const DC_NOTACTIVE = 0
|
|
const DC_COLLECTING = 1
|
|
const DC_FAILED = 2
|
|
const DC_COMPLETED = 3
|
|
|
|
'
|
|
' g_oDc Data collection object
|
|
' g_oUpl Upload object
|
|
' g_oCab Cab creation object
|
|
'
|
|
Dim g_oDc, g_oUpl, g_oCab, g_nInProgress, g_bSaveIncident, g_bSubmitIncident
|
|
Dim g_bFormValid
|
|
Dim g_nCurrentBuild
|
|
|
|
Dim g_SettingsBetaId
|
|
Dim g_SettingsLastPath
|
|
Dim g_SettingsShareInfo
|
|
Dim g_SettingsSubmitNow
|
|
Dim g_SettingsSaveToDisk
|
|
Dim g_CrashDumpFile
|
|
Dim g_KernelCrash
|
|
Dim g_CrashApp
|
|
Dim g_DeleteCrashDump
|
|
|
|
Set g_oDc = Nothing
|
|
Set g_oUpl = Nothing
|
|
Set g_oCab = Nothing
|
|
|
|
g_nCurrentBuild = 0
|
|
g_nInProgress = 0
|
|
g_bSaveIncident = False
|
|
g_bSubmitIncident= False
|
|
g_bFormValid = False
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' Validate form before submitting report
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub ValidateForm()
|
|
|
|
const L_MissingField_ErrorMessage = "Missing required field: "
|
|
const L_FormField_FIELDNAME_BetaID_TEXT = "Beta ID"
|
|
const L_FormField_FIELDNAME_Title_TEXT = "Problem title"
|
|
const L_FormField_FIELDNAME_Description_TEXT = "Describe the problem"
|
|
const L_FormField_FIELDNAME_Expected_TEXT = "What did you expect to happen"
|
|
const L_FormField_FIELDNAME_Repro_TEXT = "Enter the steps required to reproduce the problem"
|
|
const L_FormField_FIELDNAME_Severity_TEXT = "Problem type"
|
|
const L_FormField_FIELDNAME_Area_TEXT = "Area"
|
|
const L_BetaIDBadRange_ErrorMessage = "Your Beta ID must be a number between 0 and 2147483647."
|
|
|
|
Dim misc_fields, colon, bang, field, description, BetaIDValue
|
|
|
|
' Override the default behavior so we can control where we go.
|
|
window.event.cancelBubble = true
|
|
window.event.returnValue = false
|
|
|
|
'
|
|
'Format of misc-fields is a colon-separated list. Each entry
|
|
'consists of the field name to check, optionally followed by a
|
|
'bang and a human-readable description of that field.
|
|
'
|
|
misc_fields = "BetaID!" & L_FormField_FIELDNAME_BetaID_TEXT & _
|
|
":Title!" & L_FormField_FIELDNAME_Title_TEXT
|
|
|
|
while misc_fields <> ""
|
|
colon = instr(misc_fields, ":")
|
|
if colon <> 0 then
|
|
field = left(misc_fields, colon-1)
|
|
misc_fields = right(misc_fields, len(misc_fields) - colon)
|
|
else
|
|
field = misc_fields
|
|
misc_fields = ""
|
|
end if
|
|
bang = instr(field, "!")
|
|
if bang <> 0 then
|
|
description = right(field, len(field) - bang)
|
|
field = left(field, bang-1)
|
|
else
|
|
description = field
|
|
end if
|
|
if IsNull(document.all(field)) or len(document.all(field).value) = 0 then
|
|
Call BRP_MessageBox(L_MissingField_ErrorMessage & description)
|
|
g_bFormValid = False
|
|
'
|
|
' Set focus to missing field
|
|
'
|
|
document.all(field).focus
|
|
exit sub
|
|
end if
|
|
wend
|
|
|
|
if document.all.Severity.value = "N" then
|
|
Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_Severity_TEXT)
|
|
g_bFormValid = False
|
|
document.all.Severity.focus
|
|
exit sub
|
|
end if
|
|
|
|
if document.all.Area.value = "NA" then
|
|
Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_Area_TEXT)
|
|
g_bFormValid = False
|
|
document.all.Area.focus
|
|
exit sub
|
|
end if
|
|
|
|
'
|
|
'Format of misc-fields is a colon-separated list. Each entry
|
|
'consists of the field name to check, optionally followed by a
|
|
'bang and a human-readable description of that field.
|
|
'
|
|
misc_fields = "Description!" & L_FormField_FIELDNAME_Description_TEXT & _
|
|
":ExpectedBehavior!" & L_FormField_FIELDNAME_Expected_TEXT & _
|
|
":StepsToRepro!" & L_FormField_FIELDNAME_Repro_TEXT
|
|
|
|
while misc_fields <> ""
|
|
colon = instr(misc_fields, ":")
|
|
if colon <> 0 then
|
|
field = left(misc_fields, colon-1)
|
|
misc_fields = right(misc_fields, len(misc_fields) - colon)
|
|
else
|
|
field = misc_fields
|
|
misc_fields = ""
|
|
end if
|
|
bang = instr(field, "!")
|
|
if bang <> 0 then
|
|
description = right(field, len(field) - bang)
|
|
field = left(field, bang-1)
|
|
else
|
|
description = field
|
|
end if
|
|
if IsNull(document.all(field)) or len(document.all(field).value) = 0 then
|
|
Call BRP_MessageBox(L_MissingField_ErrorMessage & description)
|
|
g_bFormValid = False
|
|
'
|
|
' Set focus to missing field
|
|
'
|
|
document.all(field).focus
|
|
exit sub
|
|
end if
|
|
wend
|
|
|
|
on error resume next
|
|
BetaIDvalue = CLng(document.all.BetaID.value)
|
|
if BetaIDvalue < 0 OR BetaIDvalue > 2147483647 OR Err.number <> 0 then
|
|
Call BRP_MessageBox(L_BetaIDBadRange_ErrorMessage)
|
|
g_bFormValid = False
|
|
document.all.BetaID.focus
|
|
exit sub
|
|
end if
|
|
|
|
'
|
|
' Return validity flag in a global variable
|
|
'
|
|
g_bFormValid = True
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub ValidateTextLength(limit)
|
|
const L_TooLong1_ErrorMessage = "This text field is too long. It is limited to "
|
|
const L_TooLong2_ErrorMessage = " characters. The entry has been truncated."
|
|
|
|
if len(window.event.srcElement.value) > limit then
|
|
BRP_MessageBox L_TooLong1_ErrorMessage & CStr(limit) & L_TooLong2_ErrorMessage
|
|
window.event.srcElement.value = left(window.event.srcElement.value, limit)
|
|
window.event.srcElement.focus
|
|
end if
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' Message box with OK and special title
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_MessageBox(msg)
|
|
|
|
Call MsgBox(msg,vbOKOnly,L_MsgBoxTitle_Message)
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function BRP_Confirm(msg)
|
|
|
|
BRP_Confirm = MsgBox(msg,vbYesNo,L_MsgBoxTitle_Message)
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_TraceMessage(msg)
|
|
|
|
if BRP_DebugFlag >= 2 then
|
|
Call MsgBox(msg,vbOKOnly,L_MsgBoxTitle_Message)
|
|
end if
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function GetVendorPath()
|
|
|
|
Dim oChannel
|
|
|
|
Set oChannel= pchealth.CreateObject_Channel(L_VendorChannel_Address, L_ProductName_Version)
|
|
GetVendorPath = oChannel.VendorDirectory
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function GetWinPath()
|
|
|
|
Dim oFS
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
GetWinPath = oFS.GetSpecialFolder(0)
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function GetWinSystemPath()
|
|
|
|
Dim oFS
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
GetWinSystemPath = oFS.GetSpecialFolder(1)
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function GetTempPath()
|
|
|
|
Dim oFS
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
GetTempPath = oFS.GetSpecialFolder(2)
|
|
|
|
end function
|
|
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function GetSystemDrivePath()
|
|
|
|
Dim oWshShell, szWinBootDir
|
|
Dim slash
|
|
|
|
Set oWshShell = CreateObject("WScript.Shell")
|
|
szWinBootDir = oWshShell.ExpandEnvironmentStrings("%WINBOOTDIR%")
|
|
slash = instr(szWinBootDir,"\")
|
|
if slash <> 0 then
|
|
GetSystemDrivePath = left(szWinBootDir,slash-1)
|
|
else
|
|
GetSystemDrivePath = "C:"
|
|
end if
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function RunExternalApplicationDxDiag()
|
|
|
|
Dim oFS
|
|
Dim oWshShell
|
|
|
|
Set oWshShell = CreateObject("WScript.Shell")
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
szAppName = GetWinSystemPath & "\dxdiag.exe " & GetTempPath & "\dxdiag.txt"
|
|
|
|
Call BRP_TraceMessage(szAppName)
|
|
|
|
'
|
|
' Activate the window and display in minimum size
|
|
'
|
|
RunExternalApplicationDxDiag = oWshShell.Run(szAppName, 1, True)
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function RegisterBrpSysInfo()
|
|
|
|
Dim oFS
|
|
Dim oFile
|
|
Dim oWshShell
|
|
|
|
Set oWshShell = CreateObject("WScript.Shell")
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
szFileName = GetVendorPath & "\brp_sysinfo.dll"
|
|
|
|
if oFS.FileExists( szFileName ) then
|
|
|
|
Set oFile = oFS.GetFile(szFileName)
|
|
szAppName = GetWinSystemPath & "\regsvr32.exe /s " & oFile.ShortPath
|
|
|
|
Call BRP_TraceMessage(szAppName)
|
|
|
|
'
|
|
' Activate the window and display in minimum size
|
|
'
|
|
RegisterBrpSysInfo = oWshShell.Run(szAppName, 2, True)
|
|
else
|
|
RegisterBrpSysInfo = True
|
|
end if
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function RegisterIEInfoMOF()
|
|
|
|
Dim oFS
|
|
Dim oFile
|
|
Dim oWshShell
|
|
|
|
Set oWshShell = CreateObject("WScript.Shell")
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
szFileName = GetVendorPath & "\ieinfo5.mof"
|
|
|
|
if oFS.FileExists( szFileName ) then
|
|
|
|
Set oFile = oFS.GetFile(szFileName)
|
|
|
|
szAppName = "command /c " & GetWinSystemPath & "\wbem\mofcomp " & oFile.ShortPath
|
|
|
|
Call BRP_TraceMessage(szAppName)
|
|
'
|
|
' Activate the window and display in minimum size
|
|
'
|
|
RegisterIEInfoMOF = oWshShell.Run(szAppName, 2, True)
|
|
else
|
|
RegisterIEInfoMOF = True
|
|
end if
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' Get build number from string of type X.XX.XXXX xxxx, assumes 4 digit build
|
|
' number and sets g_nCurrentBuild
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_SetOSBuild(szVer)
|
|
|
|
Dim period, szVer1, szVer2, szVer3
|
|
|
|
period = instr(szVer,".")
|
|
if period <> 0 then
|
|
szVer1 = right(szVer,len(szVer)-period)
|
|
period = instr(szVer1,".")
|
|
if period <> 0 then
|
|
szVer2 = right(szVer1,len(szVer1)-period)
|
|
szVer3 = left(szVer2,4)
|
|
nVer = CInt(szVer3)
|
|
g_nCurrentBuild = nVer
|
|
end if
|
|
end if
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_SetStatusMessage(msg)
|
|
|
|
document.all.Status.innerHTML = msg
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_SetProgressMessage(msg)
|
|
|
|
document.all.Status.innerHTML = msg
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_AppendProgressMessage(msg)
|
|
|
|
document.all.Status.innerHTML = document.all.Status.innerHTML & msg
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub SetProgress(percent)
|
|
|
|
L_PctDone_Message = "% done"
|
|
|
|
Call BRP_SetProgressMessage(percent & L_PctDone_Message)
|
|
|
|
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)
|
|
Call SetProgress(PercentDone)
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub dc_onStatusChange(DataCollectionPtr, status)
|
|
|
|
const L_DataCollection_STATUS_Collecting_Message = "Collecting data"
|
|
|
|
Dim szDCStatus
|
|
|
|
select case status
|
|
case DC_COLLECTING szDCStatus=L_DataCollection_STATUS_Collecting_Message
|
|
end select
|
|
|
|
Call BRP_SetStatusMessage(szDCStatus)
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub dc_onComplete(DataCollectionPtr, hresult)
|
|
|
|
const L_DataCollection_STATUS_NotActive_Message = "Not active"
|
|
const L_DataCollection_STATUS_Failed_ErrorMessage = "Failed data collection"
|
|
const L_DataCollection_STATUS_Completed_Message = "Creating CAB file"
|
|
const L_CollectError_ErrorMessage = "The following error occurred during data collection: "
|
|
const L_CollectErrorNoErrNum_ErrorMessage = "There was an error collecting data about your machine. "
|
|
const L_UploadOnlyFiles_Message = "Do you want to continue by submitting system files from your machine"
|
|
const L_SaveOnlyFiles_Message = "Do you want to continue by saving system files from your machine"
|
|
|
|
Dim status
|
|
Dim szDCStatus, szErrorMessage
|
|
|
|
status = g_oDc.status
|
|
status = CInt(status)
|
|
|
|
select case status
|
|
case DC_NOTACTIVE szDCStatus=L_DataCollection_STATUS_NotActive_Message
|
|
case DC_FAILED szDCStatus=L_DataCollection_STATUS_Failed_ErrorMessage
|
|
case DC_COMPLETED szDCStatus=L_DataCollection_STATUS_Completed_Message
|
|
end select
|
|
|
|
Call BRP_SetStatusMessage(szDCStatus)
|
|
|
|
if status = DC_FAILED or status = DC_COMPLETED then
|
|
UnregisterDCHandlers
|
|
if status = DC_COMPLETED then
|
|
CreateCab(False)
|
|
else
|
|
if Err.number <> 0 then
|
|
szErrorMessage = L_CollectError_ErrorMessage & Err.description & " (" & Err.number & "). "
|
|
else
|
|
szErrorMessage = L_CollectErrorNoErrNum_ErrorMessage
|
|
end if
|
|
if g_bSubmitIncident = True then
|
|
if BRP_Confirm( szErrorMessage & vbCrLf & L_UploadOnlyFiles_Message ) = vbYes then
|
|
CreateCab(True)
|
|
else
|
|
Call BRP_CleanupAfterCancelUpload
|
|
end if
|
|
else
|
|
if g_bSaveIncident = True then
|
|
if BRP_Confirm( szErrorMessage & vbCrLf & L_SaveOnlyFiles_Message ) = vbYes then
|
|
CreateCab(True)
|
|
else
|
|
Call BRP_CleanupAfterCancelUpload
|
|
end if
|
|
end if
|
|
end if
|
|
end if
|
|
end if
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub cab_onComplete(g_oCab, hr)
|
|
const L_CabError_ErrorMessage = "Couldn't create cab file due to error #"
|
|
const L_CabErrorStatus_ErrorMessage = "Error creating cab file"
|
|
|
|
if g_oCab.Status <> 2 then
|
|
Call BRP_MessageBox(L_CabError_ErrorMessage & Hex(hr))
|
|
Call BRP_SetStatusMessage(L_CabErrorStatus_ErrorMessage)
|
|
exit sub
|
|
End if
|
|
|
|
Call SetProgress(100)
|
|
|
|
'
|
|
' Save incident if required
|
|
'
|
|
Call ContinueSaveIncident()
|
|
|
|
'
|
|
' Upload incident if required
|
|
'
|
|
Call ContinueUploadIncident()
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub CollectData()
|
|
|
|
const L_DCFailed_ErrorMessage = "Data collection cannot be carried as the parameter files are missing"
|
|
const L_CabStartStatus_Message = "Creating CAB file"
|
|
|
|
Dim oFS
|
|
Dim iSpecNotFound
|
|
Dim szUploadXMLFileName
|
|
|
|
on error resume next
|
|
Set g_oDc = pchealth.CreateObject_DataCollection
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
iSpecNotFound = FALSE
|
|
|
|
if document.all.CollectOk.checked then
|
|
if g_nCurrentBuild < 2408 then
|
|
szUploadXMLFileName = "\bug_upload_collect_2408.XML"
|
|
else
|
|
szUploadXMLFileName = "\bug_upload_collect.XML"
|
|
end if
|
|
if oFS.FileExists( GetVendorPath & szUploadXMLFileName ) then
|
|
g_oDc.MachineData_Dataspec = GetVendorPath & szUploadXMLFileName
|
|
'
|
|
' If history file exists then use this else just upload regular files
|
|
'
|
|
if oFS.FileExists( GetWinPath & "\PCHealth\HelpCtr\Config\DataSpec.XML" ) then
|
|
g_oDc.History_Dataspec = GetWinPath & "\PCHealth\HelpCtr\Config\DataSpec.XML"
|
|
g_oDc.History_MaxDeltas = 5
|
|
else
|
|
iSpecNotFound = TRUE
|
|
end if
|
|
|
|
else
|
|
iSpecNotFound = TRUE
|
|
end if
|
|
else
|
|
'
|
|
' if a user unchecks data collection, we will not touch any data collection portion,
|
|
' and pretend a data collection failure; server side should check CollectOk flag
|
|
' before read into DCStatus
|
|
'
|
|
Call BRP_SetStatusMessage(L_CabStartStatus_Message)
|
|
Call CreateCab(TRUE)
|
|
exit sub
|
|
end if
|
|
|
|
if ( iSpecNotFound ) then
|
|
BRP_MessageBox L_DCFailed_ErrorMessage
|
|
Call BRP_CleanupAfterCancelUpload
|
|
else
|
|
RegisterDCHandlers
|
|
g_oDc.ExecuteASync
|
|
end if
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function CreateIncident(oInc, iDCFailed)
|
|
'
|
|
' oInc Incident object
|
|
' iDCFailed False if data collection was OK
|
|
' True if data collection failed
|
|
'
|
|
const L_GetDataFailedSS_ErrorMessage = "Failed to get collected machine snapshot data"
|
|
const L_GetDataFailedHS_ErrorMessage = "Failed to get collected machine history data"
|
|
const L_IncCollectError_ErrorMessage = "The following error occurred during data collection: "
|
|
|
|
Dim oTmpStream, oDict, oSysInfo
|
|
Dim misc_fields, field, colon
|
|
Dim fDataValid, fHistoryValid
|
|
|
|
' Colon-separated list of fields to be stored in the data dictionary
|
|
misc_fields = "BetaID:Title:Severity:Area:Reproducibility:ExpectedBehavior:StepsToRepro"
|
|
|
|
Set oInc = pchealth.CreateObject_Incident()
|
|
|
|
oInc.UserName = document.all.BetaID.value
|
|
oInc.ProductID = "Millennium Beta Bug"
|
|
oInc.ProductName = "Millennium"
|
|
oInc.ProblemDescription = document.all.Description.value
|
|
|
|
'
|
|
' Get data stream if data collection did not fail
|
|
'
|
|
on error resume next
|
|
if iDCFailed = False then
|
|
'
|
|
' If incident stream exists then get MachineSnapshot else do not
|
|
' and just continue as data collection has already failed and we
|
|
' have to just continue
|
|
'
|
|
fDataValid = IsMachineDataValid(g_oDc)
|
|
fHistoryValid = IsHistoryDataValid(g_oDc)
|
|
|
|
if fDataValid then
|
|
oInc.MachineSnapshot = g_oDc.MachineData_GetStream
|
|
if document.all.CollectOk.checked then
|
|
if fHistoryValid then
|
|
oInc.MachineHistory = g_oDc.History_GetStream
|
|
else
|
|
Call BRP_SetStatusMessage(L_GetDataFailedHS_ErrorMessage)
|
|
iDCFailed = True
|
|
end if
|
|
end if
|
|
else
|
|
Call BRP_SetStatusMessage(L_GetDataFailedSS_ErrorMessage)
|
|
iDCFailed = True
|
|
end if
|
|
end if
|
|
|
|
oInc.UploadType = 0
|
|
|
|
Set oDict = oInc.Misc
|
|
while misc_fields <> ""
|
|
colon = instr(misc_fields, ":")
|
|
if (colon <> 0) then
|
|
field = left(misc_fields, colon-1)
|
|
misc_fields = right(misc_fields, len(misc_fields) - colon)
|
|
else
|
|
field = misc_fields
|
|
misc_fields = ""
|
|
end if
|
|
if len(field) > 0 then
|
|
oDict.add field, document.all(field).value
|
|
end if
|
|
wend
|
|
|
|
'
|
|
' Change for CollectOk flag
|
|
'
|
|
if document.all.CollectOk.checked then
|
|
oDict.add "CollectOK", "on"
|
|
else
|
|
oDict.add "CollectOK", "off"
|
|
end if
|
|
|
|
oDict.add "AdditionalFiles_Number", document.all.AdditionalFiles_List.length
|
|
oDict.add "MachineID", g_oUpl.Sig
|
|
|
|
if document.all.CollectOk.checked then
|
|
oDict.add "DCStatus", iDCFailed
|
|
else
|
|
oDict.add "DCStatus", "0"
|
|
end if
|
|
|
|
Set oSysInfo = CreateObject("PCHealth.BugRepSysInfo")
|
|
if Err.number <> 0 then
|
|
oDict.add "OSBuildNumber", "Unknown"
|
|
oDict.add "OSLanguage", "0"
|
|
else
|
|
oDict.add "OSBuildNumber", oSysInfo.GetOSVersionString
|
|
oDict.add "OSLanguage", oSysInfo.GetLanguageID
|
|
end if
|
|
|
|
'
|
|
' Add bug reporting page version
|
|
'
|
|
oDict.add "BRP_Version", L_BRP_Version & L_BRPBuild_Version
|
|
|
|
CreateIncident = true
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub upl_onProgressChange(UploadJobPtr, currentSize, totalSize)
|
|
|
|
const L_BytesSent1_Text = " ( "
|
|
const L_BytesSent2_Text = " bytes of "
|
|
const L_BytesSent3_Text = " bytes sent )"
|
|
|
|
if totalSize = 0 then
|
|
' Avoid divide-by-zero errors.
|
|
totalSize = 100
|
|
end if
|
|
|
|
Call SetProgress(Round(currentSize / totalSize * 100))
|
|
|
|
Call BRP_AppendProgressMessage(L_BytesSent1_Text & currentSize & _
|
|
L_BytesSent2_Text & totalSize & _
|
|
L_BytesSent3_Text)
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub upl_onStatusChange(UploadJobPtr, status)
|
|
|
|
Dim stat_str, szTrackingNo, szTrackingTime
|
|
|
|
const L_Upload_STATUS_NotActive_Message = "Not active"
|
|
const L_Upload_STATUS_Active_Message = "Active"
|
|
const L_Upload_STATUS_Suspended_Message = "Suspended"
|
|
const L_Upload_STATUS_Transmitting_Message = "Transmitting"
|
|
const L_Upload_STATUS_Aborted_ErrorMessage = "Retrying upload"
|
|
const L_Upload_STATUS_Failed_ErrorMessage = "Failed due to server error"
|
|
const L_Upload_STATUS_Completed_Message = "Completed upload"
|
|
const L_Upload_STATUS_Deleted_Message = "Deleted"
|
|
const L_UploadError_ErrorMessage = "The following error occurred during upload: "
|
|
const L_UploadErrorCode_ErrorMessage = "Error : "
|
|
const L_UploadErrorNoErrNum_ErrorMessage = "There was an error uploading your bug report."
|
|
const L_SubmitToRety_ErrorMessage = "Click submit to retry."
|
|
|
|
select case status
|
|
case UL_NOTACTIVE stat_str=L_Upload_STATUS_NotActive_Message
|
|
case UL_ACTIVE stat_str=L_Upload_STATUS_Active_Message
|
|
case UL_SUSPENDED stat_str=L_Upload_STATUS_Suspended_Message
|
|
case UL_TRANSMITTING stat_str=L_Upload_STATUS_Transmitting_Message
|
|
case UL_ABORTED stat_str=L_Upload_STATUS_Aborted_ErrorMessage
|
|
case UL_FAILED stat_str=L_Upload_STATUS_Failed_ErrorMessage
|
|
case UL_COMPLETED stat_str=L_Upload_STATUS_Completed_Message
|
|
case UL_DELETED stat_str=L_Upload_STATUS_Deleted_Message
|
|
end select
|
|
|
|
Call BRP_SetStatusMessage(stat_str)
|
|
|
|
if status = UL_FAILED or status = UL_COMPLETED then
|
|
Call UnregisterUPLHandlers()
|
|
if status = UL_COMPLETED then
|
|
'
|
|
' No cleanup requird here as a seperate thankyou DIV is being
|
|
' displayed and users cannot navigate back to the page, a
|
|
' cleanup here adds some flicker before the thankyou page
|
|
'
|
|
szTrackingNo = g_oUpl.Sig & "_" & g_oUpl.JobID
|
|
szTrackingTime = g_oUpl.CompleteTime
|
|
Call BRP_TraceMessage(szTrackingTime)
|
|
Call BRP_TraceMessage(szTrackingNo)
|
|
|
|
'
|
|
' Make a record of the incident
|
|
'
|
|
Call RecordIncident(szTrackingTime,szTrackingNo)
|
|
|
|
'
|
|
' Store valid options
|
|
'
|
|
Call BRP_WriteIniFile()
|
|
|
|
document.all.BRP_IncidentTime.innerHTML = szTrackingTime
|
|
document.all.BRP_TrackingNo.innerHTML = szTrackingNo
|
|
|
|
Call BRP_CleanCrashDump()
|
|
|
|
end if
|
|
'
|
|
' Cleanup
|
|
'
|
|
Call BRP_CleanupAfterCancelUpload
|
|
|
|
'
|
|
' Delete the upload object
|
|
'
|
|
g_oUpl.Delete
|
|
|
|
'
|
|
' Move to thank you page, must remove the InProgess before this
|
|
' or the unload handlers will kick in so above code order is
|
|
' important
|
|
'
|
|
if status = UL_COMPLETED then
|
|
document.all.spanEnterBug.style.display = "none"
|
|
document.all.spanThankYou.style.display = ""
|
|
exit sub
|
|
end if
|
|
'
|
|
' Changed to print error code string
|
|
'
|
|
if g_oUpl.ErrorCode <> 0 then
|
|
lErrCode = CLng(g_oUpl.Errorcode)
|
|
szError = ERR_GetJobErrorCodeString(lErrCode)
|
|
BRP_MessageBox L_UploadError_ErrorMessage & vbCrLf & _
|
|
L_UploadErrorCode_ErrorMessage & _
|
|
szError & _
|
|
vbCrLf & _
|
|
L_SubmitToRety_ErrorMessage
|
|
else
|
|
BRP_MessageBox L_UploadErrorNoErrNum_ErrorMessage & _
|
|
L_SubmitToRety_ErrorMessage
|
|
end if
|
|
end if
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub ResetUpload()
|
|
On Error Resume Next
|
|
g_oUpl.Delete
|
|
Set g_oUpl = Nothing
|
|
g_oDc.Abort
|
|
Set g_oDc = Nothing
|
|
' if g_nCurrentBuild > 2408 then
|
|
' g_oCab.Abort
|
|
' Set g_oCab = Nothing
|
|
' end if
|
|
Call BRP_CleanupAfterCancelUpload()
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub CancelUpload()
|
|
|
|
const L_UserCancel_Message = "Cancelled by user"
|
|
|
|
if g_nInProgress then
|
|
Call UnregisterDCHandlers()
|
|
Call UnregisterUPLHandlers()
|
|
Call UnregisterCabHandler()
|
|
Call BRP_SetStatusMessage(L_UserCancel_Message)
|
|
Call ResetUpload()
|
|
Call SetProgress(0)
|
|
end if
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub CreateCab(iDCFailed)
|
|
|
|
const L_UploadObjectMissing_ErrorMessage = "An error occurred when trying to create the upload data object"
|
|
const L_FailedIncident_ErrorMessage = "Failed generating incident"
|
|
const L_CantGenerateIncident_ErrorMessage = "There was an error trying to save the incident information."
|
|
const L_CabCompression_ErrorMessage = "An error occurred when trying to compress the CAB file before upload"
|
|
const L_CompressingCab_Message = "Compressing CAB file"
|
|
|
|
Dim oInc, oTmpObj, oFS, oFileSelected, oFolder, oFiles, oFile, oLastLogFile
|
|
Dim FileList(), FileListIndex, AddFilesIndex
|
|
Dim iFileCount, AddFilesCount
|
|
Dim iStart
|
|
Dim nCount, dCurDate, dMaxDate, fIsLog
|
|
Dim iMaxWinFiles, szWinFileName()
|
|
Dim iMaxSysDriveFiles, szSysDriveFileName()
|
|
ReDim FileList(500)
|
|
ReDim szWinFileName(20)
|
|
ReDim szSysDriveFileName(20)
|
|
|
|
AddFilesCount = 0
|
|
|
|
Call BRP_TraceMessage("CreateCAB")
|
|
|
|
on error resume next
|
|
Set oTmpObj = CreateObject("UploadManager.MPCUpload")
|
|
'
|
|
' Error handler for bad MPCUpload object (missing config.xml)
|
|
'
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_UploadObjectMissing_ErrorMessage)
|
|
Call BRP_CleanupAfterCancelUpload()
|
|
exit sub
|
|
end if
|
|
|
|
Set g_oUpl = oTmpObj.CreateJob
|
|
g_oUpl.Sig = ""
|
|
|
|
if NOT CreateIncident(oInc, iDCFailed) then
|
|
g_oUpl.Delete
|
|
exit sub
|
|
end if
|
|
|
|
oInc.GetXML GetTempPath & "\Incident.XML"
|
|
if Err.number <> 0 then
|
|
Call BRP_SetStatusMessage(L_FailedIncident_ErrorMessage)
|
|
Call BRP_MessageBox(L_CantGenerateIncident_ErrorMessage)
|
|
Call BRP_CleanupAfterCancelUpload()
|
|
end if
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
iFileCount = 0
|
|
if oFS.FileExists( GetTempPath & "\Incident.XML" ) then
|
|
FileList(iFileCount) = GetTempPath & "\Incident.XML"
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
'
|
|
' Collect hcupdate.log
|
|
'
|
|
if oFS.FileExists( GetTempPath & "\hcupdate.log" ) then
|
|
FileList(iFileCount) = GetTempPath & "\hcupdate.log"
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
'
|
|
' Add XML files to upload
|
|
'
|
|
if oFS.FileExists( GetVendorPath & "\bug_upload_collect.XML" ) then
|
|
FileList(iFileCount) = GetVendorPath & "\bug_upload_collect.XML"
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
if oFS.FileExists( GetVendorPath & "\bug_upload_collect_2408.XML" ) then
|
|
FileList(iFileCount) = GetVendorPath & "\bug_upload_collect_2408.XML"
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
if oFS.FileExists( GetVendorPath & "\bug_upload_nocollect.XML" ) then
|
|
FileList(iFileCount) = GetVendorPath & "\bug_upload_nocollect.XML"
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
|
|
|
|
'
|
|
' Get files from the WINDIR directory
|
|
'
|
|
szWinFileName(00) = "\classes.dat"
|
|
szWinFileName(01) = "\system.dat"
|
|
szWinFileName(02) = "\user.dat"
|
|
szWinFileName(03) = "\ios.log"
|
|
szWinFileName(04) = "\ppplog.txt"
|
|
szWinFileName(05) = "\susfail.txt"
|
|
szWinFileName(06) = "\system.ini"
|
|
szWinFileName(07) = "\win.ini"
|
|
szWinFileName(08) = "\wulog.txt"
|
|
szWinFileName(09) = "\emi\errlog.dat"
|
|
szWinFileName(10) = "\PCHealth\HelpCtr\Config\DataSpec.XML"
|
|
szWinFileName(11) = "\system\sfp\sfplog.txt"
|
|
szWinFileName(12) = "\resume.txt"
|
|
iMaxWinFiles = 13
|
|
|
|
'
|
|
' only setup needs three registry files
|
|
'
|
|
iStart = 3
|
|
if document.all.Area.value = "Setup" then
|
|
iStart = 0
|
|
end if
|
|
|
|
for iCount = iStart to iMaxWinFiles-1
|
|
if oFS.FileExists( GetWinPath & szWinFileName(iCount) ) then
|
|
FileList(iFileCount) = GetWinPath & szWinFileName(iCount)
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
next
|
|
|
|
'
|
|
' Get files from the SYSTEMDRIVE directory
|
|
'
|
|
szSysDriveFileName(00) = "\asd.log"
|
|
szSysDriveFileName(01) = "\bootlog.prv"
|
|
szSysDriveFileName(02) = "\bootlog.txt"
|
|
szSysDriveFileName(03) = "\detlog.txt"
|
|
szSysDriveFileName(04) = "\netlog.txt"
|
|
szSysDriveFileName(05) = "\setuplog.old"
|
|
szSysDriveFileName(06) = "\setuplog.txt"
|
|
|
|
iMaxSysDriveFiles = 7
|
|
|
|
for iCount = 0 to iMaxSysDriveFiles-1
|
|
if oFS.FileExists( GetSystemDrivePath & szSysDriveFileName(iCount) ) then
|
|
FileList(iFileCount) = GetSystemDrivePath & szSysDriveFileName(iCount)
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
next
|
|
|
|
'
|
|
' Get files from the WMI LOG directory log files
|
|
'
|
|
if oFS.FolderExists(GetWinSystemPath & "\wbem\logs") then
|
|
Set oFolder = oFS.GetFolder(GetWinSystemPath & "\wbem\logs")
|
|
Set oFiles = oFolder.Files
|
|
for Each oFile in oFiles
|
|
fIsLog = instrrev(lcase(oFile.name), ".log")
|
|
if fIsLog <> 0 then
|
|
if oFS.FileExists( oFile.Path ) then
|
|
FileList(iFileCount) = oFile.Path
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
end if
|
|
next
|
|
end if
|
|
|
|
'
|
|
' Get last log file from the DrWatson LOG directory log files (if crash or hang)
|
|
'
|
|
if document.all.Severity.value = 1 then
|
|
if oFS.FolderExists(GetWinPath & "\drwatson") then
|
|
Set oFolder = oFS.GetFolder(GetWinPath & "\drwatson")
|
|
Set oFiles = oFolder.Files
|
|
nCount = 0
|
|
for Each oFile in oFiles
|
|
fIsLog = instrrev(lcase(oFile.name), ".wlg")
|
|
if fIsLog <> 0 then
|
|
dCurDate = oFile.DateLastModified
|
|
if dCurDate > dMaxDate OR nCount = 0 then
|
|
Set oLastLogFile = oFile
|
|
dMaxDate = dCurDate
|
|
end if
|
|
nCount = nCount + 1
|
|
end if
|
|
next
|
|
if nCount > 0 then
|
|
if oFS.FileExists( oLastLogFile.Path ) then
|
|
FileList(iFileCount) = oLastLogFile.Path
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
end if
|
|
end if
|
|
end if
|
|
|
|
'
|
|
' Run DirectX diagnostic utility and collect this information
|
|
'
|
|
'Call RunExternalApplicationDxDiag()
|
|
'if oFS.FileExists( GetTempPath & "\dxdiag.txt" ) then
|
|
' FileList(iFileCount) = GetTempPath & "\dxdiag.txt"
|
|
' iFileCount = iFileCount + 1
|
|
'end if
|
|
|
|
FileListIndex = iFileCount
|
|
|
|
'
|
|
' Find number of selected files and add them to the list
|
|
' they exist at the time of selection so not re-checking them
|
|
'
|
|
Set oFileSelected = document.all.AdditionalFiles_List
|
|
|
|
AddFilesCount = oFileSelected.length
|
|
|
|
ReDim Preserve FileList(FileListIndex + AddFilesCount - 1)
|
|
for AddFilesIndex = 0 to (AddFilesCount - 1)
|
|
FileList(FileListIndex) = oFileSelected.Options(AddFilesIndex).text
|
|
FileListIndex = FileListIndex + 1
|
|
next
|
|
|
|
Set g_oCab = pchealth.CreateObject_Cabinet
|
|
for AddFilesIndex = 0 to (FileListIndex-1)
|
|
g_oCab.AddFile FileList(AddFilesIndex)
|
|
document.all.ProgressText.innerHTML = "Collecting " & FileList(AddFilesIndex)
|
|
next
|
|
document.all.ProgressText.innerHTML = " "
|
|
|
|
'
|
|
' Register cab completion call back
|
|
'
|
|
RegisterCabHandler
|
|
|
|
Call BRP_TraceMessage("Compressing cab")
|
|
|
|
Call BRP_SetStatusMessage(L_CompressingCab_Message)
|
|
|
|
g_oCab.Compress GetTempPath & "\Upload.CAB"
|
|
|
|
'
|
|
' Error trapping for problems during compression
|
|
'
|
|
if Err.number <> 0 then
|
|
Call UnregisterCabHandler()
|
|
Call BRP_MessageBox(L_CabCompression_ErrorMessage)
|
|
Call BRP_CleanupAfterCancelUpload()
|
|
exit sub
|
|
end if
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub ContinueSaveIncident()
|
|
|
|
const L_SavingIncident_Message = "Saving incident to "
|
|
const L_IncidentSaved_Message = "Incident saved to "
|
|
const L_SaveFailed_ErrorMessage = "Couldn't save incident to "
|
|
const L_CantSaveFile_ErrorMessage = "Can't save incident. Make sure the path is valid and there is free space on the drive."
|
|
const L_SavingFinished_Message = " - File saved"
|
|
|
|
Dim oTmpObj, oFS
|
|
Dim szCabFileName
|
|
|
|
Call BRP_TraceMessage("ContinueSaveIncident")
|
|
|
|
if g_bSaveIncident = False then
|
|
exit sub
|
|
end if
|
|
|
|
if g_bSubmitIncident = False then
|
|
g_oUpl.Delete
|
|
end if
|
|
|
|
Call BRP_SetStatusMessage(L_SavingIncident_Message & document.all.IncidentFilename.value)
|
|
|
|
if g_bSubmitIncident = False then
|
|
Call SetProgress(0)
|
|
end if
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
on error resume next
|
|
|
|
szCabFileName = document.all.IncidentFilename.value
|
|
|
|
oFS.CopyFile GetTempPath & "\Upload.CAB", szCabFileName
|
|
if err.number <> 0 then
|
|
Call BRP_SetStatusMessage(L_SaveFailed_ErrorMessage & document.all.IncidentFilename.value)
|
|
Call BRP_MessageBox(L_CantSaveFile_ErrorMessage)
|
|
'
|
|
' If submitting is not going to happen after this, clean up the buttons
|
|
'
|
|
if g_bSubmitIncident = False then
|
|
Call BRP_CleanupAfterCancelUpload()
|
|
end if
|
|
exit sub
|
|
end if
|
|
|
|
Call BRP_SetStatusMessage(L_IncidentSaved_Message & document.all.IncidentFilename.value)
|
|
|
|
'
|
|
' If submitting is not going to happen after this, clean up the buttons
|
|
'
|
|
if g_bSubmitIncident = False then
|
|
|
|
Call SetProgress(100)
|
|
Call BRP_AppendProgressMessage(L_SavingFinished_Message)
|
|
|
|
Call BRP_CleanCrashDump()
|
|
|
|
'
|
|
' Make a record of the incident
|
|
'
|
|
Call RecordIncident(Now(),"-")
|
|
|
|
'
|
|
' Store valid options
|
|
'
|
|
Call BRP_WriteIniFile()
|
|
|
|
Call BRP_CleanupAfterCancelUpload()
|
|
|
|
end if
|
|
|
|
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub ContinueUploadIncident()
|
|
|
|
const L_UploadCab_ErrorMessage = "An error occurred when trying to use the upload CAB file"
|
|
const L_UploadStart_ErrorMessage = "An error occurred when trying to start upload"
|
|
|
|
Dim oTmpObj, oInc, oFS
|
|
|
|
'
|
|
' Alway trap all errors in the code
|
|
'
|
|
on error resume next
|
|
|
|
Call BRP_TraceMessage("ContinueUploadIncident")
|
|
|
|
if g_bSubmitIncident = False then
|
|
exit sub
|
|
end if
|
|
|
|
if BRP_DebugFlag >= 1 then
|
|
g_oUpl.Server = L_ServerNameTest_Address
|
|
else
|
|
g_oUpl.Server = L_ServerName_Address
|
|
end if
|
|
|
|
g_oUpl.ProviderID = "ESC"
|
|
g_oUpl.Mode = UL_FOREGROUND
|
|
g_oUpl.PersistToDisk = False
|
|
|
|
'
|
|
' CAB file is already in a compressed state so further compression
|
|
' is not required (Fixes Bug 102646)
|
|
'
|
|
g_oUpl.Compressed = False
|
|
g_oUpl.History = UL_HISTORY_NONE
|
|
'
|
|
' We need to zero out the progress indicator, since the Upload object
|
|
' doesn't always do this (for example, if it aborts immediatly).
|
|
'
|
|
upl_onProgressChange g_oUpl, 0, 100
|
|
|
|
Call RegisterUPLHandlers()
|
|
|
|
Call BRP_TraceMessage("Get Data from Upload.CAB file")
|
|
|
|
g_oUpl.GetDataFromFile GetTempPath & "\Upload.CAB"
|
|
'
|
|
' Error trapping for invalid parameters has to be carried out here
|
|
' with proper error code message
|
|
'
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_UploadCab_ErrorMessage )
|
|
Call BRP_CleanupAfterCancelUpload()
|
|
exit sub
|
|
end if
|
|
|
|
Call BRP_TraceMessage("Start uploading")
|
|
|
|
g_oUpl.ActivateASync
|
|
'
|
|
' Error trapping for invalid parameters has to be carried out here
|
|
' with proper error code message
|
|
'
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_UploadStart_ErrorMessage)
|
|
Call BRP_CleanupAfterCancelUpload()
|
|
exit sub
|
|
end if
|
|
end sub
|
|
|
|
Function ReadAllTextFile(szFileName)
|
|
Const ForReading = 1, ForWriting = 2
|
|
Dim oFS, oFile
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
Set oFile = oFS.OpenTextFile(szFileName, ForReading)
|
|
ReadAllTextFile = oFile.ReadAll
|
|
oFile.Close
|
|
End Function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub RecordIncident(szTrackingTime,szTrackingNo)
|
|
|
|
const L_IncidentDir_FileName = "\incidents"
|
|
const L_IncHead_FileName = "\inc_head.htm"
|
|
const L_IncTail_FileName = "\inc_tail.htm"
|
|
const L_Saved_Message = "Saved"
|
|
const L_Submitted_Message = "Submitted"
|
|
const L_BugReport_Message = "Bug Report"
|
|
const L_ActionsTaken_Message = "Actions taken"
|
|
const L_AddFiles_Message = "Additional Files"
|
|
const L_SubmitTime_Message = "Submit Time"
|
|
const L_TrackingNumber_Message = "Tracking Number"
|
|
const L_SavedFile_Message = "Saved File"
|
|
const L_CSVFileName_Message = "CSV File"
|
|
const L_RecordIncident_ErrorMessage = "An error occurred when recording the incident on the computer"
|
|
|
|
Dim oFS, oChannel, oDataFile
|
|
Dim bFileOK
|
|
Dim nAddFiles
|
|
|
|
on error resume next
|
|
|
|
Err.number = 0
|
|
|
|
bFileOK = True
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
'
|
|
' Create an incidents folder
|
|
'
|
|
if ( oFS.FolderExists( GetVendorPath & L_IncidentDir_FileName )) then
|
|
|
|
else
|
|
oFS.CreateFolder( GetVendorPath & L_IncidentDir_FileName )
|
|
end if
|
|
|
|
'
|
|
' Find a unique file name based on number for the HTML file
|
|
'
|
|
nCount = 1
|
|
NewFile = False
|
|
Do
|
|
szFile = nCount & ".htm"
|
|
szFileName = GetVendorPath & L_IncidentDir_FileName & "\" & szFile
|
|
szCSV_File = nCount & ".csv"
|
|
szCSV_FileName = GetVendorPath & L_IncidentDir_FileName & "\" & szCSV_File
|
|
if oFS.FileExists(szFileName) OR oFS.FileExists(szCSV_FileName) then
|
|
nCount = nCount + 1
|
|
else
|
|
NewFile = True
|
|
end if
|
|
Loop While NewFile = False
|
|
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
szIncidentAction = " "
|
|
if g_bSaveIncident = True then
|
|
szIncidentAction = szIncidentAction & L_Saved_Message
|
|
end if
|
|
if g_bSubmitIncident = True then
|
|
szIncidentAction = szIncidentAction & L_Submitted_Message
|
|
end if
|
|
|
|
'
|
|
' Create CSV data file
|
|
'
|
|
Set oDataFile = oFS.CreateTextFile(szCSV_FileName, False)
|
|
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
szEscaped = replaceQuotes(Cstr(szTrackingTime))
|
|
oDataFile.Write chr(34) & szEscaped & chr(34) & ","
|
|
|
|
szEscaped = replaceQuotes(szTrackingNo)
|
|
oDataFile.Write chr(34) & szEscaped & chr(34) & ","
|
|
|
|
if g_bSaveIncident = True then
|
|
szEscaped = replaceQuotes(document.all.IncidentFilename.value)
|
|
oDataFile.Write chr(34) & szEscaped & chr(34) & ","
|
|
end if
|
|
|
|
szEscaped = replaceQuotes(szCSV_FileName)
|
|
oDataFile.Write chr(34) & szEscaped & chr(34) & ","
|
|
|
|
szEscaped = replaceQuotes(szIncidentAction)
|
|
oDataFile.Write chr(34) & szEscaped & chr(34) & ","
|
|
|
|
misc_fields = "BetaID:Title:Severity:Area:Reproducibility:Description:ExpectedBehavior:StepsToRepro"
|
|
|
|
while misc_fields <> ""
|
|
colon = instr(misc_fields, ":")
|
|
if (colon <> 0) then
|
|
field = left(misc_fields, colon-1)
|
|
misc_fields = right(misc_fields, len(misc_fields) - colon)
|
|
else
|
|
field = misc_fields
|
|
misc_fields = ""
|
|
end if
|
|
if len(field) > 0 then
|
|
szEscaped = replaceQuotes(document.all(field).value)
|
|
oDataFile.Write chr(34) & szEscaped & chr(34) & ","
|
|
end if
|
|
wend
|
|
|
|
nAddFiles = document.all.AdditionalFiles_List.length
|
|
szEscaped = replaceQuotes(Cstr(nAddFiles))
|
|
oDataFile.Write chr(34) & szEscaped & chr(34)
|
|
|
|
oDataFile.Close
|
|
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
'
|
|
' Create HTML data file
|
|
'
|
|
Set oDataFile = oFS.CreateTextFile(szFileName, False)
|
|
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
if ( oFS.FileExists( GetVendorPath & L_IncHead_FileName )) then
|
|
szHeadString = ReadAllTextFile( GetVendorPath & L_IncHead_FileName )
|
|
oDataFile.Write szHeadString
|
|
end if
|
|
|
|
oDataFile.Write "<TR>"
|
|
oDataFile.Write "<TD>"
|
|
oDataFile.Write "<TABLE border=0>"
|
|
oDataFile.Write "<TBODY>"
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_SubmitTime_Message & "</B></TD>"
|
|
oDataFile.Write " <TD>" & szTrackingTime & "</TD>"
|
|
oDataFile.Write " </TR>"
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_TrackingNumber_Message & "</B></TD>"
|
|
oDataFile.Write " <TD>" & szTrackingNo & "</TD>"
|
|
oDataFile.Write " </TR>"
|
|
|
|
if g_bSaveIncident = True then
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_SavedFile_Message & "</B></TD>"
|
|
oDataFile.Write " <TD>" & document.all.IncidentFilename.value & "</TD>"
|
|
oDataFile.Write " </TR>"
|
|
end if
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_CSVFileName_Message & "</B></TD>"
|
|
oDataFile.Write " <TD>" & szCSV_FileName & "</TD>"
|
|
oDataFile.Write " </TR>"
|
|
|
|
szIncidentAction = " "
|
|
if g_bSaveIncident = True then
|
|
szIncidentAction = szIncidentAction & " " & L_Saved_Message & " "
|
|
end if
|
|
if g_bSubmitIncident = True then
|
|
szIncidentAction = szIncidentAction & " " & L_Submitted_Message & " "
|
|
end if
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_ActionsTaken_Message & "</B></TD>"
|
|
oDataFile.Write " <TD>" & szIncidentAction & "</TD>"
|
|
oDataFile.Write " </TR>"
|
|
|
|
misc_fields = "BetaID:Title:Severity:Area:Reproducibility"
|
|
|
|
while misc_fields <> ""
|
|
colon = instr(misc_fields, ":")
|
|
if (colon <> 0) then
|
|
field = left(misc_fields, colon-1)
|
|
misc_fields = right(misc_fields, len(misc_fields) - colon)
|
|
else
|
|
field = misc_fields
|
|
misc_fields = ""
|
|
end if
|
|
if len(field) > 0 then
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & field & "</B></TD>"
|
|
oDataFile.Write " <TD>" & document.all(field).value & "</TD>"
|
|
oDataFile.Write " </TR>"
|
|
end if
|
|
wend
|
|
|
|
misc_fields = "Description:ExpectedBehavior:StepsToRepro"
|
|
|
|
while misc_fields <> ""
|
|
colon = instr(misc_fields, ":")
|
|
if (colon <> 0) then
|
|
field = left(misc_fields, colon-1)
|
|
misc_fields = right(misc_fields, len(misc_fields) - colon)
|
|
else
|
|
field = misc_fields
|
|
misc_fields = ""
|
|
end if
|
|
if len(field) > 0 then
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & field & "</B></TD>"
|
|
oDataFile.Write " <TD><TEXTAREA cols=60 wrap=virtual rows=6 " & _
|
|
" ONKEYPRESS=" & chr(34) & "event.returnValue=false;" & chr(34) & _
|
|
" ONCUT=" & chr(34) & "event.returnValue=false;" & chr(34) & _
|
|
" ONPASTE=" & chr(34) & "event.returnValue=false;" & chr(34) & _
|
|
" >" & document.all(field).value & "</TEXTAREA></TD>"
|
|
oDataFile.Write " </TR>"
|
|
end if
|
|
wend
|
|
|
|
'
|
|
' Find number of selected files and add them to the list
|
|
' they exist at the time of selection so not re-checking them
|
|
'
|
|
nAddFiles = document.all.AdditionalFiles_List.length
|
|
|
|
if nAddFiles > 0 then
|
|
szFileList = " "
|
|
for nCount = 0 to (nAddFiles - 1)
|
|
szFileList = szFileList & document.all.AdditionalFiles_List.Options(nCount).text & "<BR>"
|
|
next
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_AddFiles_Message & "</B></TD>"
|
|
oDataFile.Write " <TD>" & szFileList & "</TD>"
|
|
oDataFile.Write " </TR>"
|
|
|
|
end if
|
|
|
|
oDataFile.Write " </TBODY>"
|
|
oDataFile.Write" </TABLE>"
|
|
oDataFile.Write" </TD>"
|
|
oDataFile.Write" </TR>"
|
|
oDataFile.Write" </TBODY>"
|
|
oDataFile.Write"</TABLE>"
|
|
|
|
if ( oFS.FileExists( GetVendorPath & L_IncTail_FileName )) then
|
|
szHeadString = ReadAllTextFile( GetVendorPath & L_IncTail_FileName )
|
|
oDataFile.Write szHeadString
|
|
end if
|
|
|
|
oDataFile.Close
|
|
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
if bFileOK = True then
|
|
Err.number = 0
|
|
Set oChannel = pchealth.CreateObject_Channel(L_VendorChannel_Address, L_ProductName_Version)
|
|
szIncidentPath = "hcp://" & L_VendorChannel_Address & L_IncidentDir_FileName & "\" & szFile
|
|
if err.number <> 0 then
|
|
Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
|
|
else
|
|
if g_bSubmitIncident = True then
|
|
szIName = " " & L_BugReport_Message & " " & ": " & document.all.Title.value & " (" & L_Submitted_Message & ")"
|
|
else
|
|
szIName = " " & L_BugReport_Message & " " & ": " & document.all.Title.value & " (" & L_Saved_Message & ")"
|
|
end if
|
|
'
|
|
' Number of parameters changed in new RecordIncident
|
|
'
|
|
if g_nCurrentBuild < 2399 then
|
|
oChannel.RecordIncident szIName, szIncidentPath
|
|
else
|
|
oChannel.RecordIncident szIName, szIncidentPath, "", ""
|
|
end if
|
|
end if
|
|
end if
|
|
|
|
end sub
|
|
|
|
const L_NeedFilename_ErrorMessage = "You must specify a filename."
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub StartProcessing()
|
|
|
|
const L_OverwriteFile_TEXT = "The file already exists. Do you want to replace the existing file?"
|
|
const L_SingleSubmit_ErrorMessage = "Only one bug may be submitted at a time."
|
|
const L_NeedAction_ErrorMessage = "Select the option to Submit and/or Save the bug report"
|
|
const L_NoFolder1_ErrorMessage = "The folder "
|
|
const L_NoFolder2_ErrorMessage = " does not exist. Do you want to create it ?"
|
|
const L_NoCreateFolder_ErrorMessage = "Could not create the folder. Please select a different folder for the bug report"
|
|
|
|
|
|
Dim oFS ' File System Object
|
|
Dim szCabFileName, szTemp
|
|
Dim slash
|
|
|
|
g_bSaveIncident = False
|
|
g_bSubmitIncident = False
|
|
g_bFormValid = False
|
|
|
|
on error resume next
|
|
|
|
if document.all.SaveIncidentNow.checked = False AND document.all.SubmitIncidentNow.checked = False then
|
|
BRP_MessageBox L_NeedAction_ErrorMessage
|
|
exit sub
|
|
end if
|
|
|
|
Call ValidateForm()
|
|
|
|
'
|
|
' Form invalid then exit
|
|
'
|
|
if g_bFormValid = False then
|
|
exit sub
|
|
end if
|
|
|
|
'
|
|
' If we have to save the form do checking for valid file now
|
|
'
|
|
if document.all.SaveIncidentNow.checked then
|
|
|
|
if document.all.IncidentFilename.value = "" Then
|
|
BRP_MessageBox L_NeedFilename_ErrorMessage
|
|
document.all.IncidentFilename.focus
|
|
exit sub
|
|
end if
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
'
|
|
' Check if the folder exists else create it
|
|
'
|
|
szTemp = document.all.IncidentFilename.value
|
|
slash = instrrev(szTemp,"\")
|
|
if slash <> 0 then
|
|
szTemp = left(szTemp,slash-1)
|
|
if NOT oFS.FolderExists( szTemp ) then
|
|
if BRP_Confirm(L_NoFolder1_ErrorMessage & szTemp & L_NoFolder2_ErrorMessage) = vbNo then
|
|
exit sub
|
|
end if
|
|
oFS.CreateFolder( szTemp )
|
|
if Err.number <> 0 then
|
|
BRP_MessageBox L_NoCreateFolder_ErrorMessage
|
|
exit sub
|
|
end if
|
|
end if
|
|
end if
|
|
|
|
szCabFileName = document.all.IncidentFilename.value
|
|
if oFS.FileExists(szCabFileName) then
|
|
if BRP_Confirm(L_OverwriteFile_TEXT) = vbNo then
|
|
exit sub
|
|
end if
|
|
end if
|
|
g_bSaveIncident = True
|
|
end if
|
|
|
|
if document.all.SubmitIncidentNow.checked then
|
|
g_bSubmitIncident = True
|
|
end if
|
|
|
|
'
|
|
' Form is validated, so call UploadIncident
|
|
'
|
|
if g_nInProgress then
|
|
BRP_MessageBox L_SingleSubmit_ErrorMessage
|
|
exit sub
|
|
else
|
|
g_nInProgress = 1
|
|
document.all.Submit.disabled = 1
|
|
document.all.Cancel.disabled = 0
|
|
end if
|
|
|
|
'
|
|
' Disable all fields so they cannot be changed
|
|
'
|
|
document.all.BugReportingInputFieldsTable.style.display = "none"
|
|
document.all.BugReportingHeadingTable.style.cursor = "wait"
|
|
document.all.BugReportingSubmittingTable.style.cursor = "wait"
|
|
document.all.IncidentFilename.disabled = True
|
|
document.all.SubmitIncidentNow.disabled = True
|
|
document.all.SaveIncidentNow.disabled = True
|
|
|
|
|
|
'
|
|
' Start data collection
|
|
'
|
|
Call CollectData()
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_CleanupAfterCancelUpload()
|
|
|
|
g_nInProgress = 0
|
|
document.all.Submit.disabled = 0
|
|
document.all.Cancel.disabled = 1
|
|
|
|
'
|
|
' Enable all fields so they cannot be changed
|
|
'
|
|
document.all.BugReportingInputFieldsTable.style.display = ""
|
|
document.all.BugReportingHeadingTable.style.cursor = "auto"
|
|
document.all.BugReportingSubmittingTable.style.cursor = "auto"
|
|
|
|
document.all.IncidentFilename.disabled = False
|
|
document.all.SubmitIncidentNow.disabled = False
|
|
document.all.SaveIncidentNow.disabled = False
|
|
|
|
document.all.Submit.focus
|
|
|
|
end sub
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function BRP_Working()
|
|
|
|
if g_nInProgress then
|
|
BRP_Working = True
|
|
else
|
|
BRP_Working = False
|
|
end if
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' Add a file to the list
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_ListAddFileForUpload()
|
|
|
|
Dim oFS ' File System Object
|
|
Dim szFileName
|
|
Dim AddFilesIndex
|
|
|
|
const L_FileDoesntExist_ErrorMessage = "That file does not exist."
|
|
|
|
'
|
|
' If a file is selected add this to the list
|
|
'
|
|
if document.all.AdditionalFile.value = "" Then
|
|
BRP_MessageBox L_NeedFilename_ErrorMessage
|
|
document.all.AdditionalFile.focus
|
|
exit sub
|
|
end if
|
|
|
|
'
|
|
' Remove leading/trailing spaces
|
|
'
|
|
szFileName = removeLeadingSpace(document.all.AdditionalFile.value)
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
If NOT oFS.FileExists(szFileName) Then
|
|
BRP_MessageBox L_FileDoesntExist_ErrorMessage & _
|
|
"(" & szFileName & ")"
|
|
document.all.AdditionalFile.focus
|
|
exit sub
|
|
end if
|
|
|
|
Call addListElement(document.all.AdditionalFiles_List, _
|
|
szFileName , _
|
|
szFileName )
|
|
|
|
document.all.AdditionalFile.focus
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_ListRemoveFileForUpload()
|
|
|
|
const L_RemoveSelectFile_ErrorMessage = "Please select a file to be removed"
|
|
const L_NoFilesToRemove_ErrorMessage = "There are no files that can be removed"
|
|
|
|
if document.all.AdditionalFiles_List.options.length = 0 then
|
|
Call BRP_MessageBox(L_NoFilesToRemove_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
Call delListElement(document.all.AdditionalFiles_List.options,L_RemoveSelectFile_ErrorMessage)
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub CorrectBetaID()
|
|
|
|
Dim szName, period
|
|
'
|
|
' Remove anything after a .
|
|
'
|
|
period = instr(window.event.srcElement.value,".")
|
|
if period <> 0 then
|
|
szName = left(window.event.srcElement.value, period-1)
|
|
window.event.srcElement.value = left(window.event.srcElement.value, period-1)
|
|
end if
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function CreateNameCABInternal(szName)
|
|
|
|
Dim szName1, szName2
|
|
|
|
'
|
|
' Clean title
|
|
'
|
|
szName = removeLeadingSpace(szName)
|
|
szName = removeTrailingSpace(szName)
|
|
szName = validateFilename(szName,"_")
|
|
|
|
szName = g_SettingsLastPath & "\" & szName & ".cab"
|
|
|
|
document.all.IncidentFilename.value = szName
|
|
|
|
CreateNameCABInternal = TRUE
|
|
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub CreateNameCAB()
|
|
|
|
CreateNameCABInternal(window.event.srcElement.value)
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub CorrectNameCAB()
|
|
|
|
Dim szName, szFileName, period, slash
|
|
|
|
'
|
|
' Remove leading/trailing spaces
|
|
'
|
|
szFileName = window.event.srcElement.value
|
|
|
|
szFileName = removeLeadingSpace(window.event.srcElement.value)
|
|
szFileName = removeTrailingSpace(szFileName)
|
|
|
|
'
|
|
' Add the .cab extension and only use the last period
|
|
'
|
|
period = instrrev(szFileName,".")
|
|
if period <> 0 then
|
|
szName = left(szFileName, period-1)
|
|
szNameR = right(szFileName, len(szFileName)-period)
|
|
if szName = "" then
|
|
window.event.srcElement.value = "bugdata.cab"
|
|
else
|
|
if szNameR = "cab" then
|
|
'
|
|
' Its OK for now
|
|
'
|
|
else
|
|
szFileName = szFileName & ".cab"
|
|
end if
|
|
end if
|
|
else
|
|
if szFileName = "" then
|
|
szFileName = "bugdata" & ".cab"
|
|
else
|
|
slash = instrrev(szFileName,"\")
|
|
if slash <> 0 then
|
|
szNameR = right(szFileName, len(szFileName)-slash)
|
|
if szNameR = "" then
|
|
szFileName = szFileName & "bugdata.cab"
|
|
else
|
|
szFileName = szFileName & ".cab"
|
|
end if
|
|
else
|
|
szFileName = szFileName & ".cab"
|
|
end if
|
|
end if
|
|
end if
|
|
|
|
'
|
|
' validate filename and append validated file name
|
|
'
|
|
slash = instrrev(szFileName,"\")
|
|
if slash <> 0 then
|
|
szNameR = right(szFileName, len(szFileName)-slash)
|
|
szNameR = validateFileName(szNameR,"_")
|
|
szFileName = left(szFileName,slash-1)
|
|
szFileName = szFileName & "\" & szNameR
|
|
else
|
|
szFileName = validateFileName(szFileName,"_")
|
|
end if
|
|
|
|
window.event.srcElement.value = szFileName
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_InitializeAll()
|
|
|
|
Const ForReading = 1, ForWriting = 2
|
|
|
|
const L_InitializeAll_ErrorMessage = "An error occurred when initializing bug reporting on your computer"
|
|
const L_InitFile_FileName = "brp_init.ini"
|
|
|
|
Dim oFS, oDataFile
|
|
Dim fInitialize
|
|
|
|
fInitialize = True
|
|
|
|
on error resume next
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_InitializeAll_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
if ( oFS.FileExists( GetVendorPath & "\" & L_InitFile_FileName )) then
|
|
|
|
'
|
|
' Read current version from ini file and if older then do init
|
|
'
|
|
Set oDataFile = oFS.OpenTextFile((GetVendorPath & "\" & L_InitFile_FileName), ForReading)
|
|
szIniVersion = oDataFile.ReadLine
|
|
oDataFile.Close
|
|
|
|
nBrpVer = CInt(L_BRPBuild_Version)
|
|
nIniVer = CInt(szIniVersion)
|
|
|
|
'
|
|
' If bug reporting and ini file have same version then its OK
|
|
' else just initialize
|
|
'
|
|
if nBrpVer = nIniVer then
|
|
fInitialize = False
|
|
else
|
|
fInitialize = True
|
|
end if
|
|
|
|
end if
|
|
|
|
if fInitialize = True then
|
|
|
|
'
|
|
' Register dll for collecting system information
|
|
'
|
|
RetVal1 = RegisterBrpSysInfo()
|
|
|
|
'
|
|
' Register ieinfo5.mof by running this through the MOF comp
|
|
'
|
|
RetVal2 = RegisterIEInfoMOF()
|
|
|
|
'
|
|
' If codes returned by any of the provides are not fully success,
|
|
' delete initializing file
|
|
'
|
|
if RetVal1 <> 0 OR RetVal2 <> 0 then
|
|
if ( oFS.FileExists( GetVendorPath & "\" & L_InitFile_FileName )) then
|
|
oFS.DeleteFile((GetVendorPath & "\" & L_InitFile_FileName))
|
|
end if
|
|
else
|
|
'
|
|
' Write current version to bug reporting ini file
|
|
'
|
|
Set oDataFile = oFS.CreateTextFile((GetVendorPath & "\" & L_InitFile_FileName), True)
|
|
oDataFile.Write L_BRPBuild_Version
|
|
oDataFile.Close
|
|
end if
|
|
|
|
end if
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_SetInterfaceBasedOnDefaults()
|
|
|
|
Dim oFS ' File System Object
|
|
|
|
const L_DataFile_FileName = "\bugdata.cab"
|
|
const L_Kernel_Message = "Kernel"
|
|
const L_SomeApp_Message = "Some Application"
|
|
const L_Crashed_Message = " Crashed"
|
|
const L_Description_Message = " crashed."
|
|
const L_Expected_Message = " should not crash."
|
|
const L_CrashDumpFileMissing_ErrorMessage = "CrashDumpFile is missing"
|
|
|
|
on error resume next
|
|
|
|
'
|
|
' Set defaults which are stored
|
|
'
|
|
document.all.BetaID.value = g_SettingsBetaId
|
|
document.all.IncidentFilename.value = g_SettingsLastPath & L_DataFile_FileName
|
|
document.all.CollectOk.checked = g_SettingsShareInfo
|
|
document.all.SubmitIncidentNow.checked = g_SettingsSubmitNow
|
|
document.all.SaveIncidentNow.checked = g_SettingsSaveToDisk
|
|
|
|
if Len(g_CrashDumpFile) > 0 then
|
|
'
|
|
' we are invoked by a fault handler
|
|
'
|
|
document.all.Severity.value = "1" 'we need to add one more type for BSOD
|
|
|
|
if Len(g_CrashApp) <= 0 then
|
|
'
|
|
' in case g_CrashApp is blank
|
|
'
|
|
if g_KernelCrash then
|
|
g_CrashApp = L_Kernel_Message
|
|
else
|
|
g_CrashApp = L_SomeApp_Message
|
|
end if
|
|
end if
|
|
document.all.Title.value = g_CrashApp & L_Crashed_Message
|
|
Call CreateNameCABInternal(document.all.Title.value)
|
|
|
|
document.all.Description.value = g_CrashApp & L_Description_Message
|
|
document.all.ExpectedBehavior.value = g_CrashApp & L_Expected_Message
|
|
|
|
'
|
|
' add file to the attachment list
|
|
'
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_InitializeAll_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
if oFS.FileExists( g_CrashDumpFile ) then
|
|
Call addListElement(document.all.AdditionalFiles_List, _
|
|
g_CrashDumpFile, _
|
|
g_CrashDumpFile)
|
|
else
|
|
'
|
|
' for debugging only. Will take it out once fault handler is code complete
|
|
'
|
|
Call BRP_MessageBox(L_CrashDumpFileMissing_ErrorMessage & ": " & g_CrashDumpFile)
|
|
end if
|
|
'
|
|
'for debugging only
|
|
'
|
|
'Call BRP_MessageBox("crashdump: " & g_CrashDumpFile & " crashapp: " & g_Crashapp & " bsod:" & cint(g_kernelcrash) & " deldump: " & cint(g_deletecrashdump))
|
|
'
|
|
end if
|
|
|
|
end sub
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_WriteIniFile()
|
|
|
|
Const ForReading = 1, ForWriting = 2
|
|
|
|
const L_InitializeIni_ErrorMessage = "An error occurred when initializing bug reporting on your computer"
|
|
const L_WIniFile_FileName = "brp_settings.ini"
|
|
|
|
Dim oFS, oDataFile
|
|
Dim szTemp, nTemp, slash
|
|
|
|
on error resume next
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
if Err.number <> 0 then
|
|
exit sub
|
|
end if
|
|
|
|
'
|
|
' Create ini file
|
|
'
|
|
Set oDataFile = oFS.CreateTextFile((GetVendorPath & "\" & L_WIniFile_FileName), True)
|
|
|
|
oDataFile.Write document.all.BetaID.value & vbCrLf
|
|
szTemp = document.all.IncidentFilename.value
|
|
slash = instrrev(szTemp,"\")
|
|
if slash <> 0 then
|
|
szTemp = left(szTemp,slash-1)
|
|
oDataFile.Write szTemp & vbCrLf
|
|
else
|
|
oDataFile.Write GetSystemDrivePath() & vbCrLf
|
|
end if
|
|
|
|
nTemp = 0
|
|
if document.all.CollectOk.checked then
|
|
nTemp = 1
|
|
end if
|
|
oDataFile.Write nTemp & vbCrLf
|
|
|
|
nTemp = 0
|
|
if document.all.SubmitIncidentNow.checked then
|
|
nTemp = 1
|
|
end if
|
|
oDataFile.Write nTemp & vbCrLf
|
|
|
|
nTemp = 0
|
|
if document.all.SaveIncidentNow.checked then
|
|
nTemp = 1
|
|
end if
|
|
oDataFile.Write nTemp & vbCrLf
|
|
|
|
'
|
|
' Close file
|
|
'
|
|
oDataFile.Close
|
|
|
|
end sub
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_CleanCrashDump()
|
|
Dim oFS
|
|
|
|
On Error Resume Next
|
|
|
|
if Len(g_CrashDumpFile) > 0 AND g_DeleteCrashDump then
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_InitializeAll_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
call oFS.DeleteFile(g_CrashDumpFile, TRUE)
|
|
'
|
|
' end of bug filing, reset the global variable
|
|
'
|
|
end if
|
|
g_DeleteCrashDump = FALSE
|
|
g_CrashDumpFile = ""
|
|
g_CrashApp = ""
|
|
g_KernelCrash = FALSE
|
|
|
|
end sub
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_ReadIniFile()
|
|
|
|
Const ForReading = 1, ForWriting = 2
|
|
|
|
const L_IniFile_FileName = "brp_settings.ini"
|
|
const L_BugReport_FileName = "millennium_bugs"
|
|
|
|
Dim oFS, oDataFile
|
|
Dim szTemp, nTemp
|
|
Dim szHRef
|
|
Dim nQueryStr, nQueryStart
|
|
Dim QueryStrings
|
|
|
|
on error resume next
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
if Err.number <> 0 then
|
|
exit sub
|
|
end if
|
|
|
|
g_SettingsBetaId = ""
|
|
g_SettingsLastPath = GetSystemDrivePath() & "\" & L_BugReport_FileName
|
|
g_SettingsShareInfo = True
|
|
g_SettingsSubmitNow = False
|
|
g_SettingsSaveToDisk = True
|
|
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
|
|
if ( oFS.FileExists( GetVendorPath & "\" & L_IniFile_FileName )) then
|
|
|
|
'
|
|
' Read current version from ini file and if older then do init
|
|
'
|
|
Set oDataFile = oFS.OpenTextFile((GetVendorPath & "\" & L_IniFile_FileName), ForReading)
|
|
if Err.number <> 0 then
|
|
exit sub
|
|
end if
|
|
'
|
|
' Read beta id
|
|
'
|
|
szTemp = oDataFile.ReadLine
|
|
if Err.number <> 0 then
|
|
oDataFile.close
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
exit sub
|
|
end if
|
|
g_SettingsBetaId = CDbl(szTemp)
|
|
if g_SettingsBetaId < 0 OR g_SettingsBetaId > 2147483647 then
|
|
g_SettingsBetaId = ""
|
|
end if
|
|
'
|
|
' Read last path
|
|
'
|
|
szTemp = oDataFile.ReadLine
|
|
if Err.number <> 0 then
|
|
oDataFile.close
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
exit sub
|
|
end if
|
|
if oFS.FolderExists( szTemp ) then
|
|
g_SettingsLastPath = szTemp
|
|
end if
|
|
'
|
|
' Read share info
|
|
'
|
|
szTemp = oDataFile.ReadLine
|
|
if Err.number <> 0 then
|
|
oDataFile.close
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
exit sub
|
|
end if
|
|
g_SettingsShareInfo = CBool(szTemp)
|
|
'
|
|
' Read submit now
|
|
'
|
|
szTemp = oDataFile.ReadLine
|
|
if Err.number <> 0 then
|
|
oDataFile.close
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
exit sub
|
|
end if
|
|
g_SettingsSubmitNow = CBool(szTemp)
|
|
'
|
|
' Read save to disk
|
|
'
|
|
szTemp = oDataFile.ReadLine
|
|
if Err.number <> 0 then
|
|
oDataFile.close
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
exit sub
|
|
end if
|
|
g_SettingsSaveToDisk = CBool(szTemp)
|
|
|
|
'
|
|
' Close file
|
|
'
|
|
oDataFile.Close
|
|
|
|
end if
|
|
|
|
g_CrashApp = ""
|
|
g_KernelCrash = FALSE
|
|
g_CrashDumpFile = ""
|
|
g_DeleteCrashDump = FALSE
|
|
|
|
'
|
|
' when the bug reporting page is invoked as:
|
|
' hcp://CN=Microsoft Corporation,L=Redmond,S=Washington,C=US/bugrep.htm?_
|
|
' CrashApp=Microsoft Word&DumpFile=d:\temp\common files\t.dmp&bsod=1&deldump=1
|
|
' href contains:
|
|
' hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/bugrep.htm?_
|
|
' CrashApp=Microsoft%20Word&DumpFile=d:\temp\common%20files\t.dmp&bsod=1&deldump=1
|
|
'
|
|
szHRef = LCase(window.location.href)
|
|
nQueryStart = InStr(1, szHRef, "?", 1)
|
|
if (nQueryStart > 1) then
|
|
szHRef = Mid(szHRef, nQueryStart + 1)
|
|
QueryStrings = Split(szHRef, "&", -1, 1)
|
|
'
|
|
' check the query strings
|
|
'
|
|
for each QueryStr in QueryStrings
|
|
nQueryStr = InStr(1, QueryStr, "dumpfile=", 1)
|
|
if (nQueryStr >= 1) then
|
|
'
|
|
' found DumpFile
|
|
'
|
|
nQueryStr = nQueryStr + len("dumpfile=")
|
|
g_CrashDumpFile = createUnEscapedString(Mid(QueryStr, nQueryStr))
|
|
else
|
|
nQueryStr = InStr(1, QueryStr, "crashapp=", 1)
|
|
if (nQueryStr >= 1) then
|
|
'
|
|
' found CrashApp
|
|
'
|
|
nQueryStr = nQueryStr + len("crashapp=")
|
|
g_CrashApp = createUnEscapedString(Mid(QueryStr, nQueryStr))
|
|
else
|
|
nQueryStr = InStr(1, QueryStr, "bsod=", 1)
|
|
if (nQueryStr >= 1) then
|
|
'
|
|
' found BSOD
|
|
'
|
|
nQueryStr = nQueryStr + len("bsod=")
|
|
if ("1" = Mid(QueryStr, nQueryStr)) then
|
|
g_KernelCrash = TRUE
|
|
else
|
|
g_kernelCrash = FALSE
|
|
end if
|
|
else
|
|
nQueryStr = InStr(1, QueryStr, "deldump=", 1)
|
|
if (nQueryStr >= 1) then
|
|
'
|
|
' found deldump
|
|
'
|
|
nQueryStr = nQueryStr + len("deldump=")
|
|
if ("1" = Mid(QueryStr, nQueryStr)) then
|
|
g_DeleteCrashDump = TRUE
|
|
else
|
|
g_DeleteCrashDump = FALSE
|
|
end if
|
|
end if
|
|
end if
|
|
end if
|
|
end if
|
|
next
|
|
end if
|
|
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_OnProblemTypeChange()
|
|
|
|
Dim szArea
|
|
|
|
on error resume next
|
|
|
|
szArea = Cstr(document.all.Severity.value)
|
|
|
|
Select Case szArea
|
|
case "1"
|
|
document.all.DrWatsonInfo.style.display = ""
|
|
case Else
|
|
document.all.DrWatsonInfo.style.display = "none"
|
|
end select
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_OnAreaChange()
|
|
|
|
Dim szArea
|
|
|
|
on error resume next
|
|
|
|
szArea = document.all.Area.value
|
|
|
|
Select Case szArea
|
|
case "App Compat", "Display", "PNP", "Multimedia"
|
|
document.all.DirectXInfo.style.display = ""
|
|
case Else
|
|
document.all.DirectXInfo.style.display = "none"
|
|
end select
|
|
|
|
Select Case szArea
|
|
case "PC Health"
|
|
document.all.SystemRestoreInfo.style.display = ""
|
|
case Else
|
|
document.all.SystemRestoreInfo.style.display = "none"
|
|
end select
|
|
|
|
end sub
|
|
|
|
</script>
|
|
|
|
<SCRIPT LANGUAGE="VBScript" FOR=window EVENT=onload>
|
|
|
|
on error resume next
|
|
'
|
|
' Set page version
|
|
'
|
|
document.all.BRP_VersionText.innerHTML = "Bug Reporting Page Version " & L_BRP_Version & L_BRPBuild_Version
|
|
|
|
'
|
|
' Initialize all
|
|
'
|
|
Call BRP_InitializeAll()
|
|
|
|
Set oSysInfo = CreateObject("PCHealth.BugRepSysInfo")
|
|
if Err.number = 0 then
|
|
document.all.OS_Name.innerHTML = "Windows Millennium"
|
|
document.all.OS_Version.innerHTML = oSysInfo.GetOSVersionString
|
|
document.all.OS_Language.innerHTML = oSysInfo.GetLanguageID
|
|
|
|
Call BRP_SetOSBuild(oSysInfo.GetOSVersionString)
|
|
|
|
end if
|
|
|
|
'
|
|
' Read initialization file
|
|
'
|
|
Call BRP_ReadIniFile()
|
|
|
|
'
|
|
' Set focus to betaid after page load
|
|
'
|
|
document.all.BetaID.focus
|
|
|
|
</SCRIPT>
|
|
|
|
<script language=JavaScript>
|
|
|
|
//
|
|
// UPL - Upload handler
|
|
// DC - Data collection handler
|
|
// CAB - Cab file creation handler
|
|
//
|
|
|
|
var DCHandlerEnabled = 0;
|
|
var UPLHandlerEnabled = 0;
|
|
var CabHandlerEnabled = 0;
|
|
|
|
//
|
|
// Check if machine data stream is not NULL given a data collection object
|
|
//
|
|
function IsMachineDataValid(ptrDc)
|
|
{
|
|
|
|
var stream = ptrDc.MachineData_GetStream() ;
|
|
|
|
if ( stream != null ) {
|
|
return true ;
|
|
}
|
|
else
|
|
return false ;
|
|
}
|
|
|
|
//
|
|
// Check if machine history data stream is not NULL given a data collection object
|
|
//
|
|
function IsHistoryDataValid(ptrDc)
|
|
{
|
|
|
|
var stream = ptrDc.History_GetStream() ;
|
|
|
|
if ( stream != null ) {
|
|
return true ;
|
|
}
|
|
else
|
|
return false ;
|
|
}
|
|
|
|
//
|
|
// Create escaped string
|
|
//
|
|
function createEscapedString(str)
|
|
{
|
|
|
|
return escape(str);
|
|
|
|
}
|
|
|
|
//
|
|
// Create unescaped string
|
|
//
|
|
function createUnEscapedString(str)
|
|
{
|
|
|
|
return unescape(str);
|
|
|
|
}
|
|
|
|
function dc_onStatusChangeJS(DataCollectionPtr, status)
|
|
{
|
|
if (DCHandlerEnabled == 1) {
|
|
dc_onStatusChange(DataCollectionPtr, status);
|
|
}
|
|
}
|
|
|
|
function dc_onProgressJS(DataCollectionPtr, done, total)
|
|
{
|
|
if (DCHandlerEnabled == 1) {
|
|
dc_onProgress(DataCollectionPtr, done, total);
|
|
}
|
|
}
|
|
|
|
function dc_onCompleteJS(DataCollectionPtr, hresult)
|
|
{
|
|
if (DCHandlerEnabled == 1) {
|
|
dc_onComplete(DataCollectionPtr, hresult);
|
|
}
|
|
}
|
|
|
|
function RegisterDCHandlers()
|
|
{
|
|
DCHandlerEnabled = 1;
|
|
g_oDc.onStatusChange = dc_onStatusChangeJS;
|
|
g_oDc.onProgress = dc_onProgressJS;
|
|
g_oDc.onComplete = dc_onCompleteJS;
|
|
}
|
|
|
|
function UnregisterDCHandlers()
|
|
{
|
|
DCHandlerEnabled = 0;
|
|
}
|
|
|
|
|
|
function upl_onStatusChangeJS(UploadJobPtr, status)
|
|
{
|
|
if (UPLHandlerEnabled == 1) {
|
|
upl_onStatusChange(UploadJobPtr, status);
|
|
}
|
|
}
|
|
|
|
function upl_onProgressChangeJS(UploadJobPtr, currentSize, totalSize)
|
|
{
|
|
if (UPLHandlerEnabled == 1) {
|
|
upl_onProgressChange(UploadJobPtr, currentSize, totalSize);
|
|
}
|
|
}
|
|
|
|
function RegisterUPLHandlers()
|
|
{
|
|
UPLHandlerEnabled = 1;
|
|
g_oUpl.onStatusChange = upl_onStatusChangeJS;
|
|
g_oUpl.onProgressChange = upl_onProgressChangeJS;
|
|
}
|
|
|
|
function UnregisterUPLHandlers()
|
|
{
|
|
UPLHandlerEnabled = 0;
|
|
}
|
|
|
|
|
|
function cab_onCompleteJS(CabPtr, hresult)
|
|
{
|
|
if (CabHandlerEnabled == 1) {
|
|
cab_onComplete(CabPtr, hresult)
|
|
}
|
|
}
|
|
|
|
function RegisterCabHandler()
|
|
{
|
|
CabHandlerEnabled = 1;
|
|
g_oCab.onComplete = cab_onCompleteJS;
|
|
}
|
|
|
|
function UnregisterCabHandler()
|
|
{
|
|
CabHandlerEnabled = 0;
|
|
}
|
|
|
|
function UnloadHandler()
|
|
{
|
|
CancelUpload();
|
|
}
|
|
|
|
function UnloadHandlerMsg()
|
|
{
|
|
|
|
var L_CancelUpload1_Message = "Currently collecing and uploading bug report information.\n";
|
|
var L_CancelUpload2_Message = "Navigating away will cancel the current collection/upload.";
|
|
if ( BRP_Working() ) {
|
|
return ( L_CancelUpload1_Message + L_CancelUpload2_Message) ;
|
|
}
|
|
else
|
|
return ;
|
|
}
|
|
|
|
</script>
|
|
|
|
<!--
|
|
|
|
New stuff in bug reporting page
|
|
|
|
-->
|
|
|
|
<STYLE TYPE="text/css">
|
|
.styleExpandable
|
|
{
|
|
COLOR: blue;
|
|
CURSOR: hand ;
|
|
FONT: bold 10pt Trebuchet MS, Tahoma, arial
|
|
}
|
|
.styleExpanded
|
|
{
|
|
COLOR:black;
|
|
FONT: bold 8pt Trebuchet MS, Tahoma, arial
|
|
}
|
|
.styleCollapsed
|
|
{
|
|
DISPLAY: none
|
|
}
|
|
</STYLE>
|
|
|
|
<SCRIPT LANGUAGE="JavaScript">
|
|
|
|
//
|
|
// Generic display code for collapsing outlines
|
|
//
|
|
function outliner() {
|
|
// Get Child element.
|
|
var child =
|
|
document.all[event.srcElement.getAttribute("child",
|
|
false)];
|
|
// If the child element exists, expand or collapse it.
|
|
if (null != child)
|
|
child.className = child.className == "styleCollapsed" ?
|
|
"styleExpanded" : "styleCollapsed";
|
|
}
|
|
|
|
//
|
|
// Add an element to the list box with origin being the
|
|
// starting select element in the DOM
|
|
//
|
|
function addListElement(origin,text,value)
|
|
{
|
|
|
|
var el = document.createElement("OPTION");
|
|
el.text = text
|
|
el.value = value
|
|
origin.options.add(el);
|
|
|
|
}
|
|
|
|
//
|
|
// Delete an element from a single select list and if no
|
|
// element found then show the error message, if multiple
|
|
// items are selected the code exists after the first instance
|
|
//
|
|
function delListElement(origin,errmsg)
|
|
{
|
|
|
|
var iRemove = 0 ;
|
|
var iFound = false ;
|
|
|
|
if ( origin.length == 0 ) {
|
|
return ;
|
|
}
|
|
|
|
for ( var iLoop = 0 ; iLoop < origin.length ; iLoop++ ) {
|
|
if ( origin[iLoop].selected ) {
|
|
iRemove = iLoop ;
|
|
iFound = true ;
|
|
break ;
|
|
}
|
|
}
|
|
|
|
if ( iFound ) {
|
|
origin.remove(iRemove);
|
|
}
|
|
else {
|
|
BRP_MessageBox(errmsg);
|
|
}
|
|
}
|
|
|
|
//
|
|
// Generic display code for expanding text area sizes
|
|
//
|
|
function increaseRows() {
|
|
// Get Child element.
|
|
var expand_child =
|
|
document.all[event.srcElement.getAttribute("expand_child",
|
|
false)];
|
|
// If the expand_child element exists, expand or collapse it.
|
|
if (null != expand_child) {
|
|
expand_child.rows = Math.min(expand_child.rows_max,
|
|
(expand_child.rows + 3 ));
|
|
}
|
|
|
|
}
|
|
|
|
//
|
|
// Generic display code for expanding text area sizes
|
|
//
|
|
function decreaseRows() {
|
|
// Get Child element.
|
|
var expand_child =
|
|
document.all[event.srcElement.getAttribute("expand_child",
|
|
false)];
|
|
// If the expand_child element exists, expand or collapse it.
|
|
if (null != expand_child) {
|
|
expand_child.rows = Math.max(expand_child.rows_min,
|
|
(expand_child.rows - 3 ));
|
|
}
|
|
|
|
}
|
|
|
|
//
|
|
// strip leading spaces
|
|
//
|
|
function removeLeadingSpace(str)
|
|
{
|
|
|
|
var text = str.replace(/^\s*/,"");
|
|
return text;
|
|
|
|
}
|
|
|
|
|
|
//
|
|
// strip leading spaces
|
|
//
|
|
function removeTrailingSpace(str)
|
|
{
|
|
|
|
var text = str.replace(/\s*$/,"");
|
|
return text;
|
|
}
|
|
|
|
|
|
//
|
|
// change quotations to single quotes (LocStudio has problems with this)
|
|
//
|
|
function replaceQuotes(str)
|
|
{
|
|
|
|
var text = str.replace(/\"/gi,"'"); // "
|
|
return text;
|
|
}
|
|
|
|
//
|
|
// return valid filename
|
|
//
|
|
function validateFilename(str,rep)
|
|
{
|
|
|
|
var st1 = str.replace(/:|>|<|\||\?|\*|\\|\/|\"/g,rep); // : < > | ? * \ / "
|
|
|
|
return st1;
|
|
}
|
|
|
|
</SCRIPT>
|
|
|
|
</HEAD>
|
|
|
|
<!--
|
|
|
|
Body of the document for bug reporting page
|
|
|
|
-->
|
|
<BODY aLink="#000080" bgColor="#ffffff" leftMargin=0 link="#000080" topMargin=0 vLink="#000080"
|
|
MARGINHEIGHT="0" MARGINWIDTH="0"
|
|
LANGUAGE="JavaScript" OnClick="outliner();" OnUnload="UnloadHandler();" OnBeforeUnload="return UnloadHandlerMsg();" >
|
|
|
|
<!--
|
|
|
|
Bug reporting span of the page
|
|
|
|
-->
|
|
<DIV id="spanEnterBug">
|
|
|
|
<FORM action=probrep.asp method=post id=form1 name=form1>
|
|
|
|
<TABLE border=0 borderColor=#ff0000 cellPadding=0 cellSpacing=0 width=600>
|
|
<TBODY>
|
|
|
|
<TR>
|
|
<TD id="Millennium_Logo_Cell" align=left valign=center>
|
|
<IMG id="IMG_Millennium_Logo" src="banner_sm64.jpg" alt="Millennium logo">
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD id="Heading_Data_Cell" align=left vAlign=top>
|
|
|
|
<TABLE id="BugReportingHeadingTable" border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD>
|
|
|
|
<P id="Page_Heading_Paragraph1" align="left">
|
|
<DIV id="Page_Heading_Text" class="PageHeading">
|
|
Report a bug to the Windows Millennium Beta team.
|
|
</DIV>
|
|
<BR>
|
|
<DIV id="Welcome_Instructions_Text" class="Instructions">
|
|
Welcome to the Millennium Bug Report page. Submitting good bug reports is
|
|
a vital part of testing Windows Millennium. Good bug reports are clear,
|
|
concise, and descriptive. Be sure to read the Beta Guide for full
|
|
instructions on how to create a bug report.
|
|
<br><br>
|
|
</DIV>
|
|
<DIV id="Welcome_BRP_Updates">
|
|
To download updates for the bug reporting application visit
|
|
<a href="http://winbeta.microsoft.com/bugrep">winbeta.microsoft.com/bugrep</a>.
|
|
<br>
|
|
<br>
|
|
</DIV>
|
|
</P>
|
|
<P id="Page_Heading_Paragraph2" align="left">
|
|
<div id="Welcome_ThankYou_Text" class="Instructions">
|
|
Thanks for your feedback!
|
|
</div>
|
|
</P>
|
|
<p>
|
|
<div id="Welcome_Closing_Text" class="Instructions">
|
|
- The Windows Millennium Beta Team
|
|
</div>
|
|
</p><p id="BetaID_Paragraph" valign=center align=right>
|
|
|
|
</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
|
|
<TABLE id="BugReportingInputFieldsTable" border=0>
|
|
<TBODY>
|
|
|
|
<!--
|
|
|
|
Section I
|
|
|
|
-->
|
|
<TR>
|
|
<TD id="Space_Cell" align=left valign=center>
|
|
<IMG id="SpaceImage" src="space.gif" alt="Space" border=0 width=150>
|
|
</TD>
|
|
<TD> </TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD colSpan=2>
|
|
<HR>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG id="IMG_Star_Bullet1" alt="Star graphic" border=0 src="star.gif"></TD>
|
|
<TD id="Section1_Heading" class="StepHeading">Section I: Contact Information</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
<BR>
|
|
</TR>
|
|
|
|
<TR>
|
|
<td id="BetaID_Cell" valign=center align=right>
|
|
<div id="BetaID_Label" class="ItemHeadingSmall">Beta ID :</div>
|
|
</td>
|
|
<TD>
|
|
<INPUT maxLength=250 name=BetaID id=BetaID_Input size=40 class="PlainTextSmall"
|
|
LANGUAGE="JavaScript" ONKEYPRESS="if ((event.keyCode < 48 || event.keyCode > 57)) event.returnValue=false;"
|
|
ONBLUR="CorrectBetaID()" >
|
|
</TD>
|
|
</TR>
|
|
|
|
<!--
|
|
|
|
Section II
|
|
|
|
-->
|
|
<TR>
|
|
<TD colSpan=2 >
|
|
<HR>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG id="IMG_Star_Bullet2" alt="Star graphic" border=0 src="star.gif"></TD>
|
|
<TD id="Section2_Heading" class="StepHeading">Section II: Issue Information</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
<BR>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD id="Title_Paragraph" align=right ><div id="Title_Label" class="ItemHeadingSmall">Problem Title:</div></TD>
|
|
<TD><INPUT maxLength=255 name=Title id=Title_Input size=60 class="PlainTextSmall" ONBLUR="CreateNameCAB()"></TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD id="Title_Example_Spacer" align=right ></TD>
|
|
<TD bgcolor="#ffffd0"><div id="Title_Example" class="PlainTextSmall"><ID id="fooExample1"><B>Example:</B></ID>
|
|
<ID id="fooExampleString1">"Script error instead of printer properties"</ID></div>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD id="Severity_Cell" align=right ><div id="Severity_Label" class="ItemHeadingSmall">Problem Type:</div></TD>
|
|
<TD><SELECT name=Severity class="PlainTextSmall" ONCHANGE="BRP_OnProblemTypeChange()">
|
|
<OPTION id="Severity_SelectOne" selected value=N>=== Select One ===</OPTION>
|
|
<OPTION id="Severity_CrashHang" value=1>Crash or Hang</OPTION>
|
|
<OPTION id="Severity_FuncImpaired" value=2>Functionality Impaired</OPTION>
|
|
<OPTION id="Severity_Cosmetic" value=3>Minor / Cosmetic</OPTION>
|
|
<OPTION id="Severity_Trivial" value=4>Trivial</OPTION>
|
|
</SELECT>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD id="Area_Cell" align=right ><div id="Area_Label" class="ItemHeadingSmall">Area:</div></TD>
|
|
<TD>
|
|
<SELECT name=Area type="ListBox" class="PlainTextSmall" ONCHANGE="BRP_OnAreaChange()">
|
|
<OPTION id="Area_SelectOne" selected value=NA>=== Select One ===</OPTION>
|
|
<option id="Area_Applets" value="APPLETS">Applets/Disk Tools</option>
|
|
<option id="Area_AppCompat" value="App Compat">Application Compatibility</option>
|
|
<option id="Area_BPC" value="BPC">Broadcast Architecture</option>
|
|
<option id="Area_Comm" value="Comm">Communications/ISDN/Fax/Infrared</option>
|
|
<option id="Area_Display" value="Display">Display/Multi-Monitor</option>
|
|
<option id="Area_PNP" value="PNP">Hardware/Drivers/Plug & Play/USB/Device Bay</option>
|
|
<option id="Area_InternetApps" value="Internet Apps">Internet Explorer/Netmeeting/Internet Connection</option>
|
|
<option id="Area_InternetSharing" value="Internet Sharing">Internet Connection Sharing</option>
|
|
<option id="Area_Messagine" value="Messaging">Messaging/Outlook Express/Mail/Exchange</option>
|
|
<option id="Area_Multimedia" value="Multimedia">Multimedia/DirectX/DVD/Still Image</option>
|
|
<option id="Area_NetClient" value="Net Client">Networking</option>
|
|
<option id="Area_PowerManagement" value="Power Management">Power Management/ACPI</option>
|
|
<option id="Area_Printing" value="Printing">Printing</option>
|
|
<option id="Area_Setup" value="Setup">Setup</option>
|
|
<option id="Area_Shell" value="Shell">Shell</option>
|
|
<option id="Area_PSSTools" value="PSS Tools">Support Tools/Registry</option>
|
|
<option id="Area_PCHealth" value="PC Health">System Restore/System File Protection</option>
|
|
<option id="Area_PCHealth2" value="PC Health">Bug Reporting Tools</option>
|
|
<option id="Area_Other" value="Other">Other</option>
|
|
</SELECT>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD id="Reproducibility_Cell" align=right >
|
|
<div id="Reproducibility_Label" class="ItemHeadingSmall">This Problem: </div>
|
|
</TD>
|
|
<TD><SELECT name=Reproducibility type="ListBox" class="PlainTextSmall">
|
|
<OPTION id="Reproducibility_Always" selected value=Always>Always Happens</OPTION>
|
|
<OPTION id="Reproducibility_Sometimes" value=Sometimes>Sometimes Happens</OPTION>
|
|
<OPTION id="Reproducibility_Once" value=Once>Happened Once</OPTION></SELECT>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD id="Description_Cell" align=right valign=top >
|
|
<div id="Description_Label" class="ItemHeadingSmall">Describe the problem:</div>
|
|
</TD>
|
|
<TD valign=top>
|
|
<TABLE><TBODY>
|
|
<TR>
|
|
<TD valign=top>
|
|
<TEXTAREA cols=60 id="Description_TextArea" name=Description rows=6
|
|
class="PlainTextSmall" wrap=virtual onblur="ValidateTextLength(2000)" rows_min=6 rows_max=500></TEXTAREA>
|
|
</TD>
|
|
<TD valign=top>
|
|
<TABLE><TBODY>
|
|
<TR>
|
|
<TD>
|
|
<IMG id="Description_ContractButton" alt="Size down" border=0 OnClick="decreaseRows()"
|
|
expand_child="Description_TextArea" src="size_down.gif">
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
<IMG id="Description_ExpandButton" alt="Size up" border=0 OnClick="increaseRows()"
|
|
expand_child="Description_TextArea" src="size_up.gif">
|
|
</TD>
|
|
</TR>
|
|
</TBODY></TABLE>
|
|
</TD>
|
|
</TD>
|
|
</TBODY></TABLE>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD id="Filler_Cell1" > </TD>
|
|
<TD bgColor=#ffffd0 ><div id="Description_Example" class="PlainTextSmall"><ID id="fooExample2"><B>Example:</B></ID>
|
|
<ID id="fooExampleString2">"I tried to right-click a printer in the Printers folder and got a script error."</ID>
|
|
</div>
|
|
</TD>
|
|
</TR>
|
|
|
|
<tr>
|
|
<TD id="ExpectedBehavior_Cell" align=right valign=top >
|
|
<div id="ExpectedBehavior_Label" class="ItemHeadingSmall">What did you expect to
|
|
happen:</div>
|
|
</TD>
|
|
<TD valign=top>
|
|
<TABLE><TBODY>
|
|
<TR>
|
|
<TD valign=top>
|
|
<TEXTAREA cols=60 id="ExpectedBehavior_TextArea" name=ExpectedBehavior rows=6
|
|
class="PlainTextSmall" wrap=virtual onblur="ValidateTextLength(2000)" rows_min=6 rows_max=500></TEXTAREA>
|
|
</TD>
|
|
<TD valign=top>
|
|
<TABLE><TBODY>
|
|
<TR>
|
|
<TD>
|
|
<IMG id="ExpectedBehavior_ContractButton" alt="Size down" border=0 OnClick="decreaseRows()"
|
|
expand_child="ExpectedBehavior_TextArea" src="size_down.gif">
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
<IMG id="ExpectedBehavior_ExpandButton" alt="Size up" border=0 OnClick="increaseRows()"
|
|
expand_child="ExpectedBehavior_TextArea" src="size_up.gif">
|
|
</TD>
|
|
</TR>
|
|
</TBODY></TABLE>
|
|
</TD>
|
|
</TD>
|
|
</TBODY></TABLE>
|
|
</TD>
|
|
</TR>
|
|
|
|
<tr>
|
|
<TD id="Filler_Cell2" > </TD>
|
|
<TD bgColor=#ffffd0 ><div id="ExpectedBehavior_Example" class="PlainTextSmall"><ID id="fooExample3"><B>Example:</B></ID>
|
|
<ID id="fooExampleString3">"The context menu should have been displayed."</ID></div>
|
|
</TD>
|
|
</tr>
|
|
|
|
<TR>
|
|
<TD id="StepsToRepro_Cell" align=right valign=top >
|
|
<div id="StepsToRepro_Label" class="ItemHeadingSmall">Enter the steps required to reproduce the problem: </div>
|
|
</TD>
|
|
<TD valign=top>
|
|
<TABLE><TBODY>
|
|
<TR>
|
|
<TD valign=top>
|
|
<TEXTAREA id="StepsToRepro_TextArea" cols=60 name=StepsToRepro rows=6
|
|
class="PlainTextSmall" wrap=virtual onblur="ValidateTextLength(2000)" rows_min=6 rows_max=500></TEXTAREA>
|
|
</TD>
|
|
<TD valign=top>
|
|
<TABLE><TBODY>
|
|
<TR>
|
|
<TD>
|
|
<IMG id="StepsToRepro_ContractButton" alt="Size down" border=0 OnClick="decreaseRows()"
|
|
expand_child="StepsToRepro_TextArea" src="size_down.gif">
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
<IMG id="StepsToRepro_ExpandButton" alt="Size up" border=0 OnClick="increaseRows()"
|
|
expand_child="StepsToRepro_TextArea" src="size_up.gif">
|
|
</TD>
|
|
</TR>
|
|
</TBODY></TABLE>
|
|
</TD>
|
|
</TD>
|
|
</TBODY></TABLE>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD id="Filler_Cell3" > </TD>
|
|
<TD bgColor=#ffffd0 ><div id="StepsToRepro_Example" class="PlainTextSmall"><ID id="fooExample4"><B>Example:</B></ID>
|
|
<ID id="fooExampleString4">"1: From Start menu, choose Settings 2: Choose Printers folder, 3: Right-click on a printer"</ID>
|
|
</div>
|
|
</TD>
|
|
</TR>
|
|
<!--
|
|
|
|
Section III
|
|
|
|
-->
|
|
<TR>
|
|
<TD colSpan=2 >
|
|
<HR>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG id="IMG_Star_Bullet3" alt="Star graphic" border=0 src="star.gif"></TD>
|
|
<TD id="Section3_Heading" class="StepHeading">Section III: System Information</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
|
|
<BR>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD id="OS_NameText" class="PlainTextSmall" >OS Name</TD>
|
|
<TD id="OS_Name" class="PlainTextSmall" > </TD>
|
|
</TR>
|
|
<TR>
|
|
<TD id="OS_VersionText" class="PlainTextSmall" >OS Version</TD>
|
|
<TD id="OS_Version" class="PlainTextSmall" > </TD>
|
|
</TR>
|
|
<TR>
|
|
<TD id="OS_LanguageText" class="PlainTextSmall" >OS Language Code</TD>
|
|
<TD id="OS_Language" class="PlainTextSmall" > </TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
|
|
<BR>
|
|
<div id="CollectOk_Text" class="Instructions">
|
|
When you click <b>Submit</b>, detailed information about your system will be collected
|
|
to help us reproduce your problem.
|
|
</div>
|
|
<br>
|
|
<!--
|
|
|
|
Data for list of files shown as an expandable link
|
|
|
|
-->
|
|
<div id="CollectedFiles_ExpandLink" class="styleExpandable" child="CollectedFiles_List">List of files collected</div>
|
|
<div id="CollectedFiles_List" class="styleCollapsed" STYLE="margin-left:30pt" >
|
|
asd.log<br>
|
|
bootlog.prv<br>
|
|
bootlog.txt<br>
|
|
detlog.txt<br>
|
|
netlog.txt<br>
|
|
setuplog.old<br>
|
|
setuplog.txt<br>
|
|
%windir%\classes.dat<br>
|
|
%windir%\ios.log<br>
|
|
%windir%\ppplog.txt<br>
|
|
%windir%\resume.txt<br>
|
|
%windir%\susfail.txt<br>
|
|
%windir%\system.dat<br>
|
|
%windir%\system.ini<br>
|
|
%windir%\user.dat<br>
|
|
%windir%\win.ini<br>
|
|
%windir%\wulog.txt<br>
|
|
%windir%\emi\errlog.dat<br>
|
|
%windir%\PCHealth\HelpCtr\Config\DataSpec.XML<br>
|
|
%windir%\system\sfp\sfplog.txt<br>
|
|
bug_upload_collect.XML<br>
|
|
bug_upload_collect_2408.XML<br>
|
|
bug_upload_nocollect.XML<br>
|
|
%temp%\hcupdate.log<br>
|
|
WMI Logs<br>
|
|
</div>
|
|
<br>
|
|
<div id="CollectOk_Input" class="Instructions">
|
|
<TABLE><TBODY>
|
|
<TR>
|
|
<TD valign=top><input type=checkbox id=CollectOk name=CollectOk checked></TD>
|
|
<TD><LABEL STYLE="CURSOR : Hand" id="CollectOk_Label" FOR="CollectOk">Share this information with Microsoft.</LABEL>
|
|
<DIV id="MS_Privacy">
|
|
(See Microsoft's <a href="http://www.microsoft.com/info/privacy.htm">privacy policy</a>.)
|
|
</DIV>
|
|
</TD>
|
|
</TR>
|
|
</TBODY></TABLE>
|
|
</div>
|
|
<br>
|
|
<div id="NoCollect_FileList">
|
|
If the above box is unchecked system information is not collected but a few files are uploaded with
|
|
the bug incident.
|
|
</div>
|
|
<br>
|
|
<div id="NoCollectedFiles_ExpandLink" class="styleExpandable" child="NoCollectedFiles_List">
|
|
List of files collected if system information is not collected
|
|
</div>
|
|
<div id="NoCollectedFiles_List" class="styleCollapsed" STYLE="margin-left:30pt">
|
|
asd.log<br>
|
|
bootlog.prv<br>
|
|
bootlog.txt<br>
|
|
detlog.txt<br>
|
|
netlog.txt<br>
|
|
setuplog.old<br>
|
|
setuplog.txt<br>
|
|
%windir%\classes.dat<br>
|
|
%windir%\ios.log<br>
|
|
%windir%\ppplog.txt<br>
|
|
%windir%\resume.txt<br>
|
|
%windir%\susfail.txt<br>
|
|
%windir%\system.dat<br>
|
|
%windir%\system.ini<br>
|
|
%windir%\user.dat<br>
|
|
%windir%\win.ini<br>
|
|
%windir%\wulog.txt<br>
|
|
%windir%\emi\errlog.dat<br>
|
|
%windir%\PCHealth\HelpCtr\Config\DataSpec.XML<br>
|
|
%windir%\system\sfp\sfplog.txt<br>
|
|
bug_upload_collect.XML<br>
|
|
bug_upload_collect_2408.XML<br>
|
|
bug_upload_nocollect.XML<br>
|
|
%temp%\hcupdate.log<br>
|
|
WMI Logs<br>
|
|
</div>
|
|
<br>
|
|
<TABLE id="ExtraFiles_Cell" border=0 cellpadding=10 width="600px" align=center><TBODY><TR><TD bgcolor="#d0d0d0">
|
|
<!--
|
|
|
|
DrWatson section
|
|
|
|
-->
|
|
<div id="DrWatsonInfo" class="Instructions" STYLE="display:none;margin-left:15px">
|
|
<div id="dwTitle"><b><id id="dwfoo">DrWatson Information</id></b></div>
|
|
<br>
|
|
<div id="DrWatsonInfoP1" class="Instructions" STYLE="margin-left:30px">
|
|
Crash data is collected via the Dr. Watson tool. This tool is not loaded by default in order to improve
|
|
boot time performance, and it must be loaded prior to a crash in order to collect useful data. In order
|
|
to provide more data for easier resolution of bugs please add the DrWatson.exe application in the Windows
|
|
directory to your startup menu.
|
|
</div>
|
|
<br>
|
|
</div>
|
|
<!--
|
|
|
|
DirectX team section
|
|
|
|
-->
|
|
<div id="DirectXInfo" class="Instructions" STYLE="display:none;margin-left:15px">
|
|
<div id="dxTitle"><b><id id="dxfoo">DirectX Diagnostics</id></b></div>
|
|
<br>
|
|
<div id="DirectXInfoP1" class="Instructions" STYLE="margin-left:30px">
|
|
In order to help identify and resolve the problem we need to collect some additional information using
|
|
the DirectX Diagnostics tool.
|
|
</div>
|
|
<br>
|
|
<div id="DirectXInfoP2" class="Instructions" STYLE="margin-left:30px">
|
|
To execute this tool please choose "Run" from the start menu and type "DXDiag". Once the DirectX Diagnostic
|
|
Tool is running, choose "Save All Information". Save the file to a filename <b>dxdiag.log</b> in a location that
|
|
you can find.
|
|
</div>
|
|
<br>
|
|
<div id="DirectXInfoP3" class="Instructions" STYLE="margin-left:30px">
|
|
Then in the <b>Additional files to collect</b> area of the bug report, please browse to that directory and
|
|
select this file to add. This file will now be uploaded along with the bug report.
|
|
</div>
|
|
<br>
|
|
<div id="DirectXInfoP4" class="Instructions" STYLE="margin-left:30px">
|
|
Thanks - The DirectX Team
|
|
</div>
|
|
<br>
|
|
</div>
|
|
</div>
|
|
<!--
|
|
|
|
System Restore team section
|
|
|
|
-->
|
|
<div id="SystemRestoreInfo" class="Instructions" STYLE="display:none;margin-left:15px">
|
|
<div id="srTitle"><b><id id="srfoo">System Restore Diagnostics</id></b></div>
|
|
<br>
|
|
<div id="srInfoP1" class="Instructions" STYLE="margin-left:30px">
|
|
In order to get more information to help identify and resolve the problem please go to the %windir%/system/restore
|
|
directory (%windir% is your windows directory) and execute the Cabbit tool with the following syntax:
|
|
</div>
|
|
<pre id="cabbitCommand" STYLE="margin-left:30px">cabbit srdata.cab</pre>
|
|
<div id="srInfoP2" class="Instructions" STYLE="margin-left:30px">
|
|
cabbit.exe will generate a cabfile containing system restore log files and name it srdata.cab
|
|
</div>
|
|
<br>
|
|
<div id="srInfoP3" class="Instructions" STYLE="margin-left:30px">
|
|
Then in the <b>Additional files to collect</b> area of the bug report, please browse to the %windir%/system/restore
|
|
directory and select this file to add. This file will now be uploaded along with the bug report.
|
|
</div>
|
|
<br>
|
|
<div id="srInfoP4" class="Instructions" STYLE="margin-left:30px">
|
|
Thanks - The PC Health Team
|
|
</div>
|
|
</div>
|
|
|
|
</TD></TR></TBODY></TABLE>
|
|
<br>
|
|
<div id="AdditionalFilesInfo" class="Instructions">
|
|
Additional files to be submitted with the bug report can be selected using the <B>Browse</B> button and added
|
|
to the list of files submitted using the <B>Add File</B> button.
|
|
</div>
|
|
<br>
|
|
</TD>
|
|
</TR>
|
|
<!--
|
|
|
|
Additional files to collect
|
|
|
|
-->
|
|
<TR>
|
|
<TD id="AdditionalFiles_Cell3" valign=top align=right >
|
|
<div id="AdditionalFiles_Text" class="ItemHeadingSmall">Additional files to collect:</div>
|
|
</TD>
|
|
<TD>
|
|
<INPUT STYLE="width:300pt" TYPE=file name="AdditionalFile" id="AdditionalFile" class="PlainTextSmall" size=50>
|
|
<br>
|
|
<SELECT STYLE="width:300pt" id="AdditionalFiles_List" class="PlainTextSmall" SIZE=5>
|
|
</SELECT>
|
|
<br>
|
|
<BUTTON name=AddFile id=AddFile onclick="BRP_ListAddFileForUpload()" accesskey="A"><U>A</U>dd File</BUTTON>
|
|
<BUTTON name=RemoveFile id=RemoveFile onclick="BRP_ListRemoveFileForUpload()" accesskey="R"><U>R</U>emove File</BUTTON><br>
|
|
</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
|
|
<!--
|
|
|
|
Section IV
|
|
|
|
-->
|
|
<TABLE id="BugReportingSubmittingTable" border=0>
|
|
<TBODY>
|
|
|
|
<TR>
|
|
<TD colSpan=2 >
|
|
<HR><BR>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG id="IMG_Star_Bullet5" alt="Star graphic" border=0 src="star.gif"></TD>
|
|
<TD id="Section5_Heading" class="StepHeading">Section IV: Submitting Bug Report</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
<BR>
|
|
<div id="SubmitInstructions_Text" class="Instructions">
|
|
When you click <b>Submit</b> and <B>Submit to Microsoft now</B> is checked, the bug information will be
|
|
uploaded to Microsoft's servers. To cancel the bug report click <b>Cancel</b> anytime during the submission
|
|
process. To keep a local copy of the files on your disk select the
|
|
option to <B>Save copy to disk</B> and specify a filename.<br>
|
|
<br>
|
|
Please make sure you are connected to the internet before submitting
|
|
a bug report to Microsoft.<br>
|
|
<br>
|
|
</div>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG id="IMG_Star_Bullet4" alt="Star graphic" border=0 src="star.gif"></TD>
|
|
<TD id="Section4_Heading" class="ItemHeadingSmall">Current Status:</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD> </TD>
|
|
<TD>
|
|
<DIV name="Status" id=Status class="ItemHeadingSmall"> </DIV>
|
|
</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
|
|
<TABLE WIDTH="100%" BORDER=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD WIDTH="20%" name="Progress" id=Progress class="ItemHeadingSmall">
|
|
|
|
</TD>
|
|
<TD name="ProgressText" id=ProgressText class="ItemHeadingSmall">
|
|
|
|
</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
<TABLE border=0 cellpadding=10>
|
|
<TBODY>
|
|
<TR>
|
|
<TD id="SubmitButton_Cell" valign=top>
|
|
<BUTTON name=Submit id=Submit class="stlButtonBig" onclick="StartProcessing()" accesskey="S"><U>S</U>ubmit</BUTTON>
|
|
<BUTTON name=Cancel id=Cancel class="stlButtonBig" onclick="CancelUpload()" accesskey="C" disabled><U>C</U>ancel</BUTTON>
|
|
</TD>
|
|
<TD valign=top>
|
|
<input type=checkbox id=SubmitIncidentNow name=SubmitIncidentNow checked>
|
|
<LABEL STYLE="CURSOR : Hand" id="SubmitNow_Label" FOR="SubmitIncidentNow">Submit to Microsoft now</LABEL>
|
|
<BR>
|
|
<input type=checkbox id=SaveIncidentNow name=SaveIncidentNow>
|
|
<LABEL STYLE="CURSOR : Hand" id="SaveNow_Label" FOR="SaveIncidentNow">Save copy to disk</LABEL>
|
|
<BR><BR>
|
|
<TABLE id="SaveToDiskTable"><TBODY>
|
|
<TR>
|
|
<TD id="FileNameLocal_Cell" valign=top align=right>
|
|
<DIV id="Section5_SaveInfoText" class="ItemHeadingSmall">
|
|
Filename :
|
|
</DIV>
|
|
</TD>
|
|
<TD id="FileNameLocalName_Cell" valign=top>
|
|
<DIV id="Section5_SaveInfoFile" class="ItemHeadingSmall">
|
|
<INPUT type=text size=50 name=IncidentFilename id=IncidentFilename class="PlainTextSmall"
|
|
ONBLUR="CorrectNameCAB()">
|
|
</DIV>
|
|
</TD>
|
|
</TR>
|
|
</TBODY></TABLE>
|
|
</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
</TD>
|
|
</TR>
|
|
|
|
</TBODY>
|
|
</TABLE>
|
|
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
</FORM>
|
|
</DIV>
|
|
|
|
<!--
|
|
|
|
The thank you part of the bug reporting page after a bug has been reported
|
|
|
|
-->
|
|
|
|
<DIV id="spanThankYou" STYLE="DISPLAY: none">
|
|
<TABLE border=0 borderColor=#ff0000 cellPadding=0 cellSpacing=0 width="600">
|
|
|
|
<TBODY>
|
|
|
|
<TR>
|
|
<TD id="ThankYou_Millennium_Logo_Cell" align=left valign=center>
|
|
<IMG id="ThankYou_IMG_Millennium_Logo" src="banner_sm64.jpg" alt="Millennium logo">
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD>
|
|
<BR>
|
|
<p id="ThankYou_Paragraph" class="PlainText">
|
|
Thank you for submitting a bug report. For future reference to this bug please
|
|
store the tracking number listed below.</p>
|
|
<BR>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD id="BRP_IncidentTimeText" class="PlainTextSmall" >Submit Time</TD>
|
|
<TD id="BRP_IncidentTime" class="PlainTextSmall" > </TD>
|
|
</TR>
|
|
<TR>
|
|
<TD id="BRP_TrackingNoText" class="PlainTextSmall" >Tracking Number</TD>
|
|
<TD id="BRP_TrackingNo" class="PlainTextSmall" > </TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
<BR>
|
|
<!--
|
|
<p id="Helpcenter_Return_Link"><a href="hcp://system/Mars_Contents.htm">
|
|
Return to the main helpcenter page</a></p>
|
|
-->
|
|
</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
</DIV>
|
|
|
|
<!--
|
|
|
|
Footer
|
|
|
|
-->
|
|
|
|
<BR><BR>
|
|
|
|
<TABLE>
|
|
<TBODY>
|
|
<TR>
|
|
<TD>
|
|
<div id="BRP_VersionText" class="PlainTextSmall">
|
|
</div>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
<BR>
|
|
<div id="Copyright_Notice" class="PlainTextSmall">©
|
|
<a href="http://www.microsoft.com/misc/cpyright.htm">
|
|
1999 Microsoft Corporation. All rights reserved. Terms of use.
|
|
</a>
|
|
</div>
|
|
</TD>
|
|
</TR>
|
|
</TBODY>
|
|
</TABLE>
|
|
|
|
<BR><BR><BR>
|
|
|
|
<!--
|
|
|
|
End of document
|
|
|
|
-->
|
|
|
|
</BODY>
|
|
</HTML>
|