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

haodd

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

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

haodd

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

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

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

_ArrayDisplay($zx)        ;输出数组

ini还需要加上字段
内容类似

[PC]
PCA=IP
PCB=IP

我的做法有点笨拙  请各位不吝放出 更好的  谢谢！

sz9013

i不错，，，，，，

w60711

這是好工具~

w60711

這有幫助~!!

cg594

学习学习学习学习学习学习