Vérifier la disponibilité d'un domaine active directory

Bonjour à tous,

Tout est dans le titre.

J'ai une adresse de serveur active directory de laquelle je fais des requêtes et je tire des infos mais je voudrais une fonction qui vérifie avant exécution que le serveur est bien disponible.

Est-ce que quelqu'un saurait m'aider?

Merci d'avance!

Bonjour,

Est-ce que ceci pourrait aider > https://forum.excel-pratique.com/excel/verifier-si-chemin-reseau-accessible-62244#p351012 ...

ric

Bonjour Ric,

Merci pour la réponse.

Malheureusement j'ai déjà testé et ca n'est pas considéré comme un chemin réseau, ni un site internet.

Bonjour FunkyFoenky

Peut-être avec

Function GetPingResult(Host)
   Dim objPing As Object
   Dim objStatus As Object
   Dim strResult As String

   Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
       ExecQuery("Select * from Win32_PingStatus Where Address = '" & Host & "'")

   For Each objStatus In objPing
      Select Case objStatus.StatusCode
         Case 0: strResult = "Connected"
         Case 11001: strResult = "Buffer too small"
         Case 11002: strResult = "Destination net unreachable"
         Case 11003: strResult = "Destination host unreachable"
         Case 11004: strResult = "Destination protocol unreachable"
         Case 11005: strResult = "Destination port unreachable"
         Case 11006: strResult = "No resources"
         Case 11007: strResult = "Bad option"
         Case 11008: strResult = "Hardware error"
         Case 11009: strResult = "Packet too big"
         Case 11010: strResult = "Request timed out"
         Case 11011: strResult = "Bad request"
         Case 11012: strResult = "Bad route"
         Case 11013: strResult = "Time-To-Live (TTL) expired transit"
         Case 11014: strResult = "Time-To-Live (TTL) expired reassembly"
         Case 11015: strResult = "Parameter problem"
         Case 11016: strResult = "Source quench"
         Case 11017: strResult = "Option too big"
         Case 11018: strResult = "Bad destination"
         Case 11032: strResult = "Negotiating IPSEC"
         Case 11050: strResult = "General failure"
         Case Else: strResult = "Unknown host"
      End Select
      GetPingResult = strResult
   Next
   Set objPing = Nothing
End Function

@+

Bonjour,

Et ceci aidera-t-il ?

Sub VerificationFichierSurInternet()
'par Excel-Malin.com ( https://excel-malin.com )

Dim FichierTest As String
FichierTest = "http://www.google.be//images/branding/googlelogo/2x/googlelogo_color_120x44dp.png" 'logo de Google

If URLexiste(FichierTest) = True Then
    MsgBox "Le fichier existe..."
Else
    MsgBox "Le fichier n'existe pas ou n'est pas accessible..."
End If

End Sub

ric

Bonjour BrunoM45,

Ca fonctionne nickel merci ++

Merci également ric d'avoir pris le temps de répondre à mon sujet.