Add(MainForm,2953706,182,119)
{
}
Add(VBJScript,112309,252,168)
{
 WorkPoints=#6:doWork|
 Script=#54:Dim objWord, objDoc, objRange, objWMIService, colItems|0:|18:Sub doWork(dt,idx)|48:  Set objWord = CreateObject("Word.Application")|24:  objWord.Visible = True|38:  Set objDoc = objWord.Documents.Add()|0:|31:  Set objRange = objDoc.Range()|32:  objDoc.Tables.Add objRange,1,3|33:  Set objTable = objDoc.Tables(1)|0:|5:  x=1|0:|19:  strComputer = "."|23:  Set objWMIService = _|58:    GetObject("winmgmts:\\" & strComputer & "\root\cimv2")|71:  Set colItems = objWMIService.ExecQuery("Select * from Win32_Service")|0:|30:  For Each objItem in colItems|17:    If x > 1 Then|27:        objTable.Rows.Add()|10:    End If|46:    objTable.Cell(x, 1).Range.Font.Bold = True|49:    objTable.Cell(x, 1).Range.Text = objItem.Name|56:    objTable.Cell(x, 2).Range.text = objItem.DisplayName|50:    objTable.Cell(x, 3).Range.text = objItem.State|13:    x = x + 1|9:  Next   |9:End Sub  |
 UseName=0
}
Add(Button,2868974,182,168)
{
 Left=15
 Top=20
 link(onClick,112309:doWork,[])
}