VISUALIZZARE I SERVIZI IN ESECUZIONE DEL PC 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
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()
