VB6 - Conoscere lo stato di un servizio windows
Ambrino
dovrei inserire in un mio applicativo lo stato di alcuni servizi windows ed
eventualmente andarli a modificare.
Non ho trovato nessuno spunto su google, mi potete aiutare?
Grazie
SB
scritto:
Si pu� fare, devi spippolare un po' con le API
http://smsoft.ru/en/ntservice.htm
http://www.freevbcode.com/ShowCode.Asp?ID=4317
--
ciao
Stefano
VITRIOL
> Si pu� fare, devi spippolare un po' con le API
Se si usasse .NET... :-)
Dim srv As New ServiceController
srv.ServiceName = "Spooler"
If srv.Status = ServiceControllerStatus.Running Then
MessageBox.Show("Spooler di stampa in esecuzione")
End If
--
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Scarica "OpenOffice.org 3.0 Soluzioni a raccolta", molto pi� di semplici
FAQ! http://it.openoffice.org/doc/manuali/
SB
<vitriol_vit...@katamail.com> ha scritto:
>Se si usasse .NET... :-)
>
> Dim srv As New ServiceController
> srv.ServiceName = "Spooler"
> If srv.Status = ServiceControllerStatus.Running Then
> MessageBox.Show("Spooler di stampa in esecuzione")
> End If
Verissimo, ma se il monopolista invece di fare un linguaggio nuovo avesse
continuato a sviluppare VB classic...
--
ciao
Stefano
VITRIOL
> Verissimo, ma se il monopolista invece di fare un linguaggio nuovo avesse
> continuato a sviluppare VB classic...
Probabilmente non sarebbe esistita quella classe, e si sarebbe dovuto
continuare a smanettare con le API...
Mauro Gamberini
> continuato a sviluppare VB classic...
>
Al�, si ricomincia... ;-)
Ma fare un passo avanti, no?
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/officeit/threads
SB
<maurogsc...@RIMUOVEREaliceposta.it> ha scritto:
>Ma fare un passo avanti, no?
Don Chisciotte � sempre il + avanti.
Forza Sancho, andiamo all'attacco di .NET
CARICAAA!!! ;-)
--
ciao
Stefano
VITRIOL
> Don Chisciotte � sempre il + avanti.
>
> Forza Sancho, andiamo all'attacco di .NET
>
> CARICAAA!!!;-)
Per darti carica e motivazione :-)
http://www.youtube.com/watch?v=oDeZin9xUxg
Mauro Gamberini
>
> Don Chisciotte � sempre il + avanti.
>
> Forza Sancho, andiamo all'attacco di .NET
>
> CARICAAA!!! ;-)
>
>
I mulini a vento non sono il .NET... ;-)
Reventlov
>Il giorno Fri, 11 Dec 2009 11:19:05 +0100, "Ambrino" <amb...@tin.it> ha
>>dovrei inserire in un mio applicativo lo stato di alcuni servizi windows ed
>>eventualmente andarli a modificare.
>
>Si pu� fare, devi spippolare un po' con le API
Forse si pu� fare usando WMI? Questo � una parte del codice generato automaticamente da ms
Scriptomatic
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DisplayName: " & objItem.DisplayName
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "PathName: " & objItem.PathName
Wscript.Echo "ProcessId: " & objItem.ProcessId
Wscript.Echo "Started: " & objItem.Started
Wscript.Echo "StartMode: " & objItem.StartMode
Wscript.Echo "StartName: " & objItem.StartName
Wscript.Echo "State: " & objItem.State
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
Wscript.Echo "SystemName: " & objItem.SystemName
Next
--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--