论坛 › 已解决问题区 › wmi语句老提示错误是怎么回事？[已解决]

haijie1223 发表于 2012-3-16 01:42:12

wmi语句老提示错误是怎么回事？[已解决]

本帖最后由 haijie1223 于 2012-3-16 08:10 编辑

代码来自论坛，地址：http://www.autoitx.com/forum.php?mod=viewthread&tid=422&highlight=wmi
为什么在我的电脑上运行老提示语句错误，难道在别人的电脑上可以？还是语句确实有错误？

GetPartionMsg("", 1)      ;GetPartionMsg 的第一个参数可以是 USB、IDE 等;如果不带任何参数，则是检测所有磁盘分区
                                                ;第二个参数可以是 1、0，1 表示 TRUE，0 表示 FALSE;如果第一个参数为空，则第二个必需为 1

Func GetPartionMsg($Interface, $b)
      $objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
      $colItems = $objWMIService.ExecQuery ("Select * from Win32_LogicalDiskToPartition")
      $DiskInfo = ""
      $DiskInfoCombo = ""
      For $objItem In $colItems
                $DiskFH = StringLeft(StringRight($objItem.Dependent, 3), 2)
                $PartNum = QueryDiskNum($DiskFH)
                $PartMsg = QueryPartitionVolume($DiskFH)
                If $Interface <> "" Then
                        If $b = 1 Then
                              If StringMid($PartNum, 2, 3) = $Interface Then
                                        $DiskInfo = $DiskInfo & $PartNum & $DiskFH & $PartMsg & @CRLF
                              EndIf
                        ElseIf $b = 0 Then
                              If StringMid($PartNum, 2, 3) <> $Interface Then
                                        $DiskInfo = $DiskInfo & $PartNum & $DiskFH & $PartMsg & @CRLF
                              EndIf
                        EndIf
                Else
                        $DiskInfo = $DiskInfo & $PartNum & $DiskFH & $PartMsg & @CRLF
                EndIf
      Next
      MsgBox(64, "磁盘信息", $DiskInfo)
EndFunc   ;==>GetPartionMsg

Func QueryDiskInterface($n)
      $objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
      $colItems = $objWMIService.ExecQuery ("Select * from Win32_DiskDrive Where Index=" & $n)
      For $objItem In $colItems
                Return $objItem.InterfaceType
      Next
EndFunc   ;==>QueryDiskInterface

Func QueryPartitionVolume($v)
      $objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
      $colItems = $objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where DeviceID='" & $v & "'")
      For $objItem In $colItems
                Return $objItem.VolumeName & "" & $objItem.FileSystem & "_" & CalcKMG($objItem.Size) & "_" & $objItem.Description
      Next
EndFunc   ;==>QueryPartitionVolume

Func QueryDiskNum($d)
      $objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
      $colItems = $objWMIService.ExecQuery ("Associators of {win32_LogicalDisk.DeviceID='" & $d & "'} where ResultClass = Win32_DiskPartition")
      For $colItem In $colItems
                Return "(" & QueryDiskInterface($colItem.DiskIndex) & ":hd" & $colItem.DiskIndex & ")"
      Next
EndFunc   ;==>QueryDiskNum

Func CalcKMG($n)
      If $n < 1024 Then
                Return $n & "Byte"
      ElseIf $n < 1048576 Then
                Return Round($n / 1024, 2) & "KB"
      ElseIf $n < 1073741824 Then
                Return Round($n / 1048576, 2) & "MB"
      Else
                Return Round($n / 1073741824, 2) & "GB"
      EndIf
EndFunc   ;==>CalcKMG

lixiaolong 发表于 2012-3-16 02:46:40

回复 1# haijie1223

Win7上没问题...

afan 发表于 2012-3-16 03:08:42

Xp sp3 3.3.6.1 正常

haijie1223 发表于 2012-3-16 08:06:31

回复 3# afan


    确实如此，我用的是3.3.9.0-1。难道是新版本的对象语句有变化？

menfan1 发表于 2012-3-16 08:37:35

SVN:988即可。

redapple2008 发表于 2012-3-16 08:56:35

楼主是怎么解决的？能不能共享一下了？

查看完整版本: wmi语句老提示错误是怎么回事？[已解决]