windows脚本编程核心技术精解-随书示例脚本-第十三章

《windows脚本编程核心技术精解-随书示例脚本-第十三章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、'13-1.VBS2'13-2.VBS4'13-3.VBS6'13-4.VBS8'13-5.VBS10'13-6.VBS12'13-7.VBS15'13-1.VBS'---thefollowinglineshavebeenaddedtoensureallrequiredCOMobjectsareavailableonyoursystem.'scriptusesthefollowingcomponents:'scripting.filesystemobject'wscript.shellCheckCOM'---endofCOM-ob

2、jectcheckingcode---setargs=WScript.Argumentsifargs.Count=0thenMsgBox"Pleasedragavbsscriptfileonmyicon."_&"I'llplaceitintotheStartupgroup!"WScript.Quitendifsetfs=CreateObject("Scripting.FileSystemObject")setwshshell=CreateObject("WScript.Shell")scriptfile=args(0)ifnotl

3、case(fs.GetExtensionName(scriptfile))="vbs"thenMsgBox"Ionlyacceptvbsscriptfiles!"WScript.Quitendifstartup=wshshell.SpecialFolders("Startup")name=InputBox("UnderwhichnameshouldIplacethescript"_&""""&fs.GetBaseName(scriptfile)&"""intotheStartUp-"_&"Group?","autostartscr

4、ipt")setscut=wshshell.CreateShortcut(startup&""&name&".lnk")scut.TargetPath=scriptfilescut.SaveMsgBox"ScripthasbeensuccessfullylinkedtoyourStartUpgroup!"'---thefollowingcodehadbeenautomaticallyaddedtoensureallrequiredCOMobjectsareinstalled.functionCOMExists(name)'che

5、ckswhetheraspecificCOMobjectisinstalledon'yourlocalmachinesetcwsh=CreateObject("WScript.Shell")onerrorresumenextdummy=cwsh.RegRead("HKCR"&name&"")iferr.number<>0thenCOMExists=falseelseCOMExists=trueendifendfunctionsubCheckCOMifnotCOMExists("scripting.filesystemobjec

6、t")thenmsg="COM-Object""scripting.filesystemobject""isrequired.Thisobjectiscurrentlynotinstalledonyoursystem."&vbCrmsg=msg&"ReinstalltheWindowsScriptingHost!"&vbCrMsgBoxmsg,vbExclamationendififnotCOMExists("wscript.shell")thenmsg="COM-Object""wscript.shell""isrequired

7、.Thisobjectiscurrentlynotinstalledonyoursystem."&vbCrmsg=msg&"ReinstalltheWindowsScriptingHost!"&vbCrMsgBoxmsg,vbExclamationendifendsub'---endofCOMobjectcheckingcode'(C)2000byDr.T.Weltner-allrightsreserved.'13-2.VBS'---thefollowinglineshavebeenaddedtoensureallrequired

8、COMobjectsareavailableonyoursystem.'scriptusesthefollowingcomponents:'scripting.filesystemobject'wscript.shellCheckCOM'---en