Check om Windows service køre via script

Du siger at du har prøvet shell kommando. Hvordan?

Hvis nu du laver en shell kommando der hedder "NET START", så kommer en liste frem i konsolen. Hvis du skriver "NET START > services.txt", så bliver output overført til filen services.txt. Den fil kan du så via LotusScript åbne og gennemlæse.

Ville det løse dit problem?

Ok burde have beskrevet det mere detaljeret.
Vores netværks gut gav mig denne line:
SC query ephdxlatservice | FIND /i "RUNNING"

Fra en dosprompt virker det fint, den giver en kode tilbage som fortæller om servicen er kørende eller ej. Da jeg så ville køre dette fra en Notes knap skrev jeg følgende:
result =Shell({cmd /c dir > SC query ephdxlatservice | FIND /i "RUNNING" }, 1)

Men resultatet af det er "33" hvilket betyder Notes har exekveret scriptet korrekt. Ikke lige det jeg havde brug for at vide. Suk!

Har ikke prøvet det "Net start" før. Hvor i linien skulle jeg evt putte det ind ?

ja, sådan skal det jo være, cmd fejler jo ikke. find fejler ikke. derfor skal kode 33 leveres tilbage.

Prøv at tilføje " > status.txt" til din shell

result =Shell({cmd /c dir > SC query ephdxlatservice | FIND /i "RUNNING"  > status.txt}, 1)

Så dannes der en text-fil, ligesom jeg fortalte før. Størrelsen på denne fil er 0 hvis servicen ikke kører, mens den er ca. 42 bytes når servicen kører.

No go. Prøvede også at lave en
result = Shell("NET START > services.txt")
Men den virker heller ikke fra Notes. Måske er det et sikkerhedsspørgsmål. Hmmm.

jamen det virker jo som det skal. Shell-kommandoen genererer jo INGEN fejl. Alt virker. Hverken "NET START" eller "SC QUERY | FIND" fejler. Derfor kan du ikke nøjes med at undersøge result. result vil altid returnere det samme, medmindre din maskine ikke kender kommandoerne FIND, NET eller SC. Hvis du sletter FIND.EXE fra windows\system32 biblioteket, så vil du se at din SHELL returnerer noget andet til din variabel result.  Result vil ikke fortælle dig noget om det konsolprint, som du ser, bare om det lykkedes shell at udføre de angivne kommandoer.

Det er derfor jeg siger du skal "pipe" konsol-output over i en fil, f.eks. status.txt eller services.txt (kald den hvad du vil) og derefter undersøge denne fil.

Du kender joken, "Operationen lykkedes, patienten er død." Det er sådan cirka hvad du kan få ud af en Shell returkode

Jeg har opgivet at tjekke på result, som du skriver så giver den jo ikke fejl. Jeg kan bare ikke få en txt fil som output hvis jeg prøver Shell("Net start > services.txt") fra Notes (Knap i en mail).

Min kollega i USA kan godt....nøj hvor irriterende. Hans teori er at det måske er min adgang i Windows. Troede ellers jeg var administrator, men det må jeg vist dbl tjekke.

Har du ledt efter filen services.txt på din maskine? Måske ligger den bare ikke der hvor du tror den ligger. Måske skulle du kode en sti ind i kaldet, f.eks.

result = Shell("NET START > c:\temp\services.txt")

Så ved du da hvor den er!

Nothing, nada, ziltch, zip :-(
Lavede endda en søgning på filnavnet på alle drev. Det må altså være et adgangsspørgsmål, men hvis jeg ikke kan så kan brugerne heller ikke og så virker den løsning ikke.
Patienten er helt klart død!

Har du prøvet med at placere den et kendt sted, hvor du ved du har adgang? Notes-data? I Notes.ini er der med DIRECTORY variablen angivet, hvor dine Notes-data ligger. Der skal det være muligt at skrive på. Kan det være at dit LotusScript (en agent?) ikke har lov til at skrive til disk eller udføre restricted operations?

Jeg ved jeg kan skrive til c:\temp for det har jeg benyttet mig af mange gange. Jeg exekver scriptet i en knap i en memo, og siden jeg er manager på min egen mailbox der burde ikke være restriktioner.
Fatter det simpelthen ikke. Meget mærkeligt.

Bruger du Vista? Det system har det med at skjule alt muligt, siger dem der bruger det.

nå, nu blev jeg nysgerrig. Jeg kan heller ikke få filen til at manifestere sig. prøver lidt mere

Nope vi bruger XP Prof.

Sådan virker det:

result = Shell({cmd /c "NET START > c:\temp\services.txt"})

parameteren 1 til sidst kan du undlade, når du alligevel ikke skal se på resultatet.

Jeg ved ikke hvordan Danske udgaver af SC-kommandoen returnerer info, måske på dansk?

Det kan være at NET START er bedre. Altså noget i stil med

result =Shell({cmd /c "NET START| FIND /i ephdxlatservice  > c:\temp\status.txt"})

result =Shell({cmd /c "NET START| FIND /i "ephdxlatservice"  > c:\temp\status.txt"})

man skal lige huske de rigtige parenteser

jeg mener anførselstegn

Yes !! I love you jogii-bear. =P

Så er det kun lige at tjekke om txt filen er tom eller ej. Hvor svært kan det være ?!?
Giv et svar, så får du dine fuld fortjente point.

Så vil jeg gøre et forsøg, når nu du er så sød :-)

    result =Shell({cmd /c "NET START| FIND /i "ephdxlatservice"  > c:\temp\status.txt"})
    result = Filelen ( "c:\temp\status.txt" )
    Print result

Det er ikke altid at jeg ser filstørelsen er 0. Men prøv dig frem. Det burde virke.

Benytter mig af NotesStream til at tjekke filen. Det virker fint.

Tusind tak for hjælpen. Go weekend.