Posted on
2006-07-25 11:22赣江源
阅读(796)
评论(0)
编辑收藏举报
Set objWord =CreateObject("Word.Application") objWord.Visible =True Set objDoc = objWord.Documents.Add() Set objRange = objDoc.Range() objDoc.Tables.Add objRange,1,3 Set objTable = objDoc.Tables(1) x=1 strComputer ="." Set objWMIService = _ GetObject("winmgmts:\\"& strComputer &"\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Service") ForEach objItem in colItems If x >1Then objTable.Rows.Add() EndIf objTable.Cell(x, 1).Range.Text = objItem.Name objTable.Cell(x, 2).Range.text = objItem.DisplayName objTable.Cell(x, 3).Range.text = objItem.State x = x +1 Next