All pastes #421243 Raw Edit

Stuff

public text v1 · immutable
·published 2007-04-02 18:47 UTC
rendered paste body
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