Demonstrationscriptthatretrievesnetworkadapterdatafromacomputer,
displaysthatdatainaMicrosoftWorddocument,andthensavesthe
documentasC:\Scripts\Word\Testdoc.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&"\root\cimv2")
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:\Scripts\Word\testdoc.doc")
objWord.Quit