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