/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Checke om IIS er oppe?
Fra : adam


Dato : 17-07-01 07:56

Hej alle sammen

Jeg har lige fået en opgave, hvor jeg skal checke om mit firma's IIS er
oppe og køre, og hvis det ikke er skal jeg restarte den.
Jeg tænker på at bruge Inet Control komponenten til denne opgave, jeg
ved ikke om det er det fedeste at bruge, men hvordan kan jeg checke om
sittet eksistere eller om IIS'en er nede.
Hvis du har nogle gode forslag tages de imod med kyshånd.

Med venlig hilsen

Adam

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"


 
 
Bjarke Walling Peter~ (22-07-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 22-07-01 16:35

adam skrev:
> Jeg har lige fået en opgave, hvor jeg skal checke om mit firma's IIS er
> oppe og køre, og hvis det ikke er skal jeg restarte den.
> Jeg tænker på at bruge Inet Control komponenten til denne opgave, jeg
> ved ikke om det er det fedeste at bruge, men hvordan kan jeg checke om
> sittet eksistere eller om IIS'en er nede.
> Hvis du har nogle gode forslag tages de imod med kyshånd.

Jeg vil ikke mene at Inet er en ret professionel måde at tjekke det på, men
den kan da vel bruges.
Der er to måder at gøre det på - den første er vist den bedste Faktisk
ved jeg ikke om der er forskel i de to (i disse eksempler), men jeg ved at
den første kan udbygges til at fortælle lidt mere om hvad der gik galt under
hentningen af "http://server/".
Foresten så er ServerIP="localhost" hvis det er serveren på den computer,
som programmet bliver afviklet på, du vil checke.

Dim ReturnValue As Integer
Private Function CheckServer(ServerIP As String) As Boolean
Inet1.Execute "http://" & ServerIP, "GET /"
While Inet1.StillExecuting
DoEvents
Wend
CheckServer = (ReturnValue = 12)
End Function
Private Sub Inet1_StateChanged(ByVal State As Integer)
ReturnValue = State
End Sub

.... og her den anden (lette) måde:

Private Function CheckServer(ServerIP As String) As Boolean
CheckServer = (Inet1.OpenURL("http://" & ServerIP & "/") <> "")
End Function

- Bjarke Walling Petersen



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste