jswidorski
Programmer
Hello,
I have an Intranet web server setup using Basic and NT Authentication. I
want to use FileSystemObject to read a directories on a different server. I
keep getting a Path Not Found Error.
IIS Server: METESTWEB
Remote Server \\ABC\Directory\
The remote server has everyone permissions on it so anyone authenticate on it.
Am I doing something wrong? I can access it fine from my computer, others
cannot.
Also, is there a way to use just NT Authentication? I don't want my users
to have to key their user id and password.
ASP Code:
========
startFolder = "\\ABC\Directory"
Private Sub displayFolder(ByVal folderName)
Set fso = server.CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.GetFolder(server.MapPath(folderName))
For Each currentFolder In rootFolder.SubFolders
makeLink currentFolder.Path
For Each subFolder In currentFolder.SubFolders
On Error Resume Next
displayFolder subFolder.Path
Next
Next
Set rootFolder = Nothing
Set fso = Nothing
End Sub
Private Sub makeLink(ByVal pathName)
strLinkName = pathName
strLinkName = Replace(strLinkName, "\", "/")
aryDirItem = Split(strLinkName,"/")
strLinkName = Right(strLinkName, Len(strLinkName)-7)
Response.Write "<a href='documents.asp?docFolder=" & pathname &"'>" &
aryDirItem(ubound(aryDirItem)) & "</a><BR>"
End Sub
HTML Code Snippet:
=============
<TD width=300 valign=top><% displayFolder startFolder %></TD>
I have an Intranet web server setup using Basic and NT Authentication. I
want to use FileSystemObject to read a directories on a different server. I
keep getting a Path Not Found Error.
IIS Server: METESTWEB
Remote Server \\ABC\Directory\
The remote server has everyone permissions on it so anyone authenticate on it.
Am I doing something wrong? I can access it fine from my computer, others
cannot.
Also, is there a way to use just NT Authentication? I don't want my users
to have to key their user id and password.
ASP Code:
========
startFolder = "\\ABC\Directory"
Private Sub displayFolder(ByVal folderName)
Set fso = server.CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.GetFolder(server.MapPath(folderName))
For Each currentFolder In rootFolder.SubFolders
makeLink currentFolder.Path
For Each subFolder In currentFolder.SubFolders
On Error Resume Next
displayFolder subFolder.Path
Next
Next
Set rootFolder = Nothing
Set fso = Nothing
End Sub
Private Sub makeLink(ByVal pathName)
strLinkName = pathName
strLinkName = Replace(strLinkName, "\", "/")
aryDirItem = Split(strLinkName,"/")
strLinkName = Right(strLinkName, Len(strLinkName)-7)
Response.Write "<a href='documents.asp?docFolder=" & pathname &"'>" &
aryDirItem(ubound(aryDirItem)) & "</a><BR>"
End Sub
HTML Code Snippet:
=============
<TD width=300 valign=top><% displayFolder startFolder %></TD>