|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『楼 主』:
想用VBS来实现搜索局域网共享目录。能力不够请帮忙
下面的是代码是网上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
|
|
 2008-2-12 03:27 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
2 楼』:
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
我没有局域网。。。无法测试……
|
|
|
2008-2-12 04:42 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『第
3 楼』:
vbInformation + vbOkOnly,welcome_msg '这句还是报错
我在虚拟机上面把一个盘共享了，在我机器上能够搜索打开虚拟机共享的盘。
但是用VBS它还是检测不出来 没有可列出的驱动器
|
|
|
2008-2-12 17:31 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
4 楼』:
那句。。。你应该知道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
|
|
|
2008-2-12 17:39 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『第
5 楼』:
只是只是。我模似局域网有别的机器共享了盘，连打印机都共享了，运行这段VBS还是一样没有找到
|
|
|
2008-2-12 18:22 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
6 楼』:
那就是对象问题……我是单机没有办法测试。。。重新找找代码对象吧。
|
|
|
2008-2-12 18:26 |
|
|
zcnvnv
初级用户
积分 114
发帖 36
注册 2007-12-22
状态 离线
|
『第
7 楼』:
用for取ipconfig的本机IP前3段，再用for向*.*.*.1~255挨个view
代码懒的写了，自己动手丰衣足食。。
|
|
|
2008-2-12 18:26 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『第
8 楼』:
Wscrīpt.NetWork —> 提供网络连接和远程打印机管理的函数。（其中，所有scrīpting对象都存放在SCRRUN.DLL文件中，所有的Wscrīpt对象都存放在WSHOM.ocx文件中。）
找了一会，这个对象应该是正确的，
|
|
|
2008-2-12 18:46 |
|
