strComputer = InputBox ("Adresse IP ou Url à 'Pinger' ")
 
On Error Resume Next
msgbox ("Ping de : " 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 ("TEST OK : " & objStatus.Statuscode)
 else
msgbox ("TEST NOK : " & objStatus.Statuscode)
End If
Next

strComputer = "10.169.6.16"
 
'Ping version Win2000
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec( _
    "ping -n 2 -w 1000 " & strComputer)
strPingResults = LCase(objScriptExec.StdOut.ReadAll)
If InStr(strPingResults, "perdus = 0") Then
        msgbox (strComputer & " repond au ping !")
Else
    msgbox (strComputer & " na pas repondu au ping!")
End If

Computer=InputBox ("Nom de l'ordinateur à tester où rien pour celui-ci : ","IpConfig")
On error resume next 
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _ 
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE") 
If Err.Number<>0 Then 
     wscript.echo " - non accessible -" 
Else 
for each IPConfig in IPConfigSet 
     MsgBox " Configuration réseau de l'ordinateur " & computer & vbcrlf & vbcrlf & _ 
          " Carte " & vbtab & vbtab & " : " & IPConfig.Description & vbcrlf & _ 
          " adresse MAC " & vbtab & " : " & IPConfig.MACAddress & vbcrlf & _ 
          " adresse IP " & vbtab & " : " & IPConfig.IPAddress(0) & vbcrlf & _ 
          " DNSHostName " & vbtab & " : " & IPConfig.DNSHostName _ 
          ,,"Configuration  " 
     Next 
End If