Servizi in Esecuzione VBS

Qualcuno tempo fa mi chiese se era possibile far interagire gli script vbs con altre applicazioni... :-D [Ma.... Certo!!!!!]
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 leggibili i contenuti).
Detto ciò, copiate il codice in grassetto nel Blocco note [Start - Tutti i Programmi - Accessori - Blocco note] e salvatelo con nome con l'estensione .vbs
Faccio un esempio   Servizi.vbs

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 & "\root\cimv2")
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()
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento