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结合Flexbox简单实现滑动拼图游戏

★ JavaScript实现Flash炫光波动特效

★ 利用js实现禁止复制文本信息

★ javascript实现带下拉子菜单的导航菜单效果

★ javascript实现获取服务器时间

★ javascript实现仿腾讯游戏选择

★ 实现无刷新联动例子汇总

★ javascript实现模拟时钟的方法

★ 如何用JS取得网址中的文件名