Leggere il testo tramite script vbs
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 oparativo.
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 autoformattano le celle (autoformattano le celle significa che si allargano da sole in modo da essere leggili i contenuti).
Detto ciò, copiate il codice (verde) nel Blocco note [Start – Tutti i Programmi – Accessori – Blocco note] e salvatelo con nome con l’estensione .vbs
Faccio un esempio: Servizi.vbs
|
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() |
Articoli Correlati
