ࡱ> >?=ܥhW eZxljljjljljljljlllllll l lLw1llllllllm9KpKpKpKpLsL.w}wXwLwjll45llllLwljljllllllljlljllm@&~lljljljljllmlZlMacro Virus Protection Tool for Microsoft Word( Version 1.00 For information on installing and using this tool, please refer to the Readme file. /=dkC ******************************************************************dk Macro : AutoNewdk Created : Sept. 20, 1995dk# Copyright (c) 1995 Microsoft Corp.dkB *****************************************************************ddiMaindniAutoOpenvMainddiMAINdddiVerNumdRiVerNum lFddkB *****************************************************************dk Concept Virus cleanupdk# Copyright (c) 1995 Microsoft Corp.dkE Remove Concept Virus from all documents below a specified directory.dkB *****************************************************************ddd/0iquieti notopenedinotsavedi notconvertedicleanediMaciquote$ilogfile$ipfn$iWordVeripathSep$iscanAllddiMAINdRk initdRiquiet ldRi notopened ldRinotsaved ldRi notconverted ldRicleaned ldRiscanAll lk0flag to indicate whether to scan all files founddRiisWord6 ldRi CurrentDoc$ g%ddRk% What platform are we on, Mac or Win?dRgglj MacintoshldoiMac ldoiquote$ jdoipathSep$ j:doidirTerm$ jFolderdoi dirTermPl$ jfoldersdRgglj Windows 3.ldok 16-bit WindowsdoiMac ldoggll j6iisWord6 ldnk<16 bit Word 6 transparently converts between ANSI and OEM sodnk1we flag this and do not call DOSToWin$/WinToDOS$dniquote$ jdoipathSep$ j\doidirTerm$ j Directorydoi dirTermPl$ j directoriesdR dnk32 bit WindowsdoiMac ldoiquote$ gl"doipathSep$ j\doidirTerm$ j Directorydoi dirTermPl$ j directoriesdRddRklocalization stringsdoi batchTitle$ jBatch Cleanup Proceduredodok first dialogdoi txtLine1$ jEnter a starting idirTerm$j" to search for documents to clean.doifTypes$ j File &Types:doi txtSDirs$ j Search &SubdRdoksecond dialog - invalid pathdoi txtInvalid$ j9You have chosen an invalid starting path for the cleanup.dRdoksearch status line messagedoi txtSLSrch$ j3Please wait while Word searches the specified path.ddoksearch turned up nothingdoi txtNoneFound$ j;No documents found. Try again with different path/pattern?dodok What version of Word?dRiWordVer gggllddRk* Preserve user settings and set up our owndRiConfConv gdRgldR/iDlgTOS4gdR>iDlgTOSdRi SumPrompt iDlgTOSs7dRgs7 ldR/iDlgTOG4gdR>iDlgTOGdRiULinks iDlgTOGs+dRgs+ lddRk Find out where to cleandRM?g)lhli batchTitle$dogɀll ll(i txtLine1$dogɀll2llj&RidirTerm$vDirLabeldogـll0llwDir$doimac ldogɀllPllifTypes$vPatLabeldogـllNllwPat$dodog؀llnlli txtSDirs$i dirTermPl$vSubDirsdogǀlFllXldogȀlllXldR?dR/iDlg4g)dRdeStartDlgdRkinitialize the dialog valuesdRimac ldoimacPath$ g ldoi firstColon gimacPath$ipathSep$doimacHD$ gimacPath$i firstColondoiDlgwDir$ imacHD$dR doiDlgwDir$ jc:\doiDlgwPat$ j *.doc;*.dotdRdRiDlgvSubDirs lodRibutton ?iDlgdRibutton ldo*iEndSubdRdRi checkDirValidiDlgwdir$ ldog+i txtInvalid$i batchTitle$l@do*iStartDlgdRdRidlgvsubdirs ldoi txtSearchSDs$ j%You have chosen to search all of the i dirTermPl$j contained in doi txtSearchSDs$ i txtSearchSDs$idlgwdir$j.If the macro fails,gl jFthe path is too complex. Restart the macro and specify a simpler path.gl jProceed with this path ?Rdog+i txtSearchSDs$i batchTitle$l4 l*iStartDlgdRdditxtDate$ jSince the Concept Virus was first discovered in July 1995, documents last saved before January 1995 are extremely unlikely to contain the Concept Virus. Scan these files also?ddg+itxtDate$i batchTitle$l4 ldRi savedFrom$ jd dRi savedFrom$ j 01-01-1995dddg+i txtSlSrch$jlkshow we are searchingdk Find stuffdimac ldogldokdo two back to back searchesddokfirst documentsdoipattern$ gnjWDBNdogcns iDlgwDir$s ipattern$sx idlgvsubdirssb jsd jse jsc js ls ls1 js ls i savedFrom$s js js js js ls lsw ls ldodoknext templatesdoipattern$ gnjWTBNdogcns iDlgwDir$s ipattern$sx idlgvsubdirssb jsd jse jsc js ls ls1 js ls i savedFrom$s js js js js ls lsw ls ldogldoisize gdoknow merge the twodo5ifnArray$isizedo#ii l$isizedoifnArray$ii giido&iid k.one search since we can do multiple extensionsdoiisWord6 liDlgwDir$ giDlgwDir$dnipattern$ idlgwpat$dogcns iDlgwDir$s ipattern$sx idlgvsubdirssb jsd jse jsc js ls ls1 js ls i savedFrom$s js js js js ls lsw ls ldRisize gdRk= This array is created and filled to avoid odd FoundFileName$dRk< behavior when erroring on opening some mail merge main docsdRk7 whose data source could not be found and you click on dRk Find Source, then press cancel.ddR5iFnArray$isizedR#ii l$isizedoiFnArray$ii giidR&iiddRdRisize ldoibutton g+i txtNoneFound$i batchTitle$l4doibutton l*iEndSubdo*iStartDlgdRdRi txtSrchRes$ gisizej' total file(s) to be scanned. Continue?dRg+i txtSrchRes$i batchTitle$l4 l*iEndSubdRgldRk now set up the logging directorydRimac ldoilogDir$ imacHD$jSPLogsdR doilogDir$ jc:ipathSep$jSPLogsdRdRdRkput up a warning for the userdRitxtWait$ j.Please wait while batch cleaning initializes..dRg+itxtWait$jlddRi StartLoggingilogDir$iDlgwDir$ipattern$ ldoi StartLoggingiDlgwDir$iDlgwDir$ipattern$ ldok give updoi txtNoLog$ jUnable to write scanlog.txt to ilogDir$j or iDlgwDir$j, operation cancelled.dog+i txtNoLog$i batchTitle$l@do*iEndSubdodRdRdRgրldR#ii l$isizedoifn$ iFnArray$iidniMac liisWord6 lifn$ gifn$doipfn$ ifn$dok8 This checks if the file name plus dir is too long for adok5 message box later on. If so, it parses out best fit.dogipfn$lAdoiStart gg ipfn$lAipathSep$doiStart liStart ldoipfn$ j...g g ipfn$lAiStartdodnix g+j Checking ifn$j. (giij/gisizej)jldoiLoadItifn$doiFixItifn$doiSaveItifn$dok success!doiquiet ldoibutton g+jCleaned ifn$j.gl j*Display this message for subsequent files?l4doibutton liquiet ldodo6qlj Cleaned: (ifn$doicleaned icleanedldododok. Dispose of it when done, whether fixed or notdok1 only if it's not the doc that was open when the dok macro was run.dog% i CurrentDoc$gldneEndLoopdR&dRgրlddRk Stop loggingdR6qldRi notopenedl6qli notopened(jK document(s) couldn't be opened; these may still contain the Concept Virus.dRinotsavedl6qlinotsaved(jF document(s) couldn't be saved; these still contain the Concept Virus.dRi notconvertedl6qlinotsaved(jH document(s) couldn't be converted; these are still stored as templates.dRitotal icleanedi notopenedinotsavedi notconverteddRitotal l6qlj5No documents containing the Concept Virus were found.dR6qldR6qljCleanup finished.dR6qlj--------------------dRLqldditotal ldRi cleanTxt$ jDOperation completed. No infected documents were found. See the file ilogfile$j for details.d dRi cleanTxt$ jOperation completed. gicleanedj file(s) were cleaned. gi notopenedj file(s) could not be opened.gl ginotsavedi notconvertedj, file(s) could not be cleaned. See the file ilogfile$j for details.ddg+i cleanTxt$i batchTitle$l@deEndSubdRk4 Restore things to the way they were when we starteddRgs7 i SumPromptdRgs+ iULinksddRgldRgրldRiConfConv lgldddiLoadItifn$dRiLoadIt ldR,-*i ErrorHandlerdnRgPsI lsU ls iquote$ifn$iquote$dRk/ is it a Word template? FUTURE: WW2 templates?dR/iDlg4gTdR>iDlgdRiDlgs ldok( not a template, so we're not interesteddogldo*iEndFuncdRdRk if we get here, all is welldRiLoadIt ldR*iEndFuncde ErrorHandlerdRk}MsgBox("Couldn't open " + fn$ + "." + Chr$(13) + "This file may still contain the Concept Virus.", "Batch Macro Cleanup", 64)dRi notopened i notopenedldR6qljCouldn't open: (ifn$(j1. This file may still contain the Concept Virus.dRiErr leEndFuncdddiFixItifn$dRiFoo ldRiFoo iFooiCleanItjAAAZFSdRiFoo iFooiCleanItjAAAZAOdRiFooldok< remove possibly correct macros only if definitely evil onesdok detected (above)doiFoo iFooiCleanItj FileSaveAsdoiFoo iFooiCleanItjPayLoaddoiFoo iFooiCleanItjAutoOpendRdRiFixIt iFooeEndFuncdddiCleanIti BadMacro$dRiCleanIt ldRimfn$ gi BadMacro$dRimfn$ jimfn$ jBuilt Indogs s imfn$s i BadMacro$s ldoiCleanIt ldneEndFuncdddiSaveItifn$dRiSaveIt lddRk6 resolve shortcuts and get name for temporary templatedR/iDlgFSI4gVdR>iDlgFSIdRidotPath$ iDlgFSIshdRi lastchar$ g idotPath$ldRgidotPath$li lastchar$ ipathSep$idotPath$ idotPath$ipathSep$dRi tmpDotFile$ idotPath$j ~___TEMP.DOTddRkC if there's nothing in it to suggest it should still be a template,dRk8 restore it to a document, otherwise leave it a templatedni convertTo glg(lglddRi convertTo ldok3 document -- convert from template by tricky means:dok; save cleaned up template, trying hard to preserve passworddoi lastchance g+ipfn$j has been cleaned. It is currently a Document Template. Do you want to convert it to a regular Document? (If you are not sure that this file should be a regular Document then answer 'No').jBatch Macro Cleanupl$doi lastchance ldo/iDlg4gTdo>iDlgdoi password$ iDlgs`do,-*i ErrorHandlerdogTsU ls ls` js i tmpDotFile$dogldogOsR i tmpDotFile$dogWsR jdo,-*i ErrorHandler2dogifn$kblow away the original filedok-now save cleaned document under original namedoiWordVer ldogTsU ls ls gl"ifn$gl"s` i password$kquotes to handle LFN chars.doiWordVer liWordVer liWordVer ldogTsU ls ls ifn$s` i password$k regular 8.3doddogi tmpDotFile$kdon't need the temp anymoredo dok9we still blow away the infected file but we don't convertdokit to a genuine DOCdo,-*i ErrorHandlerdoiWordVer ldogTsU ls ls gl"ifn$gl"doiWordVer liWordVer liWordVer ldogTsU ls ls ifn$dododR dok file is already a templatedo,-*i ErrorHandlerdoiWordVer ldogTsU ls ls gl"ifn$gl"doiWordVer liWordVer liWordVer ldogTsU ls ls ifn$dodRdRiSaveIt ldR*iEndFuncde ErrorHandlerdRgi tmpDotFile$dRg+jCouldn't save ipfn$j.gl j+This file still contains the Concept Virus.jBatch Macro Cleanupl@dRinotsaved inotsavedldR6qljCouldn't save: (ifn$(j.. This file still contains the Concept Virus.dRiErr ldR*iEndFuncde ErrorHandler2dRiErr ldR,-*i ErrorHandlerdR:idotfile$4ifn$dRg+jCouldn't convert ipfn$j to a document.gl jThis file is still a template.jBatch Macro Cleanupl@dRi notconverted i notconvertedldR6qljCouldn't convert to document: (ifn$(j!. This file is still a template.dRiErr ldReEndFuncdddi StartLoggingidir$iscandir$ipat$dR,-*i ErrorHandlerdRi StartLogging ldRilogfile$ idir$dRi lastchar$ g ilogfile$ldRi lastchar$ j\i lastchar$ j:i lastchar$ jQoilogfile$ ilogfile$ipathSep$dRilogfile$ ilogfile$j cleanlog.txtdRk#check if the logfile already existsdRi checkDirValididir$ ldok(the directory doesn't exist so create itdogidir$doimode lkoutputdR dokthe file might not existdogilogfile$ jdok create itdoimode ldo dokit does so append to itdoimode lkappenddogilogfile$ lgilogfile$ l!gilogfile$lk$it's read-only so make it appendabledodRdRimode lRdo=ilogfile$#;4qldR do=ilogfile$#<4qldRdRdR6qlj*******************dR6qlj-Microsoft Word Document Concept Virus CleanupdR6qldR6qljLog file generated at (g (j on (g (j,dR6qljfor scan of directory (iscandir$(j.dRiMac ldo6qljtypes are WDBN and WTBNdR do6qljusing pattern (ipat$(j.dRdn6qldRi StartLogging ldR*iEndFuncde ErrorHandlerdRiErr ldoeEndFuncdR,-*ldddi checkDirValididir$dRiMacdoicurPath$ gj:dR doicurPath$ gj.dRdR,-*i ErrHandlerdRgidir$dRgicurPath$dR,-*ldRiresult ldR*iEndFunce ErrHandlerdRiresult ldRiErr leEndFuncdRi checkDirValid iresultddkC ******************************************************************dk Macro : AutoClosedk Created : August 11, 1995dk# Copyright (c) 1995 Microsoft Corp.dk> Description : detects and removes Concept Virus from documentdk being closeddkB *****************************************************************ddiMAINddideleted ldkcleanup if this is an upgradedRi closeMsg$ jTSetup has deleted the obsolete protection macros from your Normal (global) template.dRi msgTitle$ jScanProt SetupdRk'check for the ScanOld protective macrosdRgjShellOpenScanOld jdogs jShellOpenScanOldsP ls doideleted ldRdRgj ScanProt1 jdogs j ScanProt1sP ls doideleted ldRdRgj ScanProt2 jdogs j ScanProt2sP ls doideleted ldRdRideleted lg+i closeMsg$i msgTitle$l@dQRdkC ******************************************************************dk Macro : AutoExitdk Created : August 11, 1995dk# Copyright (c) 1995 Microsoft Corp.dk> Description : detects and removes Concept Virus from documentdk being closeddkB *****************************************************************d/0iquieti notopenedinotsavedi notconvertedicleanediMaciquote$ilogfile$iFound$isMe$ddiMAINdR,-*iEndFuncdRklocalization stringsdRiwarn$ jYour Normal (Global) template contained the Concept Virus. ScanProt has cleaned your Normal (Global) template. Saving it now will permanently remove the Concept Virus. Save now ?dRi msgTitle$ jConcept Virus detected!dRdnk initialize constantsdRdRiquiet ldRi notopened ldRinotsaved ldRi notconverted ldRicleaned lddRk% What platform are we on, Mac or Win?dRgglj MacintoshldoiMac ldoiquote$ jdRgglj Windows 3.ldok 16-bit WindowsdoiMac ldoiquote$ jdR doiMac ldoiquote$ gl"dRdkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'dRiFixItdRix g+iwarn$i msgTitle$l4doix ldogldodRdkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'eEndFuncdiErr ldddiFixItd,-*iEndFuncdRiFoo ldRiFoo iFooiCleanItjAAAZFSdRiFoo iFooiCleanItjAAAZAOdRiFoo iFooiCleanItjPayLoaddRiFooldok< remove possibly correct macros only if definitely evil onesdok detected (above)doiFoo iFooiCleanItj FileSaveAsdoiFooiFoo iFooiCleanItjAutoOpendRdRiFixIt iFooeEndFuncdiErr ldddiCleanIti BadMacro$d,-*iEndFuncd13gldn3j1.0j1.1j1.1aj2.0j2.0aj2.0bj2.0cj6.0j6.0aj6.0cdRg gEjMicrosoft Wordj User-Dot-Pathl j\doisMe$ ggEjMicrosoft Wordj User-Dot-Pathj normal.dotdR doisMe$ ggEjMicrosoft Wordj User-Dot-Pathj \normal.dotdRd3j7.0j7.0aj7.0bj7.0cdRk_7.0x is included only as a precaution for the future just in case there ever is such a version.dRiTD$ g jOHKEY_CURRENT_USER\Software\Microsoft\Microsoft Office\95\FileNew\LocalTemplatesjjdRg iTD$l j\doisMe$ iTD$j NORMAL.DOTdR doisMe$ iTD$j \NORMAL.DOTdRdR3 d1diTD$ jisMe$ j Normal.dotdRiCleanIt ldR!gi BadMacro$ jgi BadMacro$ jBuilt Indoimfn$ gi BadMacro$doimfn$ jGlobalimfn$ isMe$dogs s imfn$s i BadMacro$s ldoiCleanIt ldR"eEndFuncdiErr lddkC ******************************************************************dk Macro : FileOpendk Created : August 29, 1995dk# Copyright (c) 1995 Microsoft Corp.dk| Description : On FileOpen, detect documents masquerading as templates, ' warn user and optionally restore them to documentsdkB *****************************************************************ddiMAINdi ShellOpenvMAINljjjddkB *****************************************************************dk Macro : ShellOpendk Created : August 29, 1995dk# Copyright (c) 1995 Microsoft Corp.dkz Description : On FileOpen, detect documents containing Concept Virus '(or any masquerading as templates) and remove them dkB *****************************************************************ddk localizable stringsd/0i autoopen$i openaborted$i loadedasdoc$i opentext$l ibuttons$lddiInitTextddkinitialize localizable stringsdi autoopen$ jautoopendi openaborted$ jFile Open has been aborted.di loadedasdoc$ jaThe macros in this document have been disabled. To permanently remove them, save the document as ddRk text of main dialogdi opentext$l jNUse caution! Even if you know the origin of this file, it contains macros thatdi opentext$l j/could alter Word commands or damage your files.di opentext$l jdi opentext$l jRUnless you can verify these macros will not cause any damage, Word recommends thatdi opentext$l jByou temporarily disable them and open the file without the macros.di opentext$l jdi opentext$l jSIf you wish to permanently remove the macros, simply save the document. If you wishdi opentext$l j:to preserve the macros, close the document without saving.di opentext$l jdi opentext$l  jOClick Yes to open the document without the macros, but keep all other content.di opentext$l  j6Click No to open the document, as is, with the macros.di opentext$l  jdi opentext$l  j Disable now?ddibuttons$l jYesdibuttons$l jNoddddiMAINishellCmdifile$iparam1$iparam2$ddk What version of Word is this?dgglj MacintoshldRk Macintosh Word 6dRi wordVerCode ldgglj Windows 3.ldRk 16 bit WinWord 6dRi wordVerCode ld dRk 32-bit Word on 32-bit WindowsdRggll j6dok32 bit WinWord 6doi wordVerCode ldR dok WinWord 7doi wordVerCode ldRdddkshell command codesdk10 is for Shell->Open on .DOC, .DOT, .WBK, .RTFdk:1,2 is for Shell->Print same files (2 indicates an ifexec)dk83,4 is for Shell->PrintTo on .DOC, .DOT ( 4 for ifexec) dk#5 is for Shell->New on .DOC, .DOTddi multiFileMsg$ jtYou cannot open multiple files at the same time with ScanProt installed. The first file you selected will be opened.dispTitle$ jScanProtddkturn off UI stuffdgldgddk( Prevent any autorun macros from runningd,-*i ErrHandlerdgրld,-*ldd*i StartOpende ErrHandlerdk8active document is protected so ask user to unprotect itdg dgրldiErr lde StartOpend/idlg4gPd>idlgdifile$ jdRiresp ?idlgdRiresp li wordVerCode l*iEndFuncdRi fileList$ iDlgsdR13i wordVerCodedok!check for multiple file selectiondo3lk WinWord 6 dok4multiple files always space separated in 16 bit Worddogi fileList$j ldoi separator gi fileList$j doifnameLen i separatorldoifile$ g i fileList$lifnameLendRQRnoiDlgs ifile$donog+i multiFileMsg$ispTitle$l@dodo3lk Winword NTdok6files with spaces in the name are quoted and files aredokseparated by quotesdoiquotePos gli fileList$gl"doispacePos gi fileList$j doilistLen gi fileList$doiquotePos lispacePosldok7multi-file list with no quoted names and first space isdokfile separatordoifnameLen ispacePosldoifile$ g i fileList$lifnameLendRQRnoiDlgs ifile$donog+i multiFileMsg$ispTitle$l@do doiquotePosliquotePosilistLendokfirst file is quoteddoifnameLen iquotePosdoifile$ g i fileList$lifnameLendRQoiDlgs ifile$donog+i multiFileMsg$ispTitle$l@dododok9we don't need to do anything for all other possibilities do3lk Winword 7doiResp ldok.Word 7 Dialog returns 0 on a multi-file selectdongi fileList$ldRnoifile$ i firstFile$i fileList$dRQRnoiDlgs ifile$donog+i multiFileMsg$ispTitle$l@do do*iEndFunckuser really did canceldododo3 dR1d dRidlgs ifile$ddidlgsU ldodkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'deOpenFiledkWord FileOpen called hered,-*i ErrHandler2dgPidlgdd,-*ld*i ScreenSwitchde ErrHandler2diErr ld*iEndFuncde ScreenSwitchdkget full filenamedifile$ g%dk6 now do the right thing depending on the shell commandd/iDlgFSA4gTd>iDlgFSAd13ishellCmddR3lk Shell->OpendoiDlgFSAs lgllQoi screenOpenifile$kit's a template with macrosdR3llk Shell->PrintdniDlgFSAs lglldok a templatedoichoice i screenOtherifile$doichoice ldok/user said to go ahead so do what the Shell doesdogXs ldogldodoishellCmd lglRk ifexec casedo doka DOCdogXs ldogldoishellCmd lgldodR3llkShell->PrintTodoiDlgFSAs lglldoichoice i screenOtherifile$doichoice ldokagain do Shell sctiondogas/ iparam1$j on iparam2$dogXs ldogldodoishellCmd lglk ifexec casedo dogas/ iparam1$RQj on iparam2$dogXs ldogldoishellCmd lgldodR3lk Shell->NewdoiDlgFSAs lglldoichoice i screenOtherifile$doichoice ldogldogրlkrestore for AutoNew to rundngOsR ifile$kdo a FileNew on itdodo doglkclose the file first dn gրlkrestore for AutoNew to run dogOsR ifile$kdo a FileNew on itdoRd1dk% Restore things to the way they were.dgld,-*i ErrHandler3dgրlddkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'dd*iEndFuncde ErrHandler3dg dgրldiErr ldeEndFuncddddi screenOpenifile$ddiInitTextddk/ it is a template; does it contain auto macros?di HasAutoOpen ldi MacroCount gld#ii l$i MacroCountdRiMacName$ giildRgiMacName$ i autoopen$i HasAutoOpen ld&iidk now, does user mind?dibutton i QueryUserdibutton ldRk- Remove -- open document clean but don't savedRi OpenItCleanifile$dibutton ldRk Keep -- continue as usualdRi HasAutoOpen l)iAutoOpenvMaind dRk@ Don't Load -- give up, clearing MRU list to eliminate this filedRk> close file afterwards, because TOG may not be available if wedRk close file firstdR/iDlgTOG4gdR>iDlgTOGdRinum$ giDlgTOGsYdRiDlgTOGsY ldRgiDlgTOGdRiDlgTOGsY ginum$dRgiDlgTOGdRgldTeEndFuncdddi screenOtherifile$ddiInitTextddi MacroCount gld#ii l$i MacroCountdRiMacName$ giildRgiMacName$ i autoopen$i HasAutoOpen ld&iidibutton i QueryUserdibutton ldRk.open document clean but don't do anything elsedRi OpenItCleanifile$dRi screenOther ldibutton ldRi screenOther ld dRk@ Don't Load -- give up, clearing MRU list to eliminate this filedRk> close file afterwards, because TOG may not be available if wedRk close file firstdR/iDlgTOG4gdR>iDlgTOGdRinum$ giDlgTOGsYdRiDlgTOGsY ldRgiDlgTOGdRiDlgTOGsY ginum$dRgiDlgTOGdRgldRi screenOther ldTeEndFuncndddi OpenItCleanifile$dRgldR,-*i ErrHandlerdRgOsR ifile$eDetachdn,-*i ErrHandlerdRgWsR jdR,-*ldR,-*i ErrHandler2dng$dR*iEndFunce ErrHandlerdnk2template is protected, so unprotect it and proceeddRg dngWsR jdng$dniErr le ErrHandler2dRiErr leEndFuncdi loadedasdoc$ i loadedasdoc$ifile$dg+i loadedasdoc$l@Rdddi QueryUserdRM?g)lljWarning!do#ivpos l$l dogɀlPivposl lll i opentext$ivposdo&do#ihpos li$l %ldo#ihpos l$ldog̀lihpos lllxlibuttons$ihposdo&dogȀlihpos lllxldR?ddR/iDlg4g)dRgldRi QueryUser ?iDlgdRglddddi firstFile$i FileList$dRkis this a quoted file listdRgi FileList$l gl"dokyes, extract file from quotesdoi separator gli FileList$gl"doifnameLen i separatorldoi firstFile$ g i FileList$lifnameLendR dok(no, file is not quoted so look for spacedoi separator gi FileList$j doifnameLen i separatorldoi firstFile$ g i FileList$lifnameLendRd./fuJUVabc$ UVabc$=>!V!!!K@Normala "A@"Default Paragraph Font f45ZMicrosoft CorporationC:\ctools\scantool\rc3.dotMatt CampanellaC:\U\Util\Scanprot.dotU U)U ;D 1UC5U $9U FuCU v ZE( AutoClose:ScanProt macro to upgrade your existing protection macros. AutoExitScanFScanProt macro to protect and disinfect your Normal (Global) template.AutoNewPScanProt macro to ensure ScanProt Setup runs when you double click on this file.CleanAllDScanProt macro to perform batch scanning and cleaning of your files. FileOpenScanJScanProt macro to prompt you if the document being opened contains macros. ShellOpenScan

Copyright © 1996 by the Rector and Visitors of the University of Virginia. wxwwwwwwwwwwwxwwwwwwwwwwwwwwxwwwwwwwwwwwwwwxwwwwwwwwwwwwwwxwwwwwwwwwwT=cP|OJUc\|c,le8;BZ .v+p.|h_ju5q(x)6hj㩞\I$Ik="I$dI(I$&KI,ζ֖]^L|QH8tFca8I%ݿ#ঝ-S9aoK^<}rI$I$t'I2tLINI$I$IH'I2I&I$)]ʤI$Hs9z?"$I$I$NEx cS4']fE.,/n15A$Usrُ싏^Ea QRI$hhM*'eH1JRI$L>cI$ҒIjS,a-qh|Ū)<:/k'ξ7l}p"{|{k 9L\QF̴#TNKisX{HSf[ !ėDLHy'mLJ9-?D@OR̐m.ZN#Kian3v@Afsk\kf}:|~C>*w<媗;cC31ے>0Yk\ͣA4Ephs{ZvPgOsfy09{ǒu)EǮM5"u#q$铤I$I(X!wS'%kKh'Ρa`n疞H{*c $ϗ2FUq /s l2>|~[g1. /:h<*V1.qwmL(+6쭕xx|~Jc]{C*F;vǚ:IZ5C>c:Z4~kUNuղ4ck?t`ii`DLZwFQlUjCecovūƳeYI$o&%82J/nč$c4:d#r~='_ ~a8I%޻f,?Ku%QlypWI$I:I$n$$I2b H NI1s[$I3\ `ElI0Z~PQI$I$I3 GqqEbL2\'a'Tc;^ݕ@ԒI|fc5_4ә$Rnx"L8ODzUۅ`!f 7xx# SsC5!j>c,YH$IJfo`<cWevĶyD.]{d4ZmUe%5u84v"OW^$F=I 5KwjTcڟ qn%&uD*f.^T.9:hԑ%v#wmxȈ<>zVn#GS^'Xm% BaϦ\"BvџzN.$<I/ex:b׳t8ӻ[Sk{w;Ct>~g"ʱ 0|eS!s|DΠ&$+Z_$rUhGǺin5V[mr$s<ƒY[ G-!v xSƫ@꣕kZù'CYcW{,̺}1%qò6 z,h[s9;!|z@8`N"4p;g55Oq RnU58rUӏ[cl `]T0mcM68E40@翂*PӶͧYUxg䏍qTTYKhw@…Y53urKLNQq 1ȩ$I$I$I!_06C;kki4 4Q}2\5s\0ZGFMatt Campanella2FMicrosoft Word for Windows 95@Ik@@uk@r}yࡱ> ՜.+,0HPpx  Microsoft CorporationF ScanProt Version 1.0ࡱ