Dim WSHShell
Dim Value
Set WSHShell = CreateObject("WScript.Shell")
Value = WSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Management\ARPCache\NomDeVotreProgramme\SlowInfoCache")
if Value(24) < 3 then
msgbox "Rarement"
elseif Value(24) < 10 then
msgbox "Occasionnellement"
elseif Value(24) >=10 then
msgbox "Fréquemment"
end if
Set WSHShell = nothing