中国DOS联盟

下面的是代码是网上copy来的。还有报错
welcome_msg = "网络连接搜索测试"
Set WSHNetwork = WScript.CreateObject("WScript.Network") '创建一个网络对象
Set oPrinters = WshNetwork.EnumPrinterConnections '’创建一个网络打印机连接列表
WScript.Echo "Network printer mappings:"
For i = 0 to oPrinters.Count - 1Step2 ' ’显示网络打印机连接情况
WScript.Echo "Port "&oPrinters.Item(i)& " = " & oPrinters.Item(i+1)
Next
Set colDrives = WSHNetwork.EnumNetworkDrives '　 ’创建一个网络共享连接列表
If colDrives.Count = 0 Then
MsgBox "没有可列出的驱动器。"
vbInformation + vbOkOnly,welcome_msg
Else
strMsg = "当前网络驱动器连接: " &CRLF
Fori=0To colDrives.Count - 1 Step 2
strMsg = strMsg & Chr(13)&Chr(10)&colDrives(i) & Chr(9)&colDrives(i+1)
Next
MsgBox strMsg, vbInformation + vbOkOnly,
welcome_msg '显示当前网络驱动器连接
End If

welcome_msg = "网络连接搜索测试"
Set WSHNetwork = WScript.CreateObject("WScript.Network") '创建一个网络对象
Set oPrinters = WshNetwork.EnumPrinterConnections '创建一个网络打印机连接列表
WScript.Echo "Network printer mappings:"
For i = 0 To oPrinters.Count - 1 Step 2 '显示网络打印机连接情况
WScript.Echo "Port " &oPrinters.Item(i) & " = " & oPrinters.Item(i + 1)
Next
Set colDrives = WSHNetwork.EnumNetworkDrives '创建一个网络共享连接列表
If colDrives.Count = 0 Then
MsgBox "没有可列出的驱动器。"
vbInformation + vbOkOnly,welcome_msg
Else
strMsg = "当前网络驱动器连接: " & vbCrLf
For i = 0 To colDrives.Count - 1 Step 2
strMsg = strMsg & Chr(13) & Chr(10) & colDrives(i) & Chr(9) & colDrives(i + 1)
Next
MsgBox strMsg, vbInformation + vbOkOnly,welcome_msg '显示当前网络驱动器连接
End If

我没有局域网。。。无法测试……

vbInformation + vbOkOnly,welcome_msg '这句还是报错

我在虚拟机上面把一个盘共享了，在我机器上能够搜索打开虚拟机共享的盘。

但是用VBS它还是检测不出来 没有可列出的驱动器

那句。。。你应该知道msgbox的参数吧

welcome_msg = "网络连接搜索测试"
Set WSHNetwork = WScript.CreateObject("WScript.Network") '创建一个网络对象
Set oPrinters = WshNetwork.EnumPrinterConnections '创建一个网络打印机连接列表
WScript.Echo "Network printer mappings:"
For i = 0 To oPrinters.Count - 1 Step 2 '显示网络打印机连接情况
WScript.Echo "Port " &oPrinters.Item(i) & " = " & oPrinters.Item(i + 1)
Next
Set colDrives = WSHNetwork.EnumNetworkDrives '创建一个网络共享连接列表
If colDrives.Count = 0 Then
MsgBox "没有可列出的驱动器。",vbInformation + vbOkOnly,welcome_msg
Else
strMsg = "当前网络驱动器连接: " & vbCrLf
For i = 0 To colDrives.Count - 1 Step 2
strMsg = strMsg & Chr(13) & Chr(10) & colDrives(i) & Chr(9) & colDrives(i + 1)
Next
MsgBox strMsg, vbInformation + vbOkOnly,welcome_msg '显示当前网络驱动器连接
End If

只是只是。我模似局域网有别的机器共享了盘，连打印机都共享了，运行这段VBS还是一样没有找到

那就是对象问题……我是单机没有办法测试。。。重新找找代码对象吧。

用for取ipconfig的本机IP前3段，再用for向*.*.*.1~255挨个view
代码懒的写了，自己动手丰衣足食。。

Wscrīpt.NetWork —> 提供网络连接和远程打印机管理的函数。（其中，所有scrīpting对象都存放在SCRRUN.DLL文件中，所有的Wscrīpt对象都存放在WSHOM.ocx文件中。）

找了一会，这个对象应该是正确的，