VB中如何判断局域网中某个共享能够访问

想编写一个批量向网络中多台计算机复制文件的程序，代码能够正常运行，现在的问题是该程序无法识别某个共享是存在的（比如某台机器没有开机），请问该用什么样的代码实现在复制操作前... 想编写一个批量向网络中多台计算机复制文件的程序，代码能够正常运行，现在的问题是该程序无法识别某个共享是存在的（比如某台机器没有开机），请问该用什么样的代码实现在复制操作前先判断目标网络共享是存在的？？展开

 我来答

1个回答

#合辑# 机票是越早买越便宜吗？

落叶l无情
2016-05-04 · TA获得超过1417个赞

知道大有可为答主

回答量：1372

采纳率：0%

帮助的人：1424万

我也去答题访问个人页

关注

展开全部

最简单的方法是用 on error resume next 忽略错误，简单快捷。先判断反而效率不高，因为检测共享是否存在是需要等待目标电脑反馈的，这个需要时间。实在想判断，可以用cmd命令中的net view，或者只检测是否开机用ping

追问

net view怎么用呢，我在代码中如何判断net view的返回值呢

追答

Set ws = CreateObject("WScript.Shell")
'这里是为了隐藏运行net view时的黑框
'--------------------------

host = WScript.FullName
if LCase( right(host, len(host)-InStrRev(host,"\")) ) = "wscript.exe" then
    ws.run "cscript """ & WScript.ScriptFullName & chr(34), 0
    WScript.Quit
end if
'-------------------------
ip="192.168.1.123"

cmdstr="net view \\" & ip

set oexec = ws.Exec( cmdstr)
rt=oExec.StdOut.ReadAll    'rt就是运行net view 得到的结果字符串，然后根据结果字符串的特征来判断是否存在共享，以及取得共享的路径