专注于自动化测试,性能测试.......
列出Windows服务,并填充到word中
上一篇 /
下一篇 2008-08-18 16:55:20
/ 个人分类:C# Programming
51Testing软件测试网@)w/]wC+Qyl 直接把代码复制到文本中,后缀改为.vbs,双击即可运行,也可以复制到测试工具中运行
B5V idyd0 {5I/i%J8p:a%k%N0' Add a Formatted Table to a Word Document
3J"C!g)l;A&ado051Testing软件测试网s:X[ D*p
51Testing软件测试网*X9w
j+~iMn"n4KSet ōbjWord = CreateObject("Word.Application")
)MP O
`$s0KEz0objWord.Visible = True
51Testing软件测试网L^vB;\"dSet ōbjDoc = objWord.Documents.Add()
3I%b,AvyE%M`0+{/M"oyT
Pu"g c}0Set ōbjRange = objDoc.Range()
VQ6IK7PNW){#y0objDoc.Tables.Add objRange,1,3
pl+L1b(Y {.[*k0Set ōbjTable = objDoc.Tables(1)
s
oA1K:B7S/Q051Testing软件测试网)Rl1{~L!Xx=1
51Testing软件测试网o]!B&Xa
r51Testing软件测试网b"A%` eKX]strComputer = "."
51Testing软件测试网(?o;_t:cE#q$xSet ōbjWMIService = _
{b([l;I^_0 GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
\U&WG`'I2Q#Q~0Set colItems = objWMIService.ExecQuery("Select * from Win32_Service ")
3\}S [luT0For Each objItem in colItems
%j X
C2Bj]oNE0 If x > 1 Then