<请教>VBA用FSO读取远程电脑上的文本文件出现拒绝访问的问题？

Question

请教高手：如何用VBA连接远程电脑某个目录下的txt文件？？譬如远程某个IP的D盘下的文本文件如何读取？请给个链接或者例子提点一下，谢谢～～～～
用FSO方法调试时提示: 运行时错误'70'，拒绝的权限。Set f = fs.OpenTextFile("\\10.86.35.28\D$\test.txt", 1, TristateFalse)
我已经将对方电脑的文件夹权限设置成everyone，完全控制了，是不是还需要更改对方电脑的什么设置才能有权限访问？
或者是需要对方电脑的用户名和密码等等信息？？？请高手指条明路啊，谢谢了～～

Answer 1

试试将文件夹权限设置成Guest，完全控制

Answer 2

弱问：
如何开放Guest？
我在文件夹的共享与安全里好像看不到这一项，不知道是不是公司里的电脑被IT部门设置没了。

Answer 3

这个我从网上查过了也都试过了，去掉简单文件共享后，仍然看不到guest....

Answer 4

ServerShare = "\\192.168.3.56\d$"
UserName = "somedomain\someuser"
Password = "somepassword"Set NetworkObject = CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, PasswordSet Directory = FSO.GetFolder(ServerShare)
For Each FileName In Directory.Files
WScript.Echo FileName.Name
NextSet FileName = Nothing
Set Direct = Nothing
Set FSO = NothingNetworkObject.RemoveNetworkDrive ServerShare, True, FalseSet ShellObject = Nothing
Set NetworkObject = Nothing

Answer 5

更正上帖ServerShare = "\\192.168.3.56\d$"
UserName = "somedomain\someuser"
Password = "somepassword"Set NetworkObject = CreateObject("WScript.Network")NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, PasswordSet FSO = CreateObject("Scripting.FileSystemObject")
    Set Directory = FSO.GetFolder(ServerShare)
        For Each FileName In Directory.Files
            WScript.Echo FileName.Name
        Next
        Set FileName = Nothing
    Set Directory = Nothing
Set FSO = NothingNetworkObject.RemoveNetworkDrive ServerShare, True, FalseSet NetworkObject = Nothing