Bonjour a tous,
je m'arrache les cheveux sur un problème que je n'arrive pas a comprendre. Je souhaiterais pingé un serveur et récupérer la réponse. Cette portion de code le fait très bien en local sur ma machine :
Mais dès que j'exporte le script sur ma machine de prod , il ne fonctionne plus. La 1ere msgbox ne me renvois meme plus le statusCode du ping, ce qui signifie que la requete ne s'effectue meme pas. Au final, j'ai toujours un résultat "TEST OK"...
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 strComputer = "10.169.6.16" On Error Resume Next msgbox (strComputer) Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'") For Each objStatus in objPing If objStatus.Statuscode = 0 Then msgbox (objStatus.Statuscode) msgbox ("TEST OK") else msgbox (objStatus.StatusCode) msgbox ("TEST NOK") End If Next
Ma machine de test est un WinXP et la machine de prod un Winserveur 2000. Y aurait il un rapport? Comment trouver une alternative si cette méthode ne fonctionne pas sous Win2000?
Merci pour votre aide et bonne journée...
Partager