Demonstrationscriptthatretrievesnetworkadapterdatafromacomputer,

displaysthatdatainaMicrosoftWorddocument,andthensavesthe

documentasC:ScriptsWordTestdoc.doc.

复制代码 代码如下:

SetobjWord=CreateObject("Word.Application")

objWord.Caption="TestCaption"

objWord.Visible=True

SetobjDoc=objWord.Documents.Add()

SetobjSelection=objWord.Selection

objSelection.Font.Name="Arial"

objSelection.Font.Size="18"

objSelection.TypeText"NetworkAdapterReport"

objSelection.TypeParagraph()

objSelection.Font.Size="14"

objSelection.TypeText""&Date()

objSelection.TypeParagraph()

objSelection.TypeParagraph()

objSelection.Font.Size="10"

strComputer="."

SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")

SetcolItems=objWMIService.ExecQuery_

("Select*fromWin32_NetworkAdapterConfiguration")

ForEachobjItemincolItems

objSelection.Font.Bold=True

objSelection.TypeText"ARPAlwaysSourceRoute:"

objSelection.Font.Bold=False

objSelection.TypeText""&objItem.ArpAlwaysSourceRoute

objSelection.TypeParagraph()

objSelection.Font.Bold=True

objSelection.TypeText"ARPUseEtherSNAP:"

objSelection.Font.Bold=False

objSelection.TypeText""&objItem.ArpUseEtherSNAP

objSelection.TypeParagraph()

objSelection.Font.Bold=True

objSelection.TypeText"Caption:"

objSelection.Font.Bold=False

objSelection.TypeText""&objItem.Caption

objSelection.TypeParagraph()

objSelection.Font.Bold=True

objSelection.TypeText"DatabasePath:"

objSelection.Font.Bold=False

objSelection.TypeText""&objItem.DatabasePath

objSelection.TypeParagraph()

objSelection.Font.Bold=True

objSelection.TypeText"DeadGWDetectionEnabled:"

objSelection.Font.Bold=False

objSelection.TypeText""&objItem.DeadGWDetectEnabled

objSelection.TypeParagraph()

objSelection.Font.Bold=True

objSelection.TypeText"DefaultIPGateway:"

objSelection.Font.Bold=False

objSelection.TypeText""&objItem.DefaultIPGateway

objSelection.TypeParagraph()

objSelection.Font.Bold=True

objSelection.TypeText"DefaultTOS:"

objSelection.Font.Bold=False

objSelection.TypeText""&objItem.DefaultTOS

objSelection.TypeParagraph()

objSelection.Font.Bold=True

objSelection.TypeText"DefaultTTL:"

objSelection.Font.Bold=False

objSelection.TypeText""&objItem.DefaultTTL

objSelection.TypeParagraph()

objSelection.Font.Bold=True

objSelection.TypeText"Description:"

objSelection.Font.Bold=True

objSelection.Font.Bold=False

objSelection.TypeText""&objItem.Description

objSelection.TypeParagraph()

objSelection.TypeParagraph()

Next

objDoc.SaveAs("C:ScriptsWordtestdoc.doc")

objWord.Quit

【用jscript实现新建和保存一个word文档】相关文章：

★ 纯javascript实现四方向文本无缝滚动效果

★ javascript实现日期按月份加减

★ 用JavaScript实现对话框的教程

★ JavaScript实现跑马灯抽奖活动实例代码解析与优化（二）

★ 理解javascript封装

★ jQuery实现html表格动态添加新行的方法

★ javascript实现树形菜单的方法

★ javascript结合Flexbox简单实现滑动拼图游戏

★ JavaScript判断数组是否包含指定元素的方法

★ Javascript实现每日自动换一张图片的方法