会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
Microsoft . 技术之路...
—— 专注于微软技术, 分享是快乐的源泉......
博客园
::
首页
::
新随笔
::
联系
::
订阅
::
管理
公告
创建并保存Word(脚本代码)
Posted on
2006-07-25 11:20
赣江源
阅读(
640
) 评论(
0
)
编辑
收藏
举报
Set
objWord
=
CreateObject
(
"
Word.Application
"
)
objWord.Caption
=
"
Test Caption
"
objWord.Visible
=
True
Set
objDoc
=
objWord.Documents.Add()
Set
objSelection
=
objWord.Selection
objSelection.Font.Name
=
"
Arial
"
objSelection.Font.Size
=
"
18
"
objSelection.TypeText
"
Network Adapter Report
"
objSelection.TypeParagraph()
objSelection.Font.Size
=
"
14
"
objSelection.TypeText
""
&
Date
()
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.Font.Size
=
"
10
"
strComputer
=
"
.
"
Set
objWMIService
=
GetObject
(
"
winmgmts:\\
"
&
strComputer
&
"
\root\cimv2
"
)
Set
colItems
=
objWMIService.ExecQuery _
(
"
Select * from Win32_NetworkAdapterConfiguration
"
)
For
Each
objItem in colItems
objSelection.Font.Bold
=
True
objSelection.TypeText
"
ARP Always Source Route:
"
objSelection.Font.Bold
=
False
objSelection.TypeText
""
&
objItem.ArpAlwaysSourceRoute
objSelection.TypeParagraph()
objSelection.Font.Bold
=
True
objSelection.TypeText
"
ARP Use EtherSNAP:
"
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
"
Database Path:
"
objSelection.Font.Bold
=
False
objSelection.TypeText
""
&
objItem.DatabasePath
objSelection.TypeParagraph()
objSelection.Font.Bold
=
True
objSelection.TypeText
"
Dead GW Detection Enabled:
"
objSelection.Font.Bold
=
False
objSelection.TypeText
""
&
objItem.DeadGWDetectEnabled
objSelection.TypeParagraph()
objSelection.Font.Bold
=
True
objSelection.TypeText
"
Default IP Gateway:
"
objSelection.Font.Bold
=
False
objSelection.TypeText
""
&
objItem.DefaultIPGateway
objSelection.TypeParagraph()
objSelection.Font.Bold
=
True
objSelection.TypeText
"
Default TOS:
"
objSelection.Font.Bold
=
False
objSelection.TypeText
""
&
objItem.DefaultTOS
objSelection.TypeParagraph()
objSelection.Font.Bold
=
True
objSelection.TypeText
"
Default TTL:
"
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
会员力量,点亮园子希望
刷新页面
返回顶部
Powered by:
博客园
Copyright © 2024 赣江源
Powered by .NET 8.0 on Kubernetes