如何用VBA取得局域网上的计算机名[有新探讨]

灰袍法师 · 发表于 2011-7-16 18:40

原帖由 ming668 于 2011-7-16 17:37 发表
我测了时间
6楼附件超快的，只要0.34375秒。完全符合我的要求。
从技术角度看，法师是否可试下一句的批处理net view>netnames.txt, 只要0.09375秒，就是多了前边三行和最后一行“命令成功完成。”，还有网络解 ...

那个BAT也可以改为
@echo off &setlocal enabledelayedexpansion
echo. > netnames.txt
for /f "tokens=1" %%1 in ('net view') do  (
   set "var=%%1"
   if "!var:~0,2!"=="\\" (
         set "var=!var:~2!"
         echo !var! >>netnames.txt
   )
)
这样它的输出结果就去掉网络解释名了，关键是 tokens=1 ，意思是只保留每行的第一段字符串，默认为被空格分割。

用你给的链接 figfig 所用的 wsscript.shell方法去调用BAT是可以的，而且比较方便，可以直接把输出结果给VBA的字符串变量

应该节约内存，但也还是要自己去截取IP，主机名。

而且.Exec方法虽然可以返回一个VBA可以访问的对象，但是不能同时执行255个 ping，所以没用

.Run方法倒是可以同时执行 255个 ping，不过没法把结果传递给VBA

奇怪的是，.Exec方法也不能调用 net view 命令，只能间接执行BAT去调用。

不知道附件是不是你要的东东。

[ 本帖最后由灰袍法师于 2011-7-16 19:28 编辑 ]

ljw990485 · 发表于 2011-7-17 18:27

原帖由 灰袍法师 于 2011-7-16 16:35 发表

我的天，这个版本的 ping 输出结果也太怪异了吧，主机名前面为毛要有一串反过来的IP地址吖，而且带了域名arpa。。。。。。

算了，每个人自己根据自己的ping输出结果来修改VBA的截取代码吧，或者自己用公截取关 ...

那是dns服务器访反解的结果

灰袍法师 · 发表于 2011-7-17 23:57

原帖由 ljw990485 于 2011-7-17 18:27 发表
那是dns服务器访反解的结果

哦，thank you

看来靠ping命令要面对的格式问题太多了。

AVEL · 发表于 2011-7-18 06:35

法师的又一大作品么。。真不错。
感谢分享作品了。

ming668 · 发表于 2011-7-18 09:45

原帖由 灰袍法师 于 2011-7-16 18:40 发表
那个BAT也可以改为
@echo off &setlocal enabledelayedexpansion
echo. > netnames.txt
for /f "tokens=1" %%1 in ('net view') do  (
   set "var=%%1"
   if "!var:~0,2!"=="\\" (
         set ...

1、法师6楼和61楼的附件都符合我最初问题的愿意，速度也很快，我最初也是想通过数据有效性做下拉框，后来我是想能否做到直接赋值给一个下拉框控件（应该叫复合框吧），可能是我没说清楚，不过做学生的也不能什么都问，我还是先找一找，思考思考不行再问老师，再次谢谢法师。
2、我用figfig所用的方法能够直接调用net view ，不用批处理，并且能够用MSGBOX得到结果。只是结果好象没有全部显示出来。
代码如下：

Sub Sample1()
Dim WSH, wExec, sCmd As String, Result As String
Set WSH = CreateObject("WScript.Shell")
Set wExec = WSH.Exec("net view")
Result = wExec.StdOut.ReadAll
MsgBox Result
Set wExec = Nothing
Set WSH = Nothing
End Sub

复制代码

[ 本帖最后由 ming668 于 2011-7-18 11:36 编辑 ]

灰袍法师 · 发表于 2011-7-18 15:37

原帖由 ming668 于 2011-7-18 09:45 发表
Result = wExec.StdOut.ReadAll
MsgBox Result

显示不全是什么意思？？？

你在 MsgBox Result 这一行按F9，程序就会在这一句暂停，把result这个单词高亮并拖拉入监视窗口，就可以看到result里面的内容

用监视窗口可以很方便地调试你的程序。

[ 本帖最后由灰袍法师于 2011-7-18 17:34 编辑 ]

ming668 · 发表于 2011-7-18 17:50

原帖由 灰袍法师 于 2011-7-18 15:37 发表

显示不全是什么意思？？？

你在 MsgBox Result 这一行按F9，程序就会在这一句暂停，把result这个单词高亮并拖拉入监视窗口，就可以看到result里面的内容

用监视窗口可以很方便地调试你的程序。

按照法师的指导，套用了apollokk 的函数，我成功的把计算机名放入了复合框控件，但还有点问题没能解决。
代码如下：

Private Sub UserForm_Initialize()
Dim WSH, wExec, sCmd As String, Result As String
Dim Upper
Set WSH = CreateObject("WScript.Shell")
Set wExec = WSH.Exec("net view")
'delay (7000)
Result = wExec.StdOut.ReadAll
Upper = myReplace(Result) '先用正则表达式把多个空白符处理成一个，再Split
Upper = Split(Upper)
Set wExec = Nothing
Set WSH = Nothing
ComboBox1.List = Upper
End Sub

复制代码

Function myReplace(ByVal s As String) As String
'apollokk写的函数
'将字符串中的多个连续空白符成一个
'调用：str=myReplace(ostr)
myReplace = ""
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.IgnoreCase = True
.Pattern = "\s+" '查找空白字符,空格、制表符什么的
myReplace = .Replace(s, " ")
End With
End Function

复制代码

最后的结果就是数组中下列多余的数据不知怎么去掉。
1、服务器名称
2、注释
3、-----------------------
4、网络解释名(有多个）
5、\\
6、命令成功完成
能否再帮忙解决下吗？

[ 本帖最后由 ming668 于 2011-7-18 18:01 编辑 ]

minjiwei · 发表于 2011-7-18 18:17

看不懂bat文件，解释一下行不？

灰袍法师 · 发表于 2011-7-18 18:44

这个附件直接运行 net view ，不再需要bat了

但是要自己写代码处理提取主机名的工作。

120HYH · 发表于 2011-7-18 20:00

要是能得到IP，MAC最好了。

		自动登录	找回密码
密码			免费注册

[已解决] 如何用VBA取得局域网上的计算机名[有新探讨]