18-01.VBS2 18-2.VBS3 18-3.VBS5 18-01.VBSset inputstream = WScript.StdInset outputstream = WScript.StdOutdo data = inputStream.ReadLine if data = exit then WScript.Quit else outputstream.WriteLine UCASE(data) end ifloop 18-2.VBS -the following lines have been added to ensure all required COM objects are available on your system. script uses the following components: wscript.shell CheckCOM-end of COM-