找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › [已解决]使用WMI获指列表中PC的硬盘信息
12下一页
返回列表 发新帖
查看: 9007|回复: 15

[系统综合] [已解决]使用WMI获指列表中PC的硬盘信息

 火 [复制链接]
fuinei
发表于 2012-5-10 17:14:18 | 显示全部楼层 |阅读模式
本帖最后由 fuinei 于 2012-5-17 12:08 编辑

各位好，请问如何通过WMI远程获取指定计算机列表的硬盘信息呢？
如：
1、运行帐号已经具备指定PC的本机管理员权限
2、指定的PC列表
PC1
PC2
PC3
...
3、返回结果包括
计算机名,IP地址,当前系统登录用户,硬盘物理空间大小,硬盘分区数量,C盘分区容量/C盘剩余空间,....
如：PC1,192.168.1.1,test,500G,50G/30G,225G/100G,225G/100G....
IP地址, 管理员, 计算机, 如何, 硬盘

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
502762378
发表于 2012-5-10 22:28:33 | 显示全部楼层
越写越觉得自己二，那么就二到底吧
开始套用了个用WMI时判断PC情况的框架，为了做到简化，少用了些对象集合
#include <file.au3>
#include <array.au3>
Local $aResult[1][1],$aRecord
$file = @ScriptDir&"\result.ini"
If Not _FileReadToArray(@ScriptDir&"\list.txt",$aRecord) Then;读取文件得到数组
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
For $x = 1 to $aRecord[0]
$size = 0
$DriveTypeoffnumber = 0
If Ping ($aRecord[$x],250)        Then        
    If DriveStatus( "\"&$aRecord[$x]&"\c$" ) = "UNKNOWN" Then;有些PC可能IP冲突，也有可能没有管理员权限，暂且定义为防火墙
            IniWrite($file,"info",$aRecord[$x],"Firewall")
        Else
                $aResult[0][0] += 1
                Redim $aResult[$aResult[0][0] + 1][7]
        Local $objWMIService = ObjGet("winmgmts:\" & $aRecord[$x] & "\root\CIMV2")
                $colItems1 = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL")
                $colItems2 = $objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk where Description='本地固定磁盘'", "WQL")
                For $objItem1 In $colItems1
                        $aResult[$aResult[0][0]][0] = $aRecord[$x];电脑名
                        $aResult[$aResult[0][0]][1] = TCPNameToIP($aRecord[$x]);解析出的IP
                        $aResult[$aResult[0][0]][2] =$objItem1.UserName;登录的user

            Next
                For $objItem2 In $colItems2
                        $Size += $objItem2.Size
                        $DriveTypeoffnumber += $objItem2.DriveType
                        If $objItem2.Caption = "C:" Then
                                $aResult[$aResult[0][0]][5] =$objItem2.Size/1024/1024/1024;C盘空间大小
                                $aResult[$aResult[0][0]][6] =$objItem2.FreeSpace/1024/1024/1024;C盘剩余空间大小
            EndIf                                
            Next
                $aResult[$aResult[0][0]][3] =$Size/1024/1024/1024;硬盘大小
                $aResult[$aResult[0][0]][4] =$DriveTypeoffnumber/3;分区数量
        EndIf
Else        
        If TCPNameToIP($aRecord[$x])<>"" Then
            IniWrite($file,"info",$aRecord[$x],"No boot");没开机
        Else
                IniWrite($file,"info",$aRecord[$x],"N/PC");没有的PC在AD中没有即时update
                EndIf
EndIf
Next
_ArrayDisplay($aResult,"")
PC列表list.txt如你所描述
回复

举报

lxwlxwayy
发表于 2012-5-10 23:00:03 | 显示全部楼层
好高深，看不懂
回复

举报

fuinei
 楼主| 发表于 2012-5-11 09:21:14 | 显示全部楼层
回复 2# 502762378

谢谢502762378兄的指导，基本功能已实现，我希望检测硬盘所有分区的容量及剩余容量，由于水平有限，参考你的代码修改的数组大小和增加检测其它分区的容量（公司的电脑分区数量为1~4个）,如有更好的方法请指教，谢谢！
#include <file.au3>
#include <array.au3>
Local $aResult[1][1],$aRecord
$file = @ScriptDir&"\result.ini"
If Not _FileReadToArray(@ScriptDir&"\list.txt",$aRecord) Then;读取文件得到数组
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
For $x = 1 to $aRecord[0]
$size = 0
$DriveTypeoffnumber = 0
If Ping ($aRecord[$x],250)        Then        
    If DriveStatus( "\"&$aRecord[$x]&"\c$" ) = "UNKNOWN" Then;有些PC可能IP冲突，也有可能没有管理员权限，暂且定义为防火墙
            IniWrite($file,"info",$aRecord[$x],"Firewall")
        Else
                $aResult[0][0] += 1
                Redim $aResult[$aResult[0][0] + 1][9]
        Local $objWMIService = ObjGet("winmgmts:\" & $aRecord[$x] & "\root\CIMV2")
                $colItems1 = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL")
                $colItems2 = $objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk where Description='本地固定磁盘'", "WQL")
                For $objItem1 In $colItems1
                        $aResult[$aResult[0][0]][0] = $aRecord[$x];电脑名
                        $aResult[$aResult[0][0]][1] = TCPNameToIP($aRecord[$x]);解析出的IP
                        $aResult[$aResult[0][0]][2] =$objItem1.UserName;登录的user

            Next
                For $objItem2 In $colItems2
                        $Size += $objItem2.Size
                        $DriveTypeoffnumber += $objItem2.DriveType
                        If $objItem2.Caption = "C:" Then
                                $aResult[$aResult[0][0]][5] =Round($objItem2.Size/1024/1024/1024,2) & "/" & Round($objItem2.FreeSpace/1024/1024/1024,2);C盘空间大小/及剩余空间
                                                EndIf 
                                                If $objItem2.Caption = "D:" Then
                                $aResult[$aResult[0][0]][6] =Round($objItem2.Size/1024/1024/1024,2) & "/" & Round($objItem2.FreeSpace/1024/1024/1024,2);D盘空间大小/及剩余空间
                                                EndIf  
                                                If $objItem2.Caption = "E:" Then
                                $aResult[$aResult[0][0]][7] =Round($objItem2.Size/1024/1024/1024,2) & "/" & Round($objItem2.FreeSpace/1024/1024/1024,2);E盘空间大小/及剩余空间
                                                EndIf 
                                                If $objItem2.Caption = "F:" Then
                                $aResult[$aResult[0][0]][8] =Round($objItem2.Size/1024/1024/1024,2) & "/" & Round($objItem2.FreeSpace/1024/1024/1024,2);F盘空间大小/及剩余空间
                                                EndIf          
                            
                                Next
                $aResult[$aResult[0][0]][3] =Round($Size/1024/1024/1024,2);硬盘大小
                                $aResult[$aResult[0][0]][4] =$DriveTypeoffnumber/3;分区数量
        EndIf
Else        
        If TCPNameToIP($aRecord[$x])<>"" Then
            IniWrite($file,"info",$aRecord[$x],"No boot");没开机
        Else
                IniWrite($file,"info",$aRecord[$x],"N/PC");没有的PC在AD中没有即时update
                EndIf
EndIf
Next
_ArrayDisplay($aResult,"")
回复

举报

502762378
发表于 2012-5-11 10:51:01 | 显示全部楼层
回复 4# fuinei


    好的办法就是不用WMI
$driver = "\\192.168.0.132\c$"
MsgBox(1,"", _test($driver)&""& _test($driver,1))

Func _test ($sdriver,$x =0)
    If FileExists($sdriver) Then
                If $x = 0 Then 
                    return DriveSpaceTotal($sdriver)
                else
                    Return DriveSpaceFree($sdriver)
                EndIf
                
        endif
EndFunc
回复

举报

502762378
发表于 2012-5-11 11:07:42 | 显示全部楼层
回复 5# 502762378


    另外如果你是手动从AD的OU中手动倒PC得list的话，送你个命令，你会很happy的:dsquery
回复

举报

fuinei
 楼主| 发表于 2012-5-11 12:09:52 | 显示全部楼层
回复 5# 502762378

原来想到使用AU3的语句只能在本机执行所以才想使用WMI的，上面的方法很不错
使用WMI代码测试时发现2个问题：
1、个别PC（原因未知）会导致程序异常中止
2、部分没有E盘的PC会把D盘的容量/剩余空间填写到E盘所在的列
回复

举报

fuinei
 楼主| 发表于 2012-5-11 12:11:03 | 显示全部楼层
回复 6# 502762378
我们公司刚好使用域管理的,能否给个简单的例子？
回复

举报

502762378
发表于 2012-5-13 20:00:36 | 显示全部楼层
回复 7# fuinei


    1：怎么给你说呢，我经常也会用WMI批量搞时出现问题，我这边探测出的一种情况是IP冲突，这个你应该清楚吧。可能还有其他的问题，都不说WIN7了，真心觉得XP高深。
   2；那个你可以先在循环开始定义$driverE=“”、$driverF=“”，然后下边的这样写，专业语言我没办法给你解答，你自己琢磨
If $objItem2.Caption = "F:" Then
        $driverF=Round($objItem2.Size/1024/1024/1024,2) & "/" & Round($objItem2.FreeSpace/1024/1024/1024,2);F盘空间大小/及剩余空间
EndIf   
$aResult[$aResult[0][0]][8]  = $driverF
关于dsquery的知识你自己上AD的帮助主题中搜吧。。
回复

举报

fuinei
 楼主| 发表于 2012-5-15 15:07:55 | 显示全部楼层
回复 9# 502762378
谢谢指导，问题2已解决，根据你的方法使用DriveSapceTotal和DriveSapceFree加默认共享路径的方式也可以成功获取到远程计算机的硬盘分区容量信息，请问不使用WMI情况下可以获取远程计算机当前登录的用户名吗？
回复

举报

502762378
发表于 2012-5-15 20:34:12 | 显示全部楼层
回复 10# fuinei


    可以用pstools中的psloggedon，也可以查看所有用户配置文件的最新修改时间
回复

举报

fuinei
 楼主| 发表于 2012-5-16 11:56:13 | 显示全部楼层
回复 11# 502762378
谢谢指导，由于水平有限使用psloggedon配合AU3时未能返回需要的结果，但根据配置文件的最新修改时间判断当前用户时也遇到返回结果不准确的情况，代码如下：
#include <File.au3>
$Configshare = "\\192.168.1.1\c$\Documents and Settings"
$A_list = _FileListToArray($Configshare, "*", 2)
Local $lastuser = $A_list[1]
Local $modified = FileGetTime($Configshare & "" & $A_list[1],0,1)
For $i = 2 To $A_list[0]
        $filemodied = FileGetTime($Configshare & "" & $A_list[$i],0,1)
        If $filemodied > $modified Then
                $lastuser = $A_list[$i]
        EndIf
Next
MsgBox("","",$lastuser)
希望能指点一下，谢谢！
回复

举报

502762378
发表于 2012-5-16 12:43:44 | 显示全部楼层
本帖最后由 502762378 于 2012-5-16 12:54 编辑

回复 12# fuinei


  1.  可能是你dos回显的练习做的不多，使用psloggedon由于中途有一个停顿时间，所以你回显得不到信息，你可以这样：
c:\pstools\psloggedon \\192.168.0.132 >d:\1.txt
然后处理文本中得到的信息
2 .通过查看所有user配置文件的最后修改时间，判断登陆账户这个理论上肯定是成立的，但是要注意两个问题：1机器是否是注销状态？（如果是我就要判断最后登陆的user的那个修改时间到现在的时间差有没有超过一个时间段，）2：机器是否是锁定状态？如果是这样又要测试锁定状态下user的配置文件修改时间有没有一直在即时更新，我没有测试，解决不了第二个问题，我顿时觉得此方案不靠谱、不严谨了。。
回复

举报

fuinei
 楼主| 发表于 2012-5-16 15:38:41 | 显示全部楼层
本帖最后由 fuinei 于 2012-5-16 16:12 编辑

回复 13# 502762378

非常感谢指导，由于水平有限，对文本加工的正则还是没有搞懂，按指导使用psloggedon已基本可返回当前用户信息，但需准确返回结果还是要配套正确的正则表达式，目前测试的代码如下：
Local $test_PC = "PC1"
Local $log = "c:\logonuser.txt"
Local $cmd = "c:\psloggedon.exe \" & $test_PC & " >" & $log
RunWait(@ComSpec & " /c " & $cmd,"", @SW_HIDE) 
Local $file = FileOpen($log,0)
$logonuserinfo = FileReadline($file,8)
$logonuser = StringRegExp($logonuserinfo, '', 1)  ;正则未填写
MsgBox("","",$logonuserinfo)
MsgBox("","",$logonuser)
FileClose($file)
;fileDelete($log)
目前$logonuserinfo结果为     2012-5-16 8:02:31    Domain\users
请问如何写正则表达式可返回Domain\users呢？

第2个方法经测试原代码有问题，比较目录后没有更新修改时间变量，修改为以下代码后可基本达到我的要求，我计划使用该信息来获取该PC的用户
#include <File.au3>
$Configshare = "\\192.168.1.1\c$\Documents and Settings"
$A_list = _FileListToArray($Configshare, "*", 2)
Local $lastuser = $A_list[1]
Local $modified = FileGetTime($Configshare & "" & $A_list[1],0,1)
For $i = 2 To $A_list[0]
        $filemodied = FileGetTime($Configshare & "" & $A_list[$i],0,1)
        If $filemodied > $modified Then
                $modified = $filemodied
                $lastuser = $A_list[$i]
        EndIf
Next
MsgBox("","",$lastuser)

评分

参与人数 1金钱 +40 收起 理由
502762378 + 40 我很缺少你这种坚持

查看全部评分

回复

举报

502762378
发表于 2012-5-16 16:48:18 | 显示全部楼层
回复 14# fuinei


    问道了我的痛处，我不会正则，用字符窜处理倒是没有问题
$string = "2012-5-16 8:02:31    Domain\users"
$suser = StringSplit($string,"")
MsgBox(1,1," Domain"&$suser[2])
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-19 03:27 , Processed in 0.081373 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表