读取磁盘信息失败 - 已解决

rally

这个地方百思不得解，为什么 $vDeviceID = "\\.\PHYSICALDRIVE0" 显示$vPNPID = -1


   Local $iCnt, $iCheck,$vPNPID
   $vDeviceID = "\\.\PHYSICALDRIVE0"
   $vPNPID = _PNPIDFromPhysicalDriveID($vDeviceID)
   MsgBox(0,"", $vPNPID)



Func _PNPIDFromPhysicalDriveID($vDriveID)


        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
        If IsObj($colItems) then
           For $objItem In $colItems
                If $objItem.DeviceID == $vDriveID then
                  Return $objItem.PNPDeviceID
                EndIf
          Next
        Endif
        Return -1
EndFunc

yuantian

表示可以

Local $iCnt, $iCheck, $vPNPID
$vDeviceID = "\\.\PHYSICALDRIVE0"
$vPNPID = _PNPIDFromPhysicalDriveID($vDeviceID)
MsgBox(0, "", $vPNPID)

Func _PNPIDFromPhysicalDriveID($vDriveID)

        Local $wbemFlagReturnImmediately = 0x10
        Local $wbemFlagForwardOnly = 0x20
        Local $colItems = ""
        Local $strComputer = "localhost"
        Local $Output = ""
        Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _
                        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
        If IsObj($colItems) Then
                For $objItem In $colItems
                        If $objItem.DeviceID == $vDriveID Then
                                Return $objItem.PNPDeviceID
                        EndIf
                Next
        EndIf
        Return -1
EndFunc   ;==>_PNPIDFromPhysicalDriveID

afan

yuantian 发表于 2021-1-27 22:29
表示可以

编辑下帖子，第 13 行有一个 \ 被吃了……
这论坛代码标签各种丢符号，遇到无数次，有时编辑到甚至直接删帖

haijie1223

afan 发表于 2021-1-27 22:39
编辑下帖子，第 13 行有一个 \ 被吃了……
这论坛代码标签各种丢符号，遇到无数次，有时编辑到甚至直接 ...

a版，我有意想把论坛回复到原来的dz7. 2老版本。如何？

afan

haijie1223 发表于 2021-1-28 00:52
a版，我有意想把论坛回复到原来的dz7. 2老版本。如何？

我也觉得可以。虽然原来的有小问题，但至少比现在的论坛好。编程论坛代码标签正常是最基本的。

haijie1223

afan 发表于 2021-1-28 10:30
我也觉得可以。虽然原来的有小问题，但至少比现在的论坛好。编程论坛代码标签正常是最基本的。

只是DZ没有提供降级的方法，只能恢复数据，可能很多用户和帖子将会丢失。

afan

haijie1223 发表于 2021-1-28 19:07
只是DZ没有提供降级的方法，只能恢复数据，可能很多用户和帖子将会丢失。

那还是算了吧，几年了，损失太大。

chamlien

haijie1223 发表于 2021-1-28 19:07
只是DZ没有提供降级的方法，只能恢复数据，可能很多用户和帖子将会丢失。

降级不就是把旧包一传，然后解压安装完事吗

haijie1223

chamlien 发表于 2021-1-29 12:26
降级不就是把旧包一传，然后解压安装完事吗

哪有那么简单。。。。

rally

谢谢 @yuantian 兄弟援手，谢谢afan大大，谢谢 haijie 兄，问题已解决

yuantian

afan 发表于 2021-1-27 22:39
编辑下帖子，第 13 行有一个 \ 被吃了……
这论坛代码标签各种丢符号，遇到无数次，有时编辑到甚至直接 ...

斜杠没丢，只是被论坛转义了

唉。