列出Windows服务,并填充到word中

51Testing软件测试网@)w/]
wC+Qyl

  直接把代码复制到文本中,后缀改为.vbs,双击即可运行，也可以复制到测试工具中运行

B5V idyd0

{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"n4K
Set ōbjWord = CreateObject("Word.Application")
)MP O `$s0KEz0objWord.Visible = True51Testing软件测试网L^vB;\"d
Set ō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!X
x=151Testing软件测试网o]!B&Xa r
51Testing软件测试网b"A%` eKX]
strComputer = "."51Testing软件测试网(?o;_t:cE#q$x
Set ōbjWMIService = _
{b([l;I^_0  GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
\U&WG`'I2Q#Q~0Set colItems = objWMIService.ExecQuery("Select * from Win32_Service ")
3\}S[l
u
T0For Each objItem in colItems
%j X C2Bj]oNE0  If x > 1 Then
@l{5oGkmn~0  objTable.Rows.Add()
~V'N3UkM[Q(k0  End If
`mSUZi6Uhe:N0  objTable.Cell(x, 1).Range.Font.Bold = True
W/c{D^0  objTable.Cell(x, 1).Range.Text = objItem.Name51Testing软件测试网&e3KBKe&P?X
  objTable.Cell(x, 2).Range.text = objItem.DisplayName
8Y,} G#u
wwWO0  objTable.Cell(x, 3).Range.text = objItem.State
!Oc/P?(i0  x = x + 151Testing软件测试网HWvw\ k.RWj
Next
*F8zP_&{7Li-Jb051Testing软件测试网,u&u@3F \P