Part of script only works on my own comp

[walle]

EDIT:

Somehow the script works on the second xp based computer. I don't

know why, I needed to run the Ie in visible mode the first time, then

it worked. Anyhow, still problems with vista.

This part of my script does only work on my computer,

the one I'm scripting on. Tried vista ultimate and another

windows xp computer. On the second Xp comp the error msg show

"No '.torrent' links found". It dosnt open internet explorer, even if I

use $oIE = _IECreate($url, 0).

On the other hand, the vista comp executes internet explorer

and then does nothing.

Func RSS()
$Readrss = _guictrllistgettext($listbox2,0)
$url = "http://www.swedvdr.org/browse.php"
$oIE = _IECreate($url, 0,0)
$oForm = _IEFormGetCollection($oIE, 0)
$oSearchInput = _IEGetObjByName($oIE, 'Search')
_IEFormElementSetValue($oSearchInput , $Readrss)
_IEFormSubmit($oForm)
$colLinks = _IELinkGetCollection($oIE)
_GUICtrlListAddItem($List1,"Laddar ner:" & $Readrss & ".torrent")

$sURL = ""
For $oLink In $colLinks
    $sURL = $oLink.href
    If StringInStr($sURL, "download.php?") Then ExitLoop
Next

If $sURL <> "" Then
DirCreate(@HomeDrive & "\Temp\Torrent\")
$Torrentsave = (@HomeDrive & "\Temp\Torrent\download.torrent")
INetGet($sURL, $Torrentsave)
_GUICtrlListAddItem($List1,"Executar Utorrent")
ShellExecute($Torrentsave)
Else
    MsgBox(16, "Error", "No '.torrent' links found.")
_GUICtrlListAddItem($List1,"Error, Ingen .torrent funnen")
EndIf

Edited October 6, 2007 by walle

[MadBoy]

Try adding..

; This script requires full Administrative  rights
#requireadmin

might work.