asked on

FSO impersonation, ADODB.Stream or anything that will work

I am trying to grab an image using FSO and it is accross the network on another server. This is what i have thus far:

__________________________________________________________________________________________
Dim objFSO, objFile
Const FILE_GRABBING = "\\TheServer\client_data\ClientFolder\pics\1560639_1.JPG"

set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(FILE_GRABBING)) Then
            Set objFile = objFSO.GetFile(FILE_GRABBING)
            Response.Write("2-Got It<br>")
            Response.Write("FILE_GRABBING = " & FILE_GRABBING & "<br>")
      Else
            Response.Write("2-Notta<br>")
      Response.Write("FILE_GRABBING = " & FILE_GRABBING & "<br>")
      End If


set objFSO = nothing
_________________________________________________________________________________________

I know the image is there and i am it is not grabbing it. I need to use impersonation to get to the server i am grabbing the images from but i did not think that i needed to do that when using FSO.

How can i accomplish this using FSO and impersonation.
_______________________________________________________________
I also tried ADODB.Stream but i keep getting this error:

ADODB.Stream error '800a0bba'

File could not be opened.

_______________________________________________________________

I just need to get anything to work without using a 3rd party componant.

Any ideas from anyone.

ASKER CERTIFIED SOLUTION

kmorris1186

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Lantrax

ASKER

The website is on a server that is on the same network as the server which holds the images. The problem is when i try to get the images do display on the browser. I set up an account on the image server and can use impersonation to get into that acount to get the images through the network for the browser.

My problem is that i can't seem to get FSO to use impersonation nor can i get ADODB to use impersonation.

Do you know how to do either of these?

kmorris1186

hmm. sorry. I do not.

Marv-in

use xml:

Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", WebUrl, False
objHTTP.Send
set objHTTP = nothing