Tjekke filer og om proces/service kører på remote computer

her en glimrende samling:
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/processes/

Hejsa.
Tak for link.

Jeg har selv googlet lidt på emnet og har fundet et script som jeg har forsøgt at modificere en del.
Det script jeg har ligger alle services med et bestemt navn ind i en collection, hvorefter navnet på den givne service hentes ud fra denne collection og lægges i en string, der til sidst udskrives.

Nu vil jeg gerne lave det sådan, at i stedet for en collection (jeg har jo kun én service), vil jeg gerne hente det ud med en query, der lægger resultatet ind i et service-object, der så kan arbejdes videre med derfra.

Aaltså, jeg vil gerne ende op med et service-object for den givne service, hvor jeg kan teste på om den for det første er installeret (må kunne tjekkes for om resultatet er tomt eller null) og herefter om service er startet osv.

Jeg har nu følgende modificerede script:



strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Set objService = objWMIService.Get("Select * from Win32_Service Where Name = 'AvgAgent'")
Set objService = objWMIService.Get("winmgmts:Win32_Service=Alerter")

strServiceList = objService.Name

WScript.Echo strServiceList

Prøver lige med det rigtige script, der på nuværende tidspunkt virker (det andet herover er et forsøg på at modificere) :-)

Option Explicit
Dim strComputer, objWMIService, colListOfServices, objService, strServiceList

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name = 'AvgAgent'")

For Each objService In colListOfServices
strServiceList = objService.Name
Next

WScript.Echo strServiceList

Hej.
Jeg tror jeg fandt en løsning. Ved ikke hvor pænt det er i praksis, men da jeg kun reelt returnerer én enkelt service i min collection, kan jeg faktisk tilgå den på samme måde som hvis jeg returnerede selve service-objektet.

Option Explicit
Dim strComputer, objWMIService, colListOfServices, objService, strServiceList

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name = 'AvgAgent'")

For Each objService In colListOfServices
    If objService.Name = "avgagent" Then
        If objService.State = "Stopped" Then
            MsgBox objService.Name & " er " & objService.State
            MsgBox "Start service?"
            objService.StartService()
            MsgBox "Service startet..."
        Else
            MsgBox objService.Name & " er startet"
        End If
    End If
Next

Jeg kan så herfra arbejde videre med det, der skal tjekkes på.

Underligt, den her vil ikke køre eller den returnere ikke noget, kan du se en fejl?:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service where Name = 'Telephony'")

For Each objService in colRunningServices
Wscript.Echo objService.DisplayName & VbTab & objService.State
Next