Windows脚本编程核心技术精解-随书示例脚本-第十八章.doc

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-object checking code- which engine runs this script?engine = lcase(mid(WScript.FullName, InstrRev(WScript.FullName,)+1)if not engine=cscript.exe then re-launch script using cscript.exe set wshshell = CreateObject(WScript.Shell) wshshell.run CSCRIPT.EXE & WScript.ScriptFullName & WScript.Quitend ifMsgBox I run as DOS-Box! - the following code had been automatically added to ensure all required COM objects are installed.function COMExists(name) checks whether a specific COM object is installed on your local machineset cwsh = CreateObject(WScript.Shell)on error resume nextdummy = cwsh.RegRead(HKCR & name & )if err.number0 thenCOMExists = falseelseCOMExists = trueend ifend function sub CheckCOMif not COMExists(wscript.shell) thenmsg=COM-Object wscript.shell is required. This object is currently not installed on your system. & vbCrmsg = msg & Reinstall the Windows Scripting Host! & vbCrMsgBox msg, vbExclamationend ifend sub- end of COM object checking code (C) 2000 by Dr. T. Weltner - all rights reserved. 18-3.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-object checking code- set wshshell = CreateObject(WScript.Shell) set cscript.exe as standardwshshell.run WSCRIPT.EXE /H:CScript launch command window and waitok = wshshell.run(%comspec%,true) change back to defaultwshshell.run WSCRIPT.EXE /H:WScript - the following code had been automatically added to ensure all required COM objects are installed.function COMExists(name) checks whether a specific COM object is installed on your local machineset cwsh = CreateObject(WScript.Shell)on error resume nextdummy = cwsh.RegRead(HKCR & name & )if err.number0 thenCOMExists = falseelseCOMExists = trueend ifend function sub CheckCOMif not COMExists(wscript.shell) thenmsg=COM-Object wscript.shell is required. This object is currently not installed on your system. & vbCrmsg = msg & Reinstall the Windows Scripting Host!