Discussion :

[duc@ti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[duc@ti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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