hi, all member ....
i have 2 server.......
first server is 192.168.0.10
second server is 192.168.0.57

my code inside first server..
but i want access all share folder in second server......

so, how a step i must do to fully access folder....
after run code like below, "path no found" error message display???
my code have any problem?

<%
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim rootFolder
Set rootFolder = fso.GetFolder("\\192.168.0.57")
Dim subFolders
Set subFolders = rootFolder.SubFolders
For Each folder in subFolders
response.write "<form action='showfolder.asp' method='post'>"
Response.Write folder.Name
Response.write "</form>"
Next

Set subFolders = Nothing
Set rootFolder = Nothing
Set fso = Nothing
%>

You are using UNC syntax, so try the actual server name instead of its IP address:

'====================================
Set rootFolder = fso.GetFolder("\\ServerName\ShareName")
'====================================

In your current statement, there is no Path specified. Using ServerName and ShareName will get your path.



mmcdonal

Hi,

   It occurs to me that you may have security issues with this remote access. Try mapping the drive, getting data, and unmapping like this:

'===============================
Set objNetwork = WScript.CreateObject("WScript.Network")
   objNetwork.MapNetworkDrive "x:", "\\ServerName\ShareName", _
     strUserName, strPassword

'your code here

objNetwork.RemoveNetworkDrive "x:"
'===============================

   This will allow you to access the drive with the credentials you need if your users don't have the proper credentials.

mmcdonal

thank mmcdonal,
i just a beginning programmer...
can u teach me a step by step....

here, i want view all share folder for 192.168.0.57(server address)
how to i solve it.....