
SERVIZI IN ESECUZIONE TRAMITE EXCEL
Qualcuno tempo fa mi chiese se era possibile far interagire gli script vbs con altre applicazioni… ACCONTENTATO!!
In questo caso l’interazione tramite script avviene con excel.
Il compito dello script è di aprire excel e creare un elenco con i relativi servizi nel sistema operativo.
Il foglio di calcolo (excel) viene strutturato in tre colonne, dove nella prima sono indicati gli Alert (in attenzione), nella seconda gli avvisi con le descrizioni del servizio e nella terza colonna lo stato del servizio che se è in esecuzione avremo (nella cella) Running e viceversa (se non è in esecuzione) Stopped.
“La cosa” pazzesca è che tutto avviene sotto i nostri occhi…. è da provare credetemi, perché si auto-formattano le celle (cioè si allargano da sole in modo da rendere leggili i contenuti).
Copia basta copiare nel Blocco note [Start – Tutti i Programmi – Accessori – Blocco note] e salvare con nome con l’estensione .vbs
Faccio un esempio: Servizi.vbs
Codice
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add() Set objWorksheet = objWorkbook.Worksheets(1) x = 1 strComputer = "." Set objWMIService = _ GetObject("winmgmts:\" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_Service") For Each objItem in colItems objWorksheet.Cells(x, 1) = objItem.Name objWorksheet.Cells(x, 2) = objItem.DisplayName objWorksheet.Cells(x, 3) = objItem.State x = x + 1 Next Set objRange = objWorksheet.UsedRange objRange.EntireColumn.Autofit() |