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