Thanks for your replies.
My settings are set to Internet Explorer Defaults.
I have created simple HTML pages that have basic VBScripts and when I load the page Internet Explorer DOESNÒT display the interaction message box.
This what I get with my current code.
"An ActiveX control on this page might be unsafe to interact with other parts of this page. Do you want to allow this interaction?"
''''''''''''''
<html>
<head>
<SCRIPT language = "vbscript">
sComputerName = "cougar" '<< change to your pc name
Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
oShell.Run("CMD /c ping -n 1 -w 1 " & sComputerName & ">d:\ping.txt"),0,TRUE '<< change drive letter
Set ofile = fso.OpenTextFile("d:\ping.txt", 1) '<< change drive letter
If InStr(oFile.ReadAll, "Reply from") Then
location.href = "http://www.msn.com"
Else
location.href = "http://www.lboro.ac.uk"
End If
ofile.close
set ofile = fso.getfile("d:\ping.txt") '<< change drive letter
ofile.delete
</script>
</head>
<body>
</body>
</html>
''''''''''''''''''
This has led me to believe that part of my code is the problem, but unfortunately I cant define which parts.
Does anyone have experience with this sort of problem?
If you need to test out my code, I have listed above, you will need to change some parts to work on your PC, I have commented where the change needs to be
Kind Regards