Re: Składnia polecenia

On Wed, 5 Jan 2005 11:17:43 +0100, Leon wrote:

> Witam
> 1.Jak powinna wygladac skladnia polecenia, ktora po stwierdzenieniu, ze
> okreslona usluga jest uruchomiona przechodzi do wykonania kolejnego
> polecenia?
> (uruchomienie uslugi NET START)
>

Set Shell=CreateObject("Wscript.Shell")
set
Services=GetObject("winmgmts:{impersonationlevel=impersonate}!\\maszyna\root\cimv2").ExecQuery("select
* from Win32_Service where Name='nazwa_serwisu'")
For each Service in Services
        Service.StartService()
Next

Koniec=False
Do
        set
Services=GetObject("winmgmts:{impersonationlevel=impersonate}!\\serwer\root\cimv2").ExecQuery("select
* from Win32_Service where Name='nazwa_serwisu'")
        For Each Service in Services
                if Service.State = "Running" Then Koniec = True
        Next
        Wscript.Sleep(1000)
Loop Until Koniec

-- 
Pozdrawiam
Piotrek