[VBS] - Inventaire fichier present sur les postes du réseau

Bonjour,
Je suis en train de constituer un inventaire dans une feuille Excel sur l'existence d'un fichier des postes du réseau.
Ma méthode est très lente puisqu'elle teste l'existence d'un répertoire sur le poste destination, n'y aurait -il pas une autre méthode pour aller plus vite ? Par exemple de faire d'abord un ping de la machine ?
Merci !

Code:

---

1 2 3 4 5 6 7 8 9

Do While oxl.activecell.value <> "" wkstaCible = oxl.activecell.value folderspec = "\\" & wkstaCible & "\C$\MONREPERTOIRE" If (fso.FolderExists(folderspec)) Then call cp (wkstaCible) end if oxl.activecell.offset(1,0).activate Loop

---

Finalement, j'ai trouvé cette procédure qui marche bien.
C'est bien la méthode la plus rapide ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'========================================================================== ' Fonctions et procédures   ' Fonction qui reçoit une adresse IP et renvoie present si le poste est présent sur le réseau ' ou absent s'il n'y a pas de réponse au ping Function TestAdrIp(strIpCible) On Error Resume Next Const WaitOnReturn = TRUE 'on attend la fin de l'exécution Const WindowStyle = 0 'on n'ouvre pas de fenêtre Dim oShell, oExec, strPingResults   Set oShell = CreateObject("WScript.Shell") Set oExec = oShell.Exec("ping -n 1 -w 1000 " & strIpCible) strPingResults = LCase(oExec.StdOut.ReadAll) If InStr(strPingResults, "ponse de " & strIpCible) Then TestAdrIp = "present" Else TestAdrIp = "absent" End If End Function

---