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.
4079 lines
142 KiB
4079 lines
142 KiB
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>File a bug report</TITLE>
|
|
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" >
|
|
<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>
|
|
<!--
|
|
******************************************************************
|
|
Copyright (c) 1999 Microsoft Corporation
|
|
|
|
Module Name:
|
|
Bug Reporting Page
|
|
|
|
File:
|
|
bugrep.htm
|
|
|
|
Abstract:
|
|
Bug reporting channel for Whistler 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
|
|
1999-11-09 : Adding local LCID and ACP to handle Local translations
|
|
Updated xml files to collect data
|
|
1999-12-02 : Changed page encoding to UTF-8 to display special characters (118165)
|
|
Fixed extra space in recorded incident page (119877)
|
|
Fixed localizability with BRP Version string (121829)
|
|
1999-12-06 : Removed IEMOF section, because IE5 providers are already registered on
|
|
Whistler (3529);
|
|
Removed BRP_INFO registration section, because brpinfo.dll is installed as
|
|
part of helpctr (millen bug#121483).
|
|
2000-04-27 : Began modifying bugrep.htm for deployment to Whistler Beta Program web server and
|
|
application. (DougA)
|
|
2000-05-22 : Finalized changes, incremented version number
|
|
2000-06-06 : Changed tracking number text since tracking numbers will come from the server
|
|
2000-08-01 : Began work on changes for Beta1. These changes will include:(DougA)
|
|
* New Areas
|
|
* Verification of Email address.
|
|
* Persistance of Email address.
|
|
* Regression, SKU and Upgrade questions.
|
|
* Feild limits match bugreporting page on http://windowsbeta.microsoft.com
|
|
* Text changes in the intro verbage.
|
|
* Drop requirement for BetaID.
|
|
* Rev the build number on the page.
|
|
2000-11-15 : Began changes for Beta2. Theses changes will include:(DougA)
|
|
* Persist major data ( sku, this problems happens, et et et...)
|
|
* Correct a mis-spelling in the SKU drop down.
|
|
* added a few files to be collected with bug report.
|
|
2001-2-13 : Globalized the above additions by adding ID attributes to the tags.(DougA)
|
|
2001-4-11 : Began changes for RC1. Theses changes will include: (DougA)
|
|
* New Area: HCT
|
|
* Change "Personal" - > "Home" in Area Drop down.
|
|
* Re-activate the DxDiag Div for both games and video areas.
|
|
* New Area: Fast User Switching
|
|
* New Text RE: Comments Link.
|
|
* Make sure all changes are localizable
|
|
* Rev Build Number
|
|
|
|
Requires following files
|
|
|
|
ErrCodes.vbs
|
|
bugrep.css
|
|
bug_upload_collect.xml
|
|
bug_upload_nocollect.xml
|
|
dataspec.xml
|
|
|
|
******************************************************************
|
|
-->
|
|
<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 = "5.00.00."
|
|
const L_BRPBuild_Version = "6000"
|
|
|
|
'
|
|
' ProductName (should be equal to product name field in SAF1.XML)
|
|
'
|
|
const L_ProductName_Version = "Microsoft Whistler 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://windowsbeta.microsoft.com/pchealth/UpLoadServer.dll"
|
|
|
|
'
|
|
' Field names
|
|
'
|
|
const L_MissingField_ErrorMessage = "Missing or incomplete required field: "
|
|
const L_FormField_FIELDNAME_BetaID_TEXT = "Beta ID"
|
|
const L_FormField_FIELDNAME_Emailaddr_TEXT = "Email address"
|
|
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_SKU_TEXT = "This Windows install is the"
|
|
const L_FormField_FIELDNAME_regression_TEXT = "This Problem (2nd Dropdown)"
|
|
const L_FormField_FIELDNAME_upgrade_TEXT = "This install is"
|
|
|
|
|
|
const L_FormField_FIELDNAME_Area_TEXT = "Area"
|
|
const L_FormField_FIELDNAME_Reproducibility_TEXT = "This Problem (1st Dropdown)"
|
|
'
|
|
' 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
|
|
|
|
const L_NoConnection1_ErrorMessage = "Bug can not be sent at this time because we detect no current internet connection."
|
|
const L_NoConnection2_ErrorMessage = "Please connect to the Internet and resend the bug, or deselect ""Submit to Microsoft now"" and select ""Save copy to disk"" only to save the bug for sending later (please see readme for batch uploading instructions)."
|
|
|
|
const g_TestingURL = "http://www.microsoft.com"
|
|
|
|
'
|
|
' 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_bSaveIncidentSucceeded, g_bSubmitIncidentSucceeded
|
|
|
|
Dim g_bFormValid
|
|
Dim g_nCurrentBuild
|
|
|
|
Dim g_SettingsBetaId
|
|
Dim g_SettingsEmail
|
|
Dim g_SettingsSKU
|
|
Dim g_SettingsUpgrade
|
|
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_bSaveIncidentSucceeded = False
|
|
g_bSubmitIncident= False
|
|
g_bSubmitIncidentSucceeded = False
|
|
g_bFormValid = False
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' Validate form before submitting report
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub ValidateForm()
|
|
|
|
|
|
const L_BetaIDBadRange_ErrorMessage = "There is an problem with your betaid."
|
|
Dim misc_fields, colon, bang, field, description, BetaIDValue
|
|
Dim oFS
|
|
' 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.
|
|
'"BetaID!" & L_FormField_FIELDNAME_BetaID_TEXT & _
|
|
misc_fields = "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
|
|
|
|
'Verify email value.
|
|
dim emailinput
|
|
emailinput = document.all.Emailaddr_Input.value
|
|
|
|
if ( (emailinput = "") or (len(emailinput) < 6) or (instr(emailinput,"@") = 0) or (instr(emailinput,".") = 0) or (instr(emailinput," ") <> 0) ) then
|
|
|
|
Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_emailaddr_TEXT)
|
|
g_bFormValid = False
|
|
document.all.Emailaddr_Input.focus
|
|
exit sub
|
|
end if
|
|
|
|
if document.all.Severity.value = "NA" 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.regression.value = "NA" then
|
|
Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_regression_TEXT)
|
|
g_bFormValid = False
|
|
document.all.regression.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
|
|
|
|
if document.all.SKU.value = "NA" then
|
|
Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_SKU_TEXT)
|
|
g_bFormValid = False
|
|
document.all.SKU.focus
|
|
exit sub
|
|
end if
|
|
|
|
if document.all.upgrade.value = "NA" then
|
|
Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_upgrade_TEXT)
|
|
g_bFormValid = False
|
|
document.all.upgrade.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
|
|
Err.Clear
|
|
'BetaIDvalue = CLng(document.all.BetaID.value)
|
|
'if Err.number <> 0 then
|
|
' Call BRP_MessageBox(L_BetaIDBadRange_ErrorMessage)
|
|
' g_bFormValid = False
|
|
' document.all.BetaID.focus
|
|
' exit sub
|
|
'end if
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
document.all.IncidentFilename.value = oFS.GetAbsolutePathName(document.all.IncidentFilename.value)
|
|
'
|
|
' 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
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' Only on Whistler
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function GetSystemRootPath()
|
|
|
|
Dim oWshShell
|
|
|
|
Set oWshShell = CreateObject("WScript.Shell")
|
|
GetSystemRootPath = oWshShell.ExpandEnvironmentStrings("%SYSTEMROOT%")
|
|
|
|
end function
|
|
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function GetSystemDrivePath()
|
|
|
|
Dim oWshShell, szWinBootDir, szSystemDrive
|
|
Dim slash
|
|
|
|
Set oWshShell = CreateObject("WScript.Shell")
|
|
szSystemDrive = oWshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%")
|
|
if len(szSystemDrive) <= 0 OR szSystemDrive = "%SYSTEMDRIVE%" then
|
|
szWinBootDir = oWshShell.ExpandEnvironmentStrings("%WINBOOTDIR%")
|
|
slash = instr(szWinBootDir,"\")
|
|
if slash <> 0 then
|
|
GetSystemDrivePath = left(szWinBootDir,slash-1)
|
|
else
|
|
GetSystemDrivePath = "C:"
|
|
end if
|
|
else
|
|
GetSystemDrivePath = szSystemDrive
|
|
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 RunExternalApplicationCabbit()
|
|
|
|
Dim oFS
|
|
Dim oWshShell
|
|
|
|
Set oWshShell = CreateObject("WScript.Shell")
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
szAppName = GetWinSystemPath & "\restore\cabbit.exe /f: " & GetTempPath & "\srdata.cab"
|
|
|
|
Call BRP_TraceMessage(szAppName)
|
|
|
|
'
|
|
' Activate the window and display in minimum size
|
|
'
|
|
RunExternalApplicationCabbit = oWshShell.Run(szAppName, 1, True)
|
|
|
|
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 hresult <> 0 then
|
|
szErrorMessage = L_CollectError_ErrorMessage & Err.description & " (" & Err.number & "). "
|
|
else
|
|
szErrorMessage = L_CollectErrorNoErrNum_ErrorMessage
|
|
end if
|
|
|
|
Err.Clear
|
|
|
|
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
|
|
if Not (g_oDc is Nothing) then
|
|
set g_oDc = Nothing
|
|
end if
|
|
Set g_oDc = pchealth.CreateObject_DataCollection
|
|
|
|
Set oFS = CreateObject("Scripting.FileSystemObject")
|
|
|
|
iSpecNotFound = FALSE
|
|
|
|
if document.all.CollectOk.checked then
|
|
szUploadXMLFileName = "\bug_upload_collect.XML"
|
|
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 = "emailaddr:Title:Severity:Area:Reproducibility:ExpectedBehavior:StepsToRepro"
|
|
|
|
Set oInc = pchealth.CreateObject_Incident()
|
|
|
|
'Prep the description with addtional information (SKU, regression, upgrade information)
|
|
|
|
dim Final_Description
|
|
Final_Description = ""
|
|
Final_Description = Final_Description & "Version Installed: " & document.all.SKU.value & chr(13)
|
|
Final_Description = Final_Description & "Regression: " & document.all.Regression.value & chr(13)
|
|
Final_Description = Final_Description & "Upgrade From: " & document.all.upgrade.value & chr(13)
|
|
Final_Description = Final_Description & "=======================================================================" & chr(13)
|
|
Final_Description = Final_Description & document.all("Description").value
|
|
|
|
|
|
if document.all.BetaID.value <> "" then
|
|
oInc.UserName = document.all.BetaID.value
|
|
else
|
|
oInc.UserName = 999999 'MAGIC NUMBER (IF they don't have a betaid, use 999999)
|
|
end if
|
|
|
|
|
|
oInc.ProductID = "Whistler Beta Bug"
|
|
oInc.ProductName = "Whistler"
|
|
oInc.ProblemDescription = Final_Description
|
|
|
|
'
|
|
' 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
|
|
|
|
if document.all.BetaID.value <> "" then
|
|
oDict.add "betaid", document.all.BetaID.value
|
|
else
|
|
oDict.add "betaid", "999999" 'MAGIC NUMBER (IF they don't have a betaid, use 999999)
|
|
end if
|
|
|
|
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 "EmailAddr", document.all("Emailaddr").value
|
|
oDict.add "AdditionalFiles_Number", document.all.AdditionalFilesScroll_List_UL.childNodes.length
|
|
oDict.add "MachineID", g_oUpl.Sig
|
|
|
|
if document.all.CollectOk.checked then
|
|
oDict.add "DCStatus", iDCFailed
|
|
else
|
|
oDict.add "DCStatus", "0"
|
|
end if
|
|
|
|
Err.Clear
|
|
Set oSysInfo = CreateObject("PCHealth.BugRepSysInfo")
|
|
if Err.number <> 0 then
|
|
Err.Clear
|
|
oDict.add "OSBuildNumber", "Unknown"
|
|
oDict.add "OSLanguage", "0"
|
|
oDict.add "OSUserLocalLCID", "0"
|
|
oDict.add "OSSysACP", "0"
|
|
else
|
|
oDict.add "OSBuildNumber", oSysInfo.GetOSVersionString
|
|
oDict.add "OSLanguage", oSysInfo.GetLanguageID
|
|
oDict.add "OSUserLocalLCID", oSysInfo.GetUserDefaultLCID
|
|
oDict.add "OSSysACP", oSysInfo.GetActiveCP
|
|
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
|
|
'
|
|
' Successfully submitted an incident
|
|
'
|
|
g_bSubmitIncidentSucceeded = TRUE
|
|
'
|
|
' 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
|
|
if not (g_oUpl is Nothing) then
|
|
g_oUpl.Delete
|
|
end if
|
|
Set g_oUpl = Nothing
|
|
if not (g_oDc is Nothing) then
|
|
g_oDc.Abort
|
|
end if
|
|
Set g_oDc = Nothing
|
|
if not (g_oCab is Nothing) then
|
|
g_oCab.Abort
|
|
end if
|
|
Set g_oCab = Nothing
|
|
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 iMaxSysRootFiles, szSysRootFileName()
|
|
Dim iMaxSysDriveFiles, szSysDriveFileName()
|
|
Dim iMaxCDriveFiles, szCDriveFileName()
|
|
Dim szText
|
|
ReDim FileList(500)
|
|
ReDim szSysRootFileName(20)
|
|
ReDim szSysDriveFileName(20)
|
|
ReDim szCDriveFileName(20)
|
|
|
|
AddFilesCount = 0
|
|
|
|
Call BRP_TraceMessage("CreateCAB")
|
|
|
|
on error resume next
|
|
Err.Clear
|
|
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
|
|
|
|
if Not (g_oUpl is Nothing) then
|
|
set g_oUpl = Nothing
|
|
end if
|
|
Set g_oUpl = oTmpObj.CreateJob
|
|
g_oUpl.Sig = ""
|
|
|
|
if NOT CreateIncident(oInc, iDCFailed) then
|
|
g_oUpl.Delete
|
|
exit sub
|
|
end if
|
|
|
|
Err.Clear
|
|
oInc.GetXML GetTempPath & "\Incident.XML"
|
|
if Err.number <> 0 then
|
|
Err.Clear
|
|
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( GetWinPath & "\temp\hcupdate.log" ) then
|
|
FileList(iFileCount) = GetWinPath & "\temp\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_nocollect.XML" ) then
|
|
FileList(iFileCount) = GetVendorPath & "\bug_upload_nocollect.XML"
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
|
|
'
|
|
' Get files from the SYSTEMROOT (Windows) directory
|
|
'
|
|
|
|
szSysRootFileName(01) = "\ntbtlog.txt"
|
|
szSysRootFileName(02) = "\setupact.log"
|
|
szSysRootFileName(03) = "\setupapi.log"
|
|
szSysRootFileName(04) = "\setuperr.log"
|
|
szSysRootFileName(05) = "\setuplog.txt"
|
|
szSysRootFileName(06) = "\PCHealth\HelpCtr\Config\DataSpec.XML"
|
|
szSysRootFileName(07) = "\repair\setup.log"
|
|
szSysRootFileName(08) = "\system\sfp\sfplog.txt"
|
|
szSysRootFileName(09) = "\system32\autoexec.nt"
|
|
szSysRootFileName(10) = "\system32\config\appevent.evt"
|
|
szSysRootFileName(11) = "\system32\config\secevent.evt"
|
|
szSysRootFileName(12) = "\system32\config\sysevent.evt"
|
|
szSysRootFileName(13) = "\debug\UserMode\userenv.log"
|
|
szSysRootFileName(14) = "\debug\NetSetup.log"
|
|
szSysRootFileName(15) = "\debug\dcpromo.log"
|
|
szSysRootFileName(16) = "\ntcompat.txt"
|
|
szSysRootFileName(17) = "\upgrade.txt"
|
|
szSysRootFileName(18) = "\system32\$winnt$.inf"
|
|
|
|
|
|
iMaxSysRootFiles = 19
|
|
|
|
for iCount = 0 to iMaxSysRootFiles-1
|
|
if oFS.FileExists( GetSystemRootPath & szSysRootFileName(iCount) ) then
|
|
FileList(iFileCount) = GetSystemRootPath & szSysRootFileName(iCount)
|
|
iFileCount = iFileCount + 1
|
|
end if
|
|
next
|
|
|
|
'
|
|
' Get files from the SYSTEMDRIVE directory
|
|
'
|
|
szSysDriveFileName(00) = "\boot.ini"
|
|
szSysDriveFileName(01) = "\bootex.log"
|
|
szSysDriveFileName(02) = "\sysparse.log"
|
|
|
|
|
|
|
|
iMaxSysDriveFiles = 3
|
|
|
|
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
|
|
|
|
'
|
|
' 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.AdditionalFilesScroll_List_UL.childNodes
|
|
|
|
|
|
AddFilesCount = oFileSelected.length
|
|
|
|
ReDim Preserve FileList(FileListIndex + AddFilesCount - 1)
|
|
for AddFilesIndex = 0 to (AddFilesCount - 1)
|
|
FileList(FileListIndex) = oFileSelected.item(AddFilesIndex).innerText
|
|
FileListIndex = FileListIndex + 1
|
|
next
|
|
|
|
if Not (g_oCab is Nothing) then
|
|
set g_oCab = Nothing
|
|
end if
|
|
|
|
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)
|
|
|
|
Err.Clear
|
|
|
|
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
|
|
|
|
Err.Clear
|
|
|
|
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
|
|
'
|
|
' save succeeded
|
|
'
|
|
g_bSaveIncidentSucceeded = TRUE
|
|
|
|
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
|
|
Err.Clear
|
|
|
|
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")
|
|
|
|
Err.Clear
|
|
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
|
|
Dim szIncidentAction
|
|
|
|
|
|
|
|
|
|
on error resume next
|
|
|
|
if g_bSubmitIncidentSucceeded = FALSE AND g_bSaveIncidentSucceeded = FALSE then
|
|
'
|
|
' no need to record an incident
|
|
'
|
|
exit sub
|
|
end if
|
|
|
|
Err.number = 0
|
|
Err.Clear
|
|
|
|
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
|
|
|
|
if Err.number <> 0 then
|
|
Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
|
|
exit sub
|
|
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_bSaveIncidentSucceeded = True then
|
|
szIncidentAction = szIncidentAction & L_Saved_Message
|
|
if g_bSubmitIncidentSucceeded = True then
|
|
szIncidentAction = szIncidentAction & " "
|
|
end if
|
|
end if
|
|
if g_bSubmitIncidentSucceeded = True then
|
|
szIncidentAction = szIncidentAction & L_Submitted_Message
|
|
end if
|
|
|
|
'
|
|
' Create CSV data file
|
|
'
|
|
Err.Clear
|
|
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) & ","
|
|
|
|
'Prep the description with addtional information (SKU, regression, upgrade information)
|
|
|
|
dim Final_Description
|
|
Final_Description = ""
|
|
Final_Description = Final_Description & "Version Installed: " & document.all.SKU.value & chr(13)
|
|
Final_Description = Final_Description & "Regression: " & document.all.Regression.value & chr(13)
|
|
Final_Description = Final_Description & "Upgrade From: " & document.all.upgrade.value & chr(13)
|
|
Final_Description = Final_Description & "=======================================================================" & chr(13)
|
|
Final_Description = Final_Description & document.all("Description").value
|
|
|
|
|
|
|
|
misc_fields = "BetaID:Emailaddr: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
|
|
if (field = "Description") then
|
|
szEscaped = replaceQuotes(Final_Description)
|
|
else
|
|
szEscaped = replaceQuotes(document.all(field).value)
|
|
end if
|
|
oDataFile.Write chr(34) & szEscaped & chr(34) & ","
|
|
end if
|
|
wend
|
|
|
|
nAddFiles = document.all.AdditionalFilesScroll_List_UL.childNodes.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><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_TrackingNumber_Message & "</B></TD>"
|
|
oDataFile.Write " <TD>" & szTrackingNo & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></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><TR><TD COLSPAN=2><HR></TD></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><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
szIncidentAction = " "
|
|
if g_bSaveIncidentSucceeded = True then
|
|
szIncidentAction = szIncidentAction & L_Saved_Message
|
|
if g_bSubmitIncidentSucceeded = True then
|
|
szIncidentAction = szIncidentAction & " "
|
|
end if
|
|
end if
|
|
if g_bSubmitIncidentSucceeded = 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><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
misc_fields = "BetaID:Emailaddr:Title:Severity:Area:Reproducibility"
|
|
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_FormField_FIELDNAME_BetaID_TEXT & "</B></TD>"
|
|
oDataFile.Write " <TD>" & document.all("BetaID").value & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_FormField_FIELDNAME_Emailaddr_TEXT & "</B></TD>"
|
|
oDataFile.Write " <TD>" & document.all("Emailaddr").value & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_FormField_FIELDNAME_Title_TEXT & "</B></TD>"
|
|
oDataFile.Write " <TD>" & escapeHTMLTag(document.all("Title").value) & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_FormField_FIELDNAME_Severity_TEXT & "</B></TD>"
|
|
oDataFile.Write " <TD>" & escapeHTMLTag(document.all("Severity").options(document.all("Severity").selectedIndex).text) & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_FormField_FIELDNAME_Area_TEXT & "</B></TD>"
|
|
oDataFile.Write " <TD>" & escapeHTMLTag(document.all("Area").options(document.all("Area").selectedIndex).text) & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_FormField_FIELDNAME_Reproducibility_TEXT & "</B></TD>"
|
|
oDataFile.Write " <TD>" & document.all("Reproducibility").options(document.all("Reproducibility").selectedIndex).text & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
misc_fields = "Description:ExpectedBehavior:StepsToRepro"
|
|
|
|
'Use the Final_Description we built up above.
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_FormField_FIELDNAME_Description_TEXT & "</B></TD>"
|
|
oDataFile.Write " <TD>" & escapeHTMLTag(Final_Description) & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_FormField_FIELDNAME_Expected_TEXT & "</B></TD>"
|
|
oDataFile.Write " <TD>" & escapeHTMLTag(document.all("ExpectedBehavior").value) & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
oDataFile.Write " <TR>"
|
|
oDataFile.Write " <TD valign=top><B>" & L_FormField_FIELDNAME_Repro_TEXT & "</B></TD>"
|
|
oDataFile.Write " <TD>" & escapeHTMLTag(document.all("StepsToRepro").value) & "</TD>"
|
|
oDataFile.Write " </TR><TR><TD COLSPAN=2><HR></TD></TR>"
|
|
|
|
|
|
|
|
'
|
|
' 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.AdditionalFilesScroll_List_UL.childNodes.length
|
|
|
|
|
|
if nAddFiles > 0 then
|
|
szFileList = " "
|
|
for nCount = 0 to (nAddFiles - 1)
|
|
szFileList = szFileList & document.all.AdditionalFilesScroll_List_UL.childNodes.item(nCount).innerText & "<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
|
|
Err.Clear
|
|
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 Len(szIncidentAction) = 0 then
|
|
szIName = L_BugReport_Message & ": " & document.all.Title.value
|
|
|
|
else
|
|
szIName = L_BugReport_Message & " (" & szIncidentAction & "): " & document.all.Title.value
|
|
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."
|
|
const L_FileAlreadySelected_ErrorMessage = " has been added already."
|
|
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub StartProcessing()
|
|
|
|
const L_OverwriteFile_TEXT = "The file already exists. Do you want to replace the existing file?"
|
|
const L_InvalidFileName_ErrorMessage = "The file name is invalid. Make sure the path is valid and there are no special characters in the file name."
|
|
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
|
|
Dim bExist
|
|
|
|
g_bSaveIncident = False
|
|
g_bSaveIncidentSucceeded = False
|
|
g_bSubmitIncident = False
|
|
g_bSubmitIncidentSucceeded = 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
|
|
Err.Clear
|
|
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
|
|
Err.Clear
|
|
bExist = oFS.FileExists(szCabFileName)
|
|
if Err.Number <> 0 then
|
|
BRP_MessageBox L_InvalidFileName_ErrorMessage
|
|
exit sub
|
|
end if
|
|
|
|
if bExist 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
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' check if a file exists in the list
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
function AlreadyExist(src, filename)
|
|
|
|
Dim AddFilesCount
|
|
Dim AddFilesIndex
|
|
|
|
AlreadyExist = FALSE
|
|
|
|
AddFilesCount = src.length
|
|
|
|
for AddFilesIndex = 0 to (AddFilesCount - 1)
|
|
if 0 = StrComp(src.Options(AddFilesIndex).text, filename) then
|
|
AlreadyExist = TRUE
|
|
exit for
|
|
end if
|
|
next
|
|
end function
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' delete an item from the list
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
|
|
function DelListElement2(origin, filename)
|
|
Dim FilesCount
|
|
Dim FilesIndex
|
|
|
|
DelListElement2 = FALSE
|
|
|
|
FilesCount = origin.Options.length
|
|
|
|
if ( 0 = FilesCount ) then
|
|
exit function
|
|
end if
|
|
|
|
for FilesIndex = 0 to (FilesCount - 1)
|
|
if 0 = StrComp(origin.Options(FilesIndex).value, filename) then
|
|
origin.Options.remove(FilesIndex)
|
|
DelListElement2 = TRUE
|
|
exit for
|
|
end if
|
|
next
|
|
end function
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' add a unique item to the list
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
|
|
function AddListElement2(origin,filename)
|
|
|
|
Dim iFound
|
|
Dim FilesCount
|
|
Dim FilesIndex
|
|
Dim NewOption
|
|
|
|
AddListElement2 = FALSE
|
|
FilesCount = origin.Options.length
|
|
|
|
iFound = FALSE
|
|
|
|
for FilesIndex = 0 to (FilesCount - 1)
|
|
if 0 = StrComp(origin.Options(FilesIndex).value, filename) then
|
|
iFound = TRUE
|
|
exit for
|
|
end if
|
|
next
|
|
|
|
if not iFound then
|
|
set NewOption = document.createElement("OPTION")
|
|
NewOption.text = filename
|
|
NewOption.value = filename
|
|
origin.options.add(NewOption)
|
|
end if
|
|
|
|
end function
|
|
|
|
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
' Add a file to the list
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_ListAddFileForUpload()
|
|
|
|
Dim oFS ' File System Object
|
|
Dim szFileName
|
|
Dim AddFilesIndex
|
|
Dim fAlreadyExists
|
|
|
|
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)
|
|
|
|
fAlreadyExists = LIST_checkIfExists(szFileName)
|
|
|
|
if fAlreadyExists then
|
|
BRP_MessageBox document.all.AdditionalFile.value & L_FileAlreadySelected_ErrorMessage
|
|
document.all.AdditionalFile.focus
|
|
exit sub
|
|
end if
|
|
|
|
|
|
|
|
|
|
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 LIST_addElement(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.AdditionalFilesScroll_List_UL.childNodes.length = 0 then
|
|
Call BRP_MessageBox(L_NoFilesToRemove_ErrorMessage)
|
|
exit sub
|
|
end if
|
|
|
|
Call LIST_deleteSelectedElement(L_RemoveSelectFile_ErrorMessage)
|
|
document.all.RemoveFile.focus
|
|
|
|
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(limit)
|
|
ValidateTextLength(limit)
|
|
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
|
|
|
|
Err.Clear
|
|
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
|
|
'
|
|
' 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 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"
|
|
const L_CrashRepro_Message = "[Repro steps will help us diagnosing the problem]"
|
|
|
|
on error resume next
|
|
Err.Clear
|
|
|
|
'
|
|
' Set defaults which are stored
|
|
'
|
|
|
|
document.all.BetaID.value = g_SettingsBetaId
|
|
document.all.Emailaddr_Input.value = g_SettingsEmail
|
|
|
|
if g_SettingsSKU <> "" Then
|
|
document.all.SKU.value = g_SettingsSKU
|
|
end if
|
|
|
|
if g_SettingsUpgrad <> "" Then
|
|
document.all.upgrade.value = g_SettingsUpgrade
|
|
end if
|
|
|
|
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
|
|
document.all.Area.value = "Other"
|
|
document.all.Reproducibility.value = "Sometimes"
|
|
document.all.StepsToRepro.value = L_CrashRepro_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 LIST_addElement(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
|
|
|
|
Err.Clear
|
|
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
|
|
oDataFile.Write document.all.Emailaddr_Input.value & vbCrLf
|
|
oDataFile.Write document.all.SKU.value & vbCrLf
|
|
oDataFile.Write document.all.upgrade.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
|
|
Err.Clear
|
|
|
|
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 = "whistler_bugs"
|
|
|
|
Dim oFS, oDataFile
|
|
Dim szTemp, nTemp
|
|
Dim szHRef
|
|
Dim nQueryStr, nQueryStart
|
|
Dim QueryStrings
|
|
|
|
on error resume next
|
|
Err.Clear
|
|
|
|
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 = True
|
|
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 Email Addr.
|
|
'
|
|
Err.Clear
|
|
szTemp = oDataFile.ReadLine
|
|
if Err.number <> 0 then
|
|
oDataFile.close
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
exit sub
|
|
end if
|
|
g_SettingsEmail = szTemp
|
|
if g_SettingsEmail = "" or len(g_SettingsEmail) < 6 OR (instr(g_SettingsEmail,"@") = 0) or (instr(g_SettingsEmail,".") = 0) then
|
|
g_SettingsEmail = ""
|
|
end if
|
|
'
|
|
' Read SKU.
|
|
'
|
|
Err.Clear
|
|
szTemp = oDataFile.ReadLine
|
|
if Err.number <> 0 then
|
|
oDataFile.close
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
exit sub
|
|
end if
|
|
g_SettingsSKU = szTemp
|
|
|
|
'
|
|
' Read upgrade.
|
|
'
|
|
Err.Clear
|
|
szTemp = oDataFile.ReadLine
|
|
if Err.number <> 0 then
|
|
oDataFile.close
|
|
Call BRP_SetInterfaceBasedOnDefaults()
|
|
exit sub
|
|
end if
|
|
g_SettingsUpgrade = szTemp
|
|
|
|
|
|
'
|
|
' 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()
|
|
|
|
end sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
'
|
|
'
|
|
'
|
|
'------------------------------------------------------------------------------
|
|
sub BRP_OnAreaChange()
|
|
|
|
Dim szArea
|
|
|
|
on error resume next
|
|
|
|
szArea = document.all.Area.value
|
|
|
|
Select Case szArea
|
|
case "Application Game Compatiblity", "Display Video Multimonitor", "Hardware Drivers PlugAndPlay USB", "Multimedia DirectX DVD Cameras"
|
|
document.all.DirectXInfo.style.display = ""
|
|
call DelListElement2(document.all.ActualFiles_List,"%windir%\system.dat")
|
|
call DelListElement2(document.all.ActualFiles_List,"%windir%\user.dat")
|
|
call DelListElement2(document.all.ActualFiles_List,"%windir%\classes.dat")
|
|
case "Setup"
|
|
document.all.DirectXInfo.style.display = "none"
|
|
call AddListElement2(document.all.ActualFiles_List.options,"%windir%\system.dat")
|
|
call AddListElement2(document.all.ActualFiles_List.options,"%windir%\user.dat")
|
|
call AddListElement2(document.all.ActualFiles_List.options,"%windir%\classes.dat")
|
|
case Else
|
|
document.all.DirectXInfo.style.display = "none"
|
|
call DelListElement2(document.all.ActualFiles_List,"%windir%\system.dat")
|
|
call DelListElement2(document.all.ActualFiles_List,"%windir%\user.dat")
|
|
call DelListElement2(document.all.ActualFiles_List,"%windir%\classes.dat")
|
|
end select
|
|
end sub
|
|
</script>
|
|
|
|
<SCRIPT LANGUAGE="VBScript" FOR=window EVENT=onload>
|
|
|
|
const L_BugReportVerStr_Message = "Bug Reporting Page Version "
|
|
|
|
on error resume next
|
|
'
|
|
' Set page version
|
|
'
|
|
document.all.BRP_VersionText.innerHTML = L_BugReportVerStr_Message & L_BRP_Version & L_BRPBuild_Version
|
|
|
|
'
|
|
' Initialize all
|
|
'
|
|
Call BRP_InitializeAll()
|
|
|
|
Err.Clear
|
|
Set oSysInfo = CreateObject("PCHealth.BugRepSysInfo")
|
|
if Err.number = 0 then
|
|
document.all.OS_Name.innerHTML = "Windows Whistler"
|
|
document.all.OS_Version.innerHTML = oSysInfo.GetOSVersionString
|
|
document.all.OS_Language.innerHTML = oSysInfo.GetLanguageID
|
|
document.all.OS_UserLCID.innerHTML = oSysInfo.GetUserDefaultLCID
|
|
document.all.OS_SysACP.innerHTML = oSysInfo.GetActiveCP
|
|
|
|
Call BRP_SetOSBuild(oSysInfo.GetOSVersionString)
|
|
|
|
end if
|
|
|
|
Err.Clear
|
|
|
|
'
|
|
' Read initialization file
|
|
'
|
|
Call BRP_ReadIniFile()
|
|
|
|
'
|
|
' Set focus to betaid after page load
|
|
'
|
|
if Len(g_CrashDumpFile) > 0 then
|
|
'
|
|
' we are invoked by a crash handler
|
|
'
|
|
document.all.Submit.focus
|
|
else
|
|
document.all.BetaID.focus
|
|
end if
|
|
|
|
'
|
|
' CODEWORK:
|
|
' bug#102991: pchealth.DestinationReachable always reports FALSE, even though IE
|
|
' connects to www.microsoft.com without any problem. Once bug#102991 is fixed, the following
|
|
' three lines need to be uncommented.
|
|
'
|
|
'if NOT pchealth.DestinationReachable(g_TestingURL) then
|
|
' Call BRP_MessageBox(L_NoConnection1_ErrorMessage & vbNewLine & vbNewLine & L_NoConnection2_ErrorMessage)
|
|
'end if
|
|
|
|
</SCRIPT>
|
|
<SCRIPT LANGUAGE="JavaScript">
|
|
function Beta_GetPaste()
|
|
{
|
|
var sPasteContents = window.clipboardData.getData("Text");
|
|
var bResult;
|
|
var L_BetaIDPasteError_Message = "Beta ID must be a number.";
|
|
bResult = Beta_CheckNumeric(sPasteContents);
|
|
if(bResult == false)
|
|
{
|
|
BRP_MessageBox(L_BetaIDPasteError_Message);
|
|
return false;
|
|
}
|
|
}
|
|
|
|
function Beta_CheckNumeric(strContents)
|
|
{
|
|
var NumStr = "0123456789";
|
|
var i;
|
|
var length = strContents.length;
|
|
for(i = 0 ; i < length;i++)
|
|
{
|
|
if(-1 == NumStr.indexOf(strContents.charAt(i)))
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
</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 collecting 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">
|
|
function LIST_addElement(src)
|
|
{
|
|
var oEntry = document.createElement("LI");
|
|
var oList = document.all.AdditionalFilesScroll_List_UL ;
|
|
|
|
oEntry.innerHTML = "\<DIV DIR=LTR NOWRAP TABINDEX=0\>" + src + "\<\/DIV\>";
|
|
|
|
//
|
|
// Append element to list
|
|
//
|
|
oList.appendChild(oEntry);
|
|
}
|
|
|
|
function LIST_deleteSelectedElement(errmsg)
|
|
{
|
|
var oList = document.all.AdditionalFilesScroll_List_UL ;
|
|
var oNodes = oList.childNodes ;
|
|
var bElemDel= false ;
|
|
|
|
if ( oNodes.length > 0 ) {
|
|
for ( i = 0 ; i < oNodes.length ; i++ ) {
|
|
if ( oNodes.item(i) == oList.selected ) {
|
|
oNodes.item(i).removeNode(true);
|
|
bElemDel=true ;
|
|
break ;
|
|
};
|
|
}
|
|
if (bElemDel == false)
|
|
{
|
|
BRP_MessageBox(errmsg);
|
|
}
|
|
};
|
|
}
|
|
|
|
function LIST_checkIfExists(src)
|
|
{
|
|
var oList = document.all.AdditionalFilesScroll_List_UL ;
|
|
var oNodes = oList.childNodes ;
|
|
var fExists = false ;
|
|
if ( oNodes.length > 0 ) {
|
|
for ( i = 0 ; i < oNodes.length ; i++ ) {
|
|
if ( oNodes.item(i).innerText == src )
|
|
{
|
|
fExists = true ;
|
|
break ;
|
|
};
|
|
}
|
|
};
|
|
return fExists ;
|
|
}
|
|
|
|
function LIST_fnOnSelectStart()
|
|
{
|
|
|
|
window.event.returnValue = false
|
|
window.event.cancelBubble = true
|
|
|
|
return false ;
|
|
|
|
}
|
|
|
|
function LIST_checkParent(src, tag) {
|
|
while ("HTML" != src.tagName) {
|
|
if (tag == src.tagName)
|
|
return src;
|
|
src = src.parentElement;
|
|
}
|
|
return null;
|
|
}
|
|
|
|
function LIST_selectItem(list) {
|
|
|
|
var el = LIST_checkParent(event.srcElement, "LI");
|
|
|
|
if ( !el )
|
|
return ;
|
|
|
|
if ("LI" == el.tagName) {
|
|
if (null != list.selected)
|
|
list.selected.className = "";
|
|
if (list.selected != el) {
|
|
el.className = "selected";
|
|
list.selected = el;
|
|
}
|
|
else
|
|
list.selected = null;
|
|
}
|
|
|
|
}
|
|
|
|
function LIST_selectItemKey(list)
|
|
{
|
|
|
|
if ( event.keyCode == 13 || event.keyCode == 32 ) {
|
|
window.event.returnValue=true;
|
|
window.event.cancelBubble=true;
|
|
LIST_selectItem(list);
|
|
}
|
|
else {
|
|
event.returnValue=false;
|
|
};
|
|
}
|
|
|
|
|
|
|
|
</Script>
|
|
|
|
<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;
|
|
}
|
|
|
|
function escapeHTMLTag(str)
|
|
{
|
|
|
|
var st11, stl2
|
|
stl1 = str.replace(/</g,"<");
|
|
st12 = stl1.replace(/>/g,">");
|
|
return st12;
|
|
}
|
|
|
|
</SCRIPT>
|
|
|
|
</HEAD>
|
|
|
|
<!--
|
|
|
|
Body of the document for bug reporting page
|
|
|
|
-->
|
|
<BODY aLink=#000080 bgColor=#ffffff language=JavaScript leftMargin=0
|
|
link=#000080 onbeforeunload="return UnloadHandlerMsg();" onclick=outliner();
|
|
onunload=UnloadHandler(); topMargin=0 vLink=#000080
|
|
MARGINHEIGHT="0" MARGINWIDTH="0"><!--
|
|
|
|
Bug reporting span of the page
|
|
|
|
-->
|
|
<DIV id=spanEnterBug>
|
|
<FORM action=probrep.asp id=form1 method=post name=form1>
|
|
<TABLE border=0 borderColor=#ff0000 cellPadding=0 cellSpacing=0 width=600>
|
|
<TBODY>
|
|
<TR>
|
|
<TD align=left id=Heading_Data_Cell vAlign=top>
|
|
<TABLE border=0 id=BugReportingHeadingTable>
|
|
<TBODY>
|
|
<TR>
|
|
<TD>
|
|
<P align=left id=Page_Heading_Paragraph1>
|
|
<DIV class=PageHeading id=Page_Heading_Text
|
|
>Report a bug to the Windows Whistler Beta team.
|
|
</DIV><BR>
|
|
<DIV class=Instructions id=Welcome_Instructions_Text
|
|
>Welcome to the Whistler Bug Reporting page.
|
|
Submitting good bug reports is a vital part of testing Windows
|
|
Whistler. Good bug reports are clear, concise, and descriptive.
|
|
Before you file a bug we ask that you visit our web site at <A
|
|
href="http://windowsbeta.microsoft.com"
|
|
>http://windowsbeta.microsoft.com</A> to register at
|
|
the site and learn about the resources available to you during the
|
|
beta. <br><br></DIV>
|
|
|
|
<DIV id="Comments_info_Div">
|
|
<strong>If your feedback is a suggestion or comment about the UI or an error message,
|
|
consider using the "Comments?" link at the top of each window instead of filing a problem
|
|
report.</strong><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>
|
|
<P align=left id=Page_Heading_Paragraph2>
|
|
<div class=Instructions id=Welcome_ThankYou_Text
|
|
>Thanks for your feedback! </DIV>
|
|
<P></P>
|
|
<p>
|
|
<div class=Instructions id=Welcome_Closing_Text
|
|
> - The Windows Whistler Beta Team </DIV>
|
|
<P></P>
|
|
<p align=right id=BetaID_Paragraph
|
|
valign="center"></P></TD></TR></TBODY></TABLE>
|
|
<TABLE border=0 id=BugReportingInputFieldsTable>
|
|
<TBODY><!--
|
|
|
|
Section I
|
|
|
|
-->
|
|
<TR>
|
|
<TD align=left id=Space_Cell vAlign=center><IMG alt=Space border=0 id=SpaceImage src="space.gif" width=150 > </TD>
|
|
<TD> </TD></TR>
|
|
<TR>
|
|
<TD colSpan=2>
|
|
<HR>
|
|
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG alt="Star graphic" border=0 id=IMG_Star_Bullet1 src="star.gif" ></TD>
|
|
<TD class=StepHeading id=Section1_Heading
|
|
>Section I: Contact
|
|
Information</TD></TR></TBODY></TABLE><BR></TD>
|
|
<TR>
|
|
<td align=right id=BetaID_Cell vAlign=center>
|
|
<div class=ItemHeadingSmall id=BetaID_Label
|
|
>Beta ID :</DIV></TD>
|
|
<TD><INPUT class=PlainTextSmall id=BetaID_Input
|
|
language=JavaScript maxLength=250 name=BetaID onblur=CorrectBetaID()
|
|
onkeypress="if ((event.keyCode < 48 || event.keyCode > 57)) event.returnValue=false;"
|
|
onpaste="return Beta_GetPaste();" size=40>
|
|
</TD></TR>
|
|
<TR>
|
|
<td align=right id=BetaID_Cell vAlign=center>
|
|
<div class=ItemHeadingSmall id=BetaID_Label
|
|
>Email Address :</DIV></TD>
|
|
<TD><INPUT class=PlainTextSmall
|
|
id=Emailaddr_Input maxLength=250 name=Emailaddr size=40
|
|
> </TD></TR><!--
|
|
|
|
Section II
|
|
|
|
-->
|
|
<TR>
|
|
<TD colSpan=2>
|
|
<HR>
|
|
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG alt="Star graphic" border=0 id=IMG_Star_Bullet2 src="star.gif" ></TD>
|
|
<TD class=StepHeading id=Section2_Heading
|
|
>Section II: Issue
|
|
Information</TD></TR></TBODY></TABLE><BR></TD>
|
|
<TR>
|
|
<TD align=right id=Title_Paragraph>
|
|
<div class=ItemHeadingSmall id=Title_Label
|
|
>Problem Title:</DIV></TD>
|
|
<TD><INPUT class=PlainTextSmall id=Title_Input
|
|
maxLength=500 name=Title onblur=CreateNameCAB(200) size=60
|
|
></TD></TR>
|
|
<TR>
|
|
<TD align=right id=Title_Example_Spacer></TD>
|
|
<TD bgColor=#ffffd0>
|
|
<div class=PlainTextSmall id=Title_Example><ID
|
|
id=fooExample1><B
|
|
>Example:</B></ID> <ID id=fooExampleString1
|
|
>"Script error instead of printer
|
|
properties"</ID></DIV></TD></TR>
|
|
<TR>
|
|
<TD align=right id=Severity_Cell>
|
|
<div class=ItemHeadingSmall id=Severity_Label >
|
|
Problem Type:
|
|
</DIV>
|
|
</TD>
|
|
<TD>
|
|
<SELECT class=PlainTextSmall name=Severity onchange=BRP_OnProblemTypeChange()>
|
|
<OPTION id=Severity_SelectOne selected value=NA>=== 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 align=right id=Area_Cell>
|
|
<div class=ItemHeadingSmall id=Area_Label
|
|
>Area:</DIV>
|
|
</TD>
|
|
<TD><SELECT class=PlainTextSmall name=Area onchange=BRP_OnAreaChange() type="ListBox">
|
|
<OPTION id=Area_SelectOne selected value=NA>=== Select One ===</OPTION>
|
|
<option ID=Admin_tools value="Admin Tools">Administration Tools / Computer Management</OPTION>
|
|
<option ID=Any_Suggestion value="Any Suggestion">Any Suggestion or Wish</OPTION>
|
|
<option ID=App_Game_Compat value="Application Game Compatiblity">Application & Game Compatibility</OPTION>
|
|
<option ID=Bug_REporting value="Bug Reporting Tools Website">Bug Reporting Tools / Web site</OPTION>
|
|
<option ID=Clustering value="Clustering">Clustering</OPTION>
|
|
<option ID=Dial_up_ISDN value="Dial-up ISDN Infrared">Dial-up / ISDN / Infrared</OPTION>
|
|
<option ID=Display value="Display Video Multimonitor">Display / Video / Multi monitor</OPTION>
|
|
<option ID=Help_Docs value="Help Documentation">Help / Documentation</OPTION>
|
|
<option ID=Fast value="Fast User Switching">Fast User Switching</OPTION>
|
|
<option ID=Fax value="Fax">Fax</OPTION>
|
|
<option ID=Hardware value="Hardware Drivers PlugAndPlay USB">Hardware / Drivers / Plug & Play / USB</OPTION>
|
|
<option ID=HCT value="WHQL Test">HCT</OPTION>
|
|
<option ID=IE value="IE OE Netmeeting">Internet Explorer / Outlook Express / Netmeeting</OPTION>
|
|
<option ID=Inet_connection_sharing value="Internet Connection Sharing">Internet Connection Sharing</OPTION>
|
|
<option ID=IIS value="Internet Information Server">Internet Information Server</OPTION>
|
|
<option ID=Multimedia value="Multimedia DirectX DVD Cameras">Multimedia / DirectX / DVD / Cameras</OPTION>
|
|
<option ID=Networking_Admin value="Networking - Administration Tool">Networking - Administration Tools</OPTION>
|
|
<option ID=Networking_AD value="Networking - Active DirectoryDNS">Networking - Active Directory / DNS</OPTION>
|
|
<option ID=Networking_FS value="Networking - File Sharing">Networking - File Sharing</OPTION>
|
|
<option ID=Networking_R value="Networking - Routing">Networking - Routing</OPTION>
|
|
<option ID=Networking_H value="Networking - Hardware">Networking - Hardware</OPTION>
|
|
<option ID=Networking_O value="Networking - Other">Networking - Other</OPTION>
|
|
<option ID=Other value="Other">Other</OPTION>
|
|
<option ID=PowerMgmt value="Power Management ACPI">Power Management / ACPI</OPTION>
|
|
<option ID=Printing value="Printing">Printing</OPTION>
|
|
<option ID=Reginal value="Regional Settings">Regional Settings</OPTION>
|
|
<option ID=SDK_DDK value="SDK DDK API">SDK / DDK / API</OPTION>
|
|
<option ID=Security value="Security">Security</OPTION>
|
|
<option ID=Setup value="Setup Upgrade">Setup / Upgrade</OPTION>
|
|
<option ID=Shell value="Shell User Interface">Shell / User Interface</OPTION>
|
|
<option ID=Support_tools value="Support Tools Registry">Support Tools / Registry</OPTION>
|
|
<option ID=Remote_Desktop value="Terminal Services Remote Desktop">Terminal Services / Remote Desktop</OPTION>
|
|
|
|
</SELECT>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD align=right id=Reproducibility_Cell>
|
|
<div class=ItemHeadingSmall id=Reproducibility_Label
|
|
>This Problem: </DIV></TD>
|
|
<TD>
|
|
<SELECT class=PlainTextSmall name=Reproducibility type="ListBox">
|
|
<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>
|
|
<id id="and">and</id>
|
|
<SELECT class=PlainTextSmall name=regression type="ListBox">
|
|
<OPTION id=regression_SelectOne selected value=NA>=== Select One ===</OPTION>
|
|
<OPTION id=regression_None value=NoRegression >is new to this build of Windows.</OPTION>
|
|
<OPTION id=regression_PrevBeta value=PreviousBetaBuild >exists in previous builds of this beta.</OPTION>
|
|
<OPTION id=regression_Win2000 value=FromWin2000 >exists in Windows 2000.</OPTION>
|
|
<OPTION id=regression_WinNT value=FromWinNT >exists in Windows NT.</OPTION>
|
|
<OPTION id=regression_Win9xMe value=FromWin9xMe >exists in Windows 9x or Me.</OPTION>
|
|
<OPTION id=regression_Win9xMe value=unknown >Don't know.</OPTION>
|
|
|
|
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD align=right id=sku_Cell>
|
|
<div class=ItemHeadingSmall id=sku_Label
|
|
>This Windows install is the </DIV></TD>
|
|
<TD>
|
|
<SELECT class=PlainTextSmall name=SKU type="ListBox">
|
|
<OPTION id=SKU_SelectOne selected value=NA>=== Select One ===</OPTION>
|
|
<OPTION id=SKU_Personal value=Personal >Home (Personal) edition</OPTION>
|
|
<OPTION id=SKU_Professional value=Professional >Professional edition</OPTION>
|
|
<OPTION id=SKU_Server value=Server >Server edition</OPTION>
|
|
<OPTION id=SKU_ADSServer value=ADSServer >Advanced Server edition</OPTION>
|
|
<OPTION id=SKU_64Professional value=64Professional >Windows 2000 64 Professional edition</OPTION>
|
|
<OPTION id=SKU_64Server value=64Server >Windows 2000 64 Server edition</OPTION>
|
|
<OPTION id=SKU_DTCServer value=DTCServer >Windows 2000 Datacenter Server edition</OPTION>
|
|
</SELECT>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD align=right id=upgrade_Cell>
|
|
<div class=ItemHeadingSmall id=upgrade_Label
|
|
>This install is </DIV></TD>
|
|
<TD>
|
|
<SELECT class=PlainTextSmall name=upgrade type="ListBox">
|
|
<OPTION id=upgrade_SelectOne selected value=NA>=== Select One ===</OPTION>
|
|
<OPTION id=upgrade_not value=NotAnUpgrade >not an upgrade (clean install).</OPTION>
|
|
<OPTION id=upgrade_Previous value=PreviousBuild >an upgrade from a previous build of this beta.</OPTION>
|
|
<OPTION id=upgrade_Win2000 value=Win2000 >an upgrade from Windows 2000.</OPTION>
|
|
<OPTION id=upgrade_WinNT value=WinNT >an upgrade from Windows NT.</OPTION>
|
|
<OPTION id=upgrade_Win9x value=Win9x >an upgrade from Windows 9x.</OPTION>
|
|
<OPTION id=upgrade_WinMe value=WinMe >an upgrade from Windows Me.</OPTION>
|
|
</SELECT>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD align=right id=Description_Cell vAlign=top>
|
|
<div class=ItemHeadingSmall id=Description_Label
|
|
>Describe the problem:</DIV></TD>
|
|
<TD vAlign=top>
|
|
<TABLE>
|
|
<TBODY>
|
|
<TR>
|
|
<TD vAlign=top><TEXTAREA class=PlainTextSmall cols=60 id=Description_TextArea name=Description onblur=ValidateTextLength(1250) rows=6 wrap=virtual rows_min="6" rows_max="500"></TEXTAREA>
|
|
</TD>
|
|
<TD vAlign=top>
|
|
<TABLE>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG alt="Size down" border=0 id=Description_ContractButton onclick=decreaseRows() src="size_down.gif" expand_child="Description_TextArea"> </TD></TR>
|
|
<TR>
|
|
<TD><IMG alt="Size up" border=0 id=Description_ExpandButton onclick=increaseRows() src="size_up.gif" expand_child="Description_TextArea">
|
|
</TD></TR></TBODY></TABLE></TD></TD></TR></TBODY></TABLE></TD></TR>
|
|
<TR>
|
|
<TD id=Filler_Cell1> </TD>
|
|
<TD bgColor=#ffffd0>
|
|
<div class=PlainTextSmall id=Description_Example
|
|
><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 align=right id=ExpectedBehavior_Cell vAlign=top
|
|
>
|
|
<div class=ItemHeadingSmall id=ExpectedBehavior_Label
|
|
>What did you expect to happen:</DIV></TD>
|
|
<TD vAlign=top>
|
|
<TABLE>
|
|
<TBODY>
|
|
<TR>
|
|
<TD vAlign=top><TEXTAREA class=PlainTextSmall cols=60 id=ExpectedBehavior_TextArea name=ExpectedBehavior onblur=ValidateTextLength(500) rows=6 wrap=virtual rows_min="6" rows_max="500"></TEXTAREA>
|
|
</TD>
|
|
<TD vAlign=top>
|
|
<TABLE>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG alt="Size down" border=0 id=ExpectedBehavior_ContractButton onclick=decreaseRows() src="size_down.gif" expand_child="ExpectedBehavior_TextArea"> </TD></TR>
|
|
<TR>
|
|
<TD><IMG alt="Size up" border=0 id=ExpectedBehavior_ExpandButton onclick=increaseRows() src="size_up.gif" expand_child="ExpectedBehavior_TextArea">
|
|
</TD></TR></TBODY></TABLE></TD></TD></TR></TBODY></TABLE></TD></TR>
|
|
<tr>
|
|
<TD id=Filler_Cell2> </TD>
|
|
<TD bgColor=#ffffd0>
|
|
<div class=PlainTextSmall id=ExpectedBehavior_Example
|
|
><ID id=fooExample3><B
|
|
>Example:</B></ID> <ID id=fooExampleString3
|
|
>"The context menu should have been
|
|
displayed."</ID></DIV></TD></TR>
|
|
<TR>
|
|
<TD align=right id=StepsToRepro_Cell vAlign=top
|
|
><div class=ItemHeadingSmall
|
|
id=StepsToRepro_Label>Enter the steps required
|
|
to reproduce the problem: </DIV></TD>
|
|
<TD vAlign=top>
|
|
<TABLE>
|
|
<TBODY>
|
|
<TR>
|
|
<TD vAlign=top><TEXTAREA class=PlainTextSmall cols=60 id=StepsToRepro_TextArea name=StepsToRepro onblur=ValidateTextLength(1250) rows=6 wrap=virtual rows_min="6" rows_max="500"></TEXTAREA>
|
|
</TD>
|
|
<TD vAlign=top>
|
|
<TABLE>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG alt="Size down" border=0 id=StepsToRepro_ContractButton onclick=decreaseRows() src="size_down.gif" expand_child="StepsToRepro_TextArea"> </TD></TR>
|
|
<TR>
|
|
<TD><IMG alt="Size up" border=0 id=StepsToRepro_ExpandButton onclick=increaseRows() src="size_up.gif" expand_child="StepsToRepro_TextArea">
|
|
</TD></TR></TBODY></TABLE></TD></TD></TR></TBODY></TABLE></TD></TR>
|
|
<TR>
|
|
<TD id=Filler_Cell3> </TD>
|
|
<TD bgColor=#ffffd0>
|
|
<div class=PlainTextSmall id=StepsToRepro_Example
|
|
><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 alt="Star graphic" border=0 id=IMG_Star_Bullet3 src="star.gif" ></TD>
|
|
<TD class=StepHeading id=Section3_Heading
|
|
>Section III: System
|
|
Information</TD></TR></TBODY></TABLE><BR>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD class=PlainTextSmall id=OS_NameText
|
|
>OS Name</TD>
|
|
<TD class=PlainTextSmall id=OS_Name
|
|
> </TD></TR>
|
|
<TR>
|
|
<TD class=PlainTextSmall dir=ltr id=OS_VersionText
|
|
>OS Version</TD>
|
|
<TD class=PlainTextSmall id=OS_Version
|
|
> </TD></TR>
|
|
<TR>
|
|
<TD class=PlainTextSmall id=OS_LanguageText
|
|
>OS Language Codes</TD>
|
|
<TD class=PlainTextSmall id=OS_Parm>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD class=PlainTextSmall id=OS_Language
|
|
> </TD>
|
|
<TD>-</TD>
|
|
<TD class=PlainTextSmall id=OS_UserLCID
|
|
> </TD>
|
|
<TD>-</TD>
|
|
<TD class=PlainTextSmall id=OS_SysACP
|
|
> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR
|
|
>
|
|
<div class=Instructions id=CollectOk_Text>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 class=styleExpandable id=CollectedFiles_ExpandLink
|
|
child="CollectedFiles_List">Display list of files
|
|
collected</DIV>
|
|
<div class=styleCollapsed id=CollectedFiles_List
|
|
style="MARGIN-LEFT: 30pt"><SELECT class=PlainTextSmall dir=ltr id=ActualFiles_List size=22
|
|
style="WIDTH: 300pt">
|
|
<OPTION id=File1 value=%systemroot%\ntbtlog.txt >%systemroot%\ntbtlog.txt
|
|
<OPTION id=File2 value=%systemroot%\setupact.log>%systemroot%\setupact.log
|
|
<OPTION id=File3 value=%systemroot%\setupapi.log>%systemroot%\setupapi.log
|
|
<OPTION id=File4 value=%systemroot%\setuperr.log>%systemroot%\setuperr.log
|
|
<OPTION id=File5 value=%systemroot%\setuplog.txt>%systemroot%\setuplog.txt
|
|
<OPTION id=File6 value=%systemroot%\PCHealth\HelpCtr\Config\DataSpec.XML>%systemroot%\PCHealth\HelpCtr\Config\DataSpec.XML
|
|
<OPTION id=File7 value=%systemroot%\repair\setup.log>%systemroot%\repair\setup.log
|
|
<OPTION id=File8 value=%systemroot%\system\sfp\sfplog.txt>%systemroot%\system\sfp\sfplog.txt
|
|
<OPTION id=File9 value=%systemroot%\system32\autoexec.nt>%systemroot%\system32\autoexec.nt
|
|
<OPTION id=File10 value=%systemroot%\system32\config\appevent.evt>%systemroot%\system32\config\appevent.evt
|
|
<OPTION id=File11 value=%systemroot%\system32\config\secevent.evt>%systemroot%\system32\config\secevent.evt
|
|
<OPTION id=File12 value=%systemroot%\system32\config\sysevent.evt>%systemroot%\system32\config\sysevent.evt
|
|
<OPTION id=File13 value=%systemroot%\debug\usermode\userenv.log>%systemroot%\debug\usermode\userenv.log
|
|
<OPTION id=File14 value=%systemroot%\debug\netsteup.log>%systemroot%\debug\netsteup.log
|
|
<OPTION id=File15 value=%systemroot%\debug\dcpromo.log>%systemroot%\debug\dcpromo.log
|
|
<OPTION id=File16 value=%systemdrive%\boot.ini>%systemdrive%\boot.ini
|
|
<OPTION id=File17 value=%systemdrive%\bootex.log >%systemdrive%\bootex.log
|
|
<OPTION id=File18 value=%systemdrive%\sysparse.log >%systemdrive%\sysparse.log
|
|
<OPTION id=File18 value=%systemdrive%\$winnt$.inf >%systemdrive%\$winnt$.inf
|
|
<OPTION id=File19 value=bug_upload_collect.XML>bug_upload_collect.XML<OPTION id=File22 value=bug_upload_nocollect.XML>bug_upload_nocollect.XML
|
|
<OPTION id=File20 value=%temp%\hcupdate.log>%temp%\hcupdate.log
|
|
<OPTION id=File21 value="WMI Logs">WMI Logs</OPTION>
|
|
|
|
</SELECT>
|
|
</DIV><br>
|
|
<div class=Instructions id=CollectOk_Input>
|
|
<TABLE>
|
|
<TBODY>
|
|
<TR>
|
|
<TD vAlign=top><input CHECKED
|
|
id=CollectOk name=CollectOk type=checkbox
|
|
></TD>
|
|
<TD><LABEL for=CollectOk
|
|
id=CollectOk_Label style="CURSOR: hand"
|
|
>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 files listed above
|
|
are uploaded with the bug incident. </DIV><br>
|
|
<TABLE align=center border=0 cellPadding=10 id=ExtraFiles_Cell
|
|
width=600>
|
|
<TBODY>
|
|
<TR>
|
|
<TD bgColor=#d0d0d0><!--
|
|
|
|
DirectX team section
|
|
|
|
-->
|
|
<div class=Instructions id=DirectXInfo
|
|
style="DISPLAY: none; MARGIN-LEFT: 15px">
|
|
<div id=dxTitle><b
|
|
><id id=dxfoo>DirectX
|
|
Diagnostics</ID></B></DIV><br>
|
|
<div class=Instructions id=DirectXInfoP1
|
|
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 class=Instructions id=DirectXInfoP2
|
|
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.txt</B> in a location that you can
|
|
find. </DIV><br>
|
|
<div class=Instructions id=DirectXInfoP3
|
|
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 class=Instructions id=DirectXInfoP4
|
|
style="MARGIN-LEFT: 30px">Thanks - The
|
|
DirectX Team </DIV><br></DIV>
|
|
<DIV></DIV><!--
|
|
|
|
System Restore team section
|
|
|
|
-->
|
|
<div class=Instructions id=SystemRestoreInfo
|
|
style="DISPLAY: none; MARGIN-LEFT: 15px">
|
|
<div id=srTitle><b
|
|
><id id=srfoo>System
|
|
Restore Diagnostics</ID></B></DIV><br>
|
|
<div class=Instructions id=srInfoP1 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 class=Instructions id=srInfoP2 style="MARGIN-LEFT: 30px"
|
|
>cabbit.exe will generate a cabfile
|
|
containing system restore log files and name it srdata.cab
|
|
</DIV><br>
|
|
<div class=Instructions id=srInfoP3 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 class=Instructions id=srInfoP4 style="MARGIN-LEFT: 30px"
|
|
>Thanks - The PC Health Team
|
|
</DIV></DIV></TD></TR></TBODY></TABLE><br>
|
|
<div class=Instructions id=AdditionalFilesInfo
|
|
>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 align=right id=AdditionalFiles_Cell3 vAlign=top
|
|
>
|
|
<div class=ItemHeadingSmall id=AdditionalFiles_Text
|
|
>Additional files to collect:</DIV></TD>
|
|
<TD><INPUT class=PlainTextSmall
|
|
id=AdditionalFile name=AdditionalFile size=50 style="WIDTH: 300pt"
|
|
type=file> <br>
|
|
<DIV align=left class=stlList id=AdditionalFilesScroll_List
|
|
>
|
|
<UL id=AdditionalFilesScroll_List_UL
|
|
onclick=javascript:LIST_selectItem(this);
|
|
onkeypress=javascript:LIST_selectItemKey(this);
|
|
onselectstart=javascript:LIST_fnOnSelectStart(); tabIndex=-1
|
|
></UL></DIV><BR><BUTTON
|
|
accessKey=A id=AddFile name=AddFile
|
|
onclick=BRP_ListAddFileForUpload()><U
|
|
>A</U>dd File</BUTTON><BUTTON accessKey=R
|
|
id=RemoveFile name=RemoveFile onclick=BRP_ListRemoveFileForUpload()
|
|
><U>R</U>emove
|
|
File</BUTTON><br></TD></TR></TBODY></TABLE><!--
|
|
|
|
Section IV
|
|
|
|
-->
|
|
<TABLE border=0 id=BugReportingSubmittingTable>
|
|
<TBODY>
|
|
<TR>
|
|
<TD colSpan=2>
|
|
<HR>
|
|
<BR>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD><IMG alt="Star graphic" border=0 id=IMG_Star_Bullet5 src="star.gif" ></TD>
|
|
<TD class=StepHeading id=Section5_Heading
|
|
>Section IV: Submitting Bug
|
|
Report</TD></TR></TBODY></TABLE><BR>
|
|
<div class=Instructions id=SubmitInstructions_Text
|
|
>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 alt="Star graphic" border=0 id=IMG_Star_Bullet4 src="star.gif" ></TD>
|
|
<TD class=ItemHeadingSmall id=Section4_Heading
|
|
>Current Status:</TD></TR>
|
|
<TR>
|
|
<TD> </TD>
|
|
<TD>
|
|
<DIV class=ItemHeadingSmall id=Status
|
|
name="Status"> </DIV></TD></TR></TBODY></TABLE>
|
|
<TABLE border=0 width="100%">
|
|
<TBODY>
|
|
<TR>
|
|
<TD class=ItemHeadingSmall id=Progress width="20%"
|
|
name="Progress"> </TD>
|
|
<TD class=ItemHeadingSmall id=ProgressText
|
|
name="ProgressText"> </TD></TR></TBODY></TABLE>
|
|
<TABLE border=0 cellPadding=10>
|
|
<TBODY>
|
|
<TR>
|
|
<TD id=SubmitButton_Cell vAlign=top
|
|
><BUTTON accessKey=S class=stlButtonBig
|
|
id=Submit name=Submit onclick=StartProcessing()
|
|
><U
|
|
>S</U>ubmit</BUTTON><BUTTON accessKey=C
|
|
class=stlButtonBig disabled id=Cancel name=Cancel
|
|
onclick=CancelUpload()><U
|
|
>C</U>ancel</BUTTON> </TD>
|
|
<TD vAlign=top><input CHECKED
|
|
id=SubmitIncidentNow name=SubmitIncidentNow type=checkbox
|
|
> <LABEL for=SubmitIncidentNow
|
|
id=SubmitNow_Label style="CURSOR: hand"
|
|
>Submit to Microsoft now</LABEL> <BR
|
|
><input id=SaveIncidentNow
|
|
name=SaveIncidentNow type=checkbox>
|
|
<LABEL for=SaveIncidentNow id=SaveNow_Label
|
|
style="CURSOR: hand">Save copy to
|
|
disk</LABEL> <BR><BR>
|
|
<TABLE id=SaveToDiskTable>
|
|
<TBODY>
|
|
<TR>
|
|
<TD align=right id=FileNameLocal_Cell vAlign=top
|
|
>
|
|
<DIV class=ItemHeadingSmall id=Section5_SaveInfoText
|
|
>Filename : </DIV></TD>
|
|
<TD id=FileNameLocalName_Cell vAlign=top
|
|
>
|
|
<DIV class=ItemHeadingSmall id=Section5_SaveInfoFile
|
|
><INPUT class=PlainTextSmall dir=ltr
|
|
id=IncidentFilename name=IncidentFilename
|
|
onblur=CorrectNameCAB() size=50>
|
|
</DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></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 align=left id=ThankYou_Heading_Data_Cell vAlign=center
|
|
>
|
|
<div class=PageHeading id=ThankYou_Page_Heading_Text
|
|
>Windows Whistler Beta team.</DIV><br
|
|
><br></TD></TR>
|
|
<TR>
|
|
<TD><BR>
|
|
<p class=PlainText id=ThankYou_Paragraph>Thank you
|
|
for submitting a bug report. </P><BR>
|
|
<TABLE border=0>
|
|
<TBODY>
|
|
<TR>
|
|
<TD class=PlainTextSmall id=BRP_IncidentTimeText
|
|
>Submit Time</TD>
|
|
<TD class=PlainTextSmall id=BRP_IncidentTime
|
|
> </TD></TR>
|
|
<TR>
|
|
<TD class=PlainTextSmall id=BRP_TrackingNoText
|
|
>Upload Identifier</TD>
|
|
<TD class=PlainTextSmall dir=ltr id=BRP_TrackingNo
|
|
></TD></TR></TBODY></TABLE> <id id="ThisNumberOnly">(This number is only for troubleshooting purposes and does not need to be retained.)</id> <BR><!--
|
|
<p id="Helpcenter_Return_Link"><a href="hcp://system/Mars_Contents.htm"><id id="ReturnToMain">Return to the main helpcenter page</id></a></p>
|
|
-->
|
|
|
|
<p><a href="hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/bugrep.htm"><id id="FileAnother">File Another Bug</id></A></p>
|
|
|
|
</TD></TR></TBODY></TABLE></DIV><!--
|
|
|
|
Footer
|
|
|
|
--><BR><BR>
|
|
<TABLE>
|
|
<TBODY>
|
|
<TR>
|
|
<TD>
|
|
<div class=PlainTextSmall id=BRP_VersionText
|
|
></DIV></TD></TR>
|
|
<TR>
|
|
<TD><BR>
|
|
<div class=PlainTextSmall>(c) <a
|
|
href="http://www.microsoft.com/misc/cpyright.htm"
|
|
><id id="Copyright">2000 Microsoft Corporation. All rights reserved. Terms of use.</id></A></DIV></TD></TR></TBODY></TABLE><BR><BR><BR>
|
|
<!--
|
|
|
|
End of document
|
|
|
|
-->
|
|
|
|
</BODY>
|
|
</HTML>
|