Question : Login script error. Access Denied

We recently purchased an iPrism web filtering appliance. The appliance can
generate a log in script to be run from GPO (2003) to the clients (XP SP2) at log in.

***
' Iprism Logon Script
'
' This script is intended to run on end-user workstations. Its purpose is to send HTTP-GET requests
' to iPrism. These requests inform iPrism of the exact time of when a user has logged on to a workstation,
' and will also let the iPrism know that the user is still logged on to a workstation over periods of time.
' By interpreting the HTTP-GET requests and the workstation IP address, iPrism will know the username from
' each workstation from initial logon until final logoff.
'
' URL of iPrism
URL="http://<ip iprism>:80/auth-bin/nph-xauth?URL=null"
'
' Creates the 'xml' object, used to send the HTTP-GET requests to the iPrism URL
Set xml = CreateObject("MSXML2.XMLHTTP.3.0")
'
' Entry point to the Loop, contents of which are executed after every sleep
do
'
' COnfigures the 'xml' object to the iPrism URL
xml.Open "GET", URL, False
'
' Actually Sends the HTTP-GET request and returns the data:
xml.Send
'
' Tells the loop to sleep, in milliseconds
WScript.Sleep(1200000)
'
' Tells this script to loop, starting with the 'do'
loop
*
The script attempts to run on the machines when the users log in however,
some of the users are getting an error that says the following:

_
Script: C:\<location of the script>
Line: 22
Char: 3
Error: Access is denied.

Code: 80070005
Source: MSXML3.dll
_

Any help would be greatly appreciated.

yackko

Answer : Login script error. Access Denied

Well, you could try creating an Internet Explorer object first. Here's a sample. I included a couple lines for experimenting. If the script works, you could set web.visible to false and the user wouldn't see the browser open.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:



Set web=CreateObject("InternetExplorer.Application")

'set false to experiment:
web.visible=True

web.Navigate "http://www.google.com"

While web.busy
	wscript.sleep 100
Wend


URL="http://www.yahoo.com"
Set xml = CreateObject("MSXML2.XMLHTTP.3.0")
xml.Open "GET", URL, False
xml.Send
resp = xml.responseText

'uncomment to experiment:
'web.quit

msgbox resp,vbInformation,"Please hit CTRL+C to copy this"