TOC\*MERGEFORMAT'18-01.VBSPAGEREF_Toc261789441\h2'18-2.VBSPAGEREF_Toc261789442\h3'18-3.VBSPAGEREF_Toc261789443\h5'18-01.VBSsetinputstream=WScript.StdInsetoutputstream=WScript.StdOutdodata=inputStream.ReadLineifdata="exit"thenWScript.Quitelseoutputstream.WriteLineUCASE(data)endifloop'18-2.VBS'---thefollowinglineshavebeenaddedtoensureallrequiredCOMobjectsareavailableonyoursystem.'scriptusesthefollowingcomponents:'wscript.shellCheckCOM'---endofCOM-objectcheckingcode---'whichenginerunsthisscript?engine=lcase(mid(WScript.FullName,InstrRev(WScript.FullName,"\")+1))ifnotengine="cscript.exe"then're-launchscriptusingcscript.exesetwshshell=CreateObject("WScript.Shell")wshshell.run"CSCRIPT.EXE"""&WScript.ScriptFullName&""""WScript.QuitendifMsgBox"IrunasDOS-Box!"'---thefollowingcodehadbeenautomaticallyaddedtoensureallrequiredCOMobjectsareinstalled.functionCOMExists(name)'checkswhetheraspecificCOMobjectisinstalledon'yourlocalmachinesetcwsh=CreateObject("WScript.Shell")onerrorresumenextdummy=cwsh.RegRead("HKCR\"&name&"\")iferr.number<>0thenCOMExists=falseelseCOMExists=trueendifendfunctionsubCheckCOMifnotCOMExists("wscript.shell")thenmsg="COM-Object""wscript.shell""isrequired.Thisobjectiscurrentlynotinstalledonyoursystem."&vbCrmsg=msg&"ReinstalltheWindowsScriptingHost!"&vbCrMsgBoxmsg,vbExclamationendifendsub'---endofCOMobjectcheckingcode'(C)2000byDr.T.Weltner-allrightsreserved.'18-3.VBS'---thefollowinglineshavebeenaddedtoensureallrequiredCOMobjectsareavailableonyoursystem.'scriptusesthefollowingcomponents:'wscript.shellCheckCOM'---endofCOM-objectcheckingcode---setwshshell=CreateObject("WScript.Shell")'setcscript.exeasstandardwshshell.run"WSCRIPT.EXE//H:CScript"'launchcommandwindowandwaitok=wshshell.run("""%comspec%""",,true)'changebacktodefaultwshshell.run"WSCRIPT.EXE//H:WScript"'---thefollowingcodehadbeenautomaticallyaddedtoensureallrequiredCOMobjectsareinstalled.functio