haodd 发表于 2010-6-4 17:33:41

局域网机器 在线 数量统计 【已解决】

本帖最后由 haodd 于 2010-11-12 23:26 编辑

ini文件如下内容
PCA001 =        192.168.1.1
PCA002 =        192.168.1.2
PCA003 =        192.168.1.3
PCA004 =        192.168.1.4
PCA005 =        192.168.1.5
PCA006 =        192.168.1.6
PCA007 =        192.168.1.7
PCA008 =        192.168.1.8
PCA009 =        192.168.1.9
PCA010 =        192.168.1.10
PCB001 =        192.168.2.1
PCB002 =        192.168.2.2
PCB003 =        192.168.2.3
PCB004 =        192.168.2.4
PCB005 =        192.168.2.5
PCB006 =        192.168.2.6
PCB007 =        192.168.2.7
PCB008 =        192.168.2.8
PCB009 =        192.168.2.9
PCB010 =        192.168.2.10求,获取在线主机数
如:PCA001、PCA005、PCA008、PCB003、PCB006在线
则显示 PCA=3       PCB=2


三楼是本人的做法,感觉效率不高,望有更好 更快的方案谢谢!

kn007 发表于 2010-6-4 17:44:08

个人提示:iniread、ping、StringLeft 、msgbox

haodd 发表于 2010-6-4 20:22:49

Opt("TrayAutoPause",1);禁止托盘暂停脚本
Opt("TrayMenuMode",1);隐藏托盘菜单

#include <Array.au3> ;声明需要使用数组

$var0 = IniReadSection("pc.ini", "PC")        ;读取文件到数组
Local $zx                ;声明一个数组
$zx = "上机总人数"       
For $i = 1 To $var0
                $var1 = IniRead("pc.ini", "PC", $var0[$i], "NotFound")        ;读取值
                $ping=Ping($var0[$i],10)               
                If Not @error Then
                        $quyu=StringLeft($var0[$i],4)                ;截取计算机名前缀
                        Select
                                Case $quyu=="PCA"
                                        $zx=$quyu
                                        $zx+=1
                                        $zx+=1
                                Case $quyu=="PCB"
                                        $zx=$quyu
                                        $zx+=1
                                        $zx+=1
                        EndSelect
                EndIf
                                               
Next

_ArrayDisplay($zx)        ;输出数组ini还需要加上字段
内容类似

PCA=IP
PCB=IP我的做法有点笨拙请各位不吝放出 更好的谢谢!

sz9013 发表于 2011-11-5 17:04:11

i不错,,,,,,

w60711 发表于 2016-9-29 13:32:19

這是好工具~

w60711 发表于 2016-9-29 13:35:38

這有幫助~!!

cg594 发表于 2018-10-19 18:00:26

学习学习学习学习学习学习
页: [1]
查看完整版本: 局域网机器 在线 数量统计 【已解决】