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