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

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

1、'5-1.VBS2'5-2.VBS4'5-3.VBS6'5-4.VBS8'5-5.VBS11'5-6.VBS13'5-7.VBS15'5-8.VBS18'5-9.VBS21'5-10.VBS24'5-11.VBS27'5-12.VBS30'5-13.VBS37'5-1.VBS'---thefollowinglineshavebeenaddedtoensureallrequiredCOMobjectsareavailableonyoursystem.'scriptusesthefollowingcomponents:'i

2、nternetexplorer.applicationCheckCOM'---endofCOM-objectcheckingcode---setie=CreateObject("InternetExplorer.Application")MsgBox"ObjectType:"&TypeName(ie)ie.visible=trueMsgBox"InternetExplorerisvisiblenow!"ie.visible=falseMsgBox"Nowit'shidden!"ie.Quit'---thefollowi

3、ngcodehadbeenautomaticallyaddedtoensureallrequiredCOMobjectsareinstalled.functionCOMExists(name)'checkswhetheraspecificCOMobjectisinstalledon'yourlocalmachinesetcwsh=CreateObject("WScript.Shell")onerrorresumenextdummy=cwsh.RegRead("HKCR"&name&"")iferr.number<>

4、0thenCOMExists=falseelseCOMExists=trueendifendfunctionsubCheckCOMifnotCOMExists("internetexplorer.application")thenmsg="COM-Object""internetexplorer.application""isrequired.Thisobjectiscurrentlynotinstalledonyoursystem."&vbCrmsg=msg&"InstalltheInternetExplorerVe

5、rsion4.0orabove."&vbCrMsgBoxmsg,vbExclamationendifendsub'---endofCOMobjectcheckingcode'(C)2000byDr.T.Weltner-allrightsreserved.'5-2.VBS'---thefollowinglineshavebeenaddedtoensureallrequiredCOMobjectsareavailableonyoursystem.'scriptusesthefollowingcomponents:'inte

6、rnetexplorer.applicationCheckCOM'---endofCOM-objectcheckingcode---setie=CreateObject("InternetExplorer.Application")scriptname=WScript.ScriptFullNamepath=left(scriptname,InstrRev(scriptname,""))filename=path&"showme.htm"MsgBox"Nowloading"&filenameie.navigatefil

7、enameie.visible=trueMsgBox"InternetExplorerisvisiblenow!",vbSystemModalMsgBox"Typeofdocument:"&TypeName(ie.document)ie.Quit'---thefollowingcodehadbeenautomaticallyaddedtoensureallrequiredCOMobjectsareinstalled.functionCOMExists(name)'checkswhetheraspecificCOMobj

8、ectisinstalledon'yourlocalmachinesetcwsh=CreateObject("WScript.Shell")onerrorresumenextdummy=cwsh.RegRead("HKCR"&name&"")iferr.number<>0thenCOMExists=falseelseCOMEx