标题:
想用VBS来实现搜索局域网共享目录。能力不够请帮忙
[打印本页]
作者:
hackhd
时间:
2008-2-12 03:27
标题:
想用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
作者:
slore
时间:
2008-2-12 04:42
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
我没有局域网。。。无法测试……
作者:
hackhd
时间:
2008-2-12 17:31
vbInformation + vbOkOnly,welcome_msg '这句还是报错
我在虚拟机上面把一个盘共享了,在我机器上能够搜索打开虚拟机共享的盘。
但是用VBS它还是检测不出来 没有可列出的驱动器
作者:
slore
时间:
2008-2-12 17:39
那句。。。你应该知道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
作者:
hackhd
时间:
2008-2-12 18:22
只是只是。我模似局域网有别的机器共享了盘,连打印机都共享了,运行这段VBS还是一样没有找到
作者:
slore
时间:
2008-2-12 18:26
那就是对象问题……我是单机没有办法测试。。。重新找找代码对象吧。
作者:
zcnvnv
时间:
2008-2-12 18:26
用for取ipconfig的本机IP前3段,再用for向*.*.*.1~255挨个view
代码懒的写了,自己动手丰衣足食。。
作者:
hackhd
时间:
2008-2-12 18:46
Wscrīpt.NetWork —> 提供网络连接和远程打印机管理的函数。(其中,所有scrīpting对象都存放在SCRRUN.DLL文件中,所有的Wscrīpt对象都存放在WSHOM.ocx文件中。)
找了一会,这个对象应该是正确的,
欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/)
Powered by Discuz! 2.5