Set nw = WScript.CreateObject("WScript.Network")
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://www.boursorama.com")
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (1000)
Set dct = ie.Document
num=0
for each anc in dct.getElementsByTagName("A")
if instr(anc.href,"infos/actualites/detail_")>0 then
num=num+1
if num=2 then 
anc.innertext="Les abonnés de Boursorama ont finalement élu " & nw.UserName & " personnalité de l'année " & year(now)
anc.href="javascript:alert(""accès réservé aux abonnés !"")"
exit for
end if
end if
next
ie.Visible = True
wscript.quit
set nw=nothing
set dct=nothing
set ie=nothing
set anc=nothing