本帖最后由 nmgwddj 于 2016-7-14 10:07 编辑
下次找人帮忙把代码复制全了可以吗?另外遇到问题自己尝试一下,我从未使用过WMI,也不知道它是个什么东西,但就今天看到你的问题,用了不到 40 分钟的时间写出下面的代码。我想这不是难与不难的问题,而是用心不用心的问题。我相信论坛不欢迎只会伸手的人。http://www.autoitx.com/forum.php ... 7&highlight=WMI
https://social.technet.microsoft ... i-bus-id?forum=ITCG
#include <Array.au3>
$strComputer = '.'
$objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\root\CIMV2')
$objAdapters = $objWMIService.Execquery('Select * from Win32_NetworkAdapter Where NetEnabled=True')
For $object In $objAdapters
$sPnPDeviceID = $object.PnPDeviceID
$sLocationInfo = RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\' & $sPnPDeviceID, 'LocationInformation')
Local $nIndex, $nDeviceID, $nFunctionID
$sStringRep = StringRegExp($sLocationInfo, '.+(\d+),(\d+),(\d+)', 3)
If @error Then
$nIndex = 0
$nDeviceID = 0
$nFunctionID = 0
Else
$nIndex = $sStringRep[0]
$nDeviceID = $sStringRep[1]
$nFunctionID = $sStringRep[2]
EndIf
Local $aBusInfo[6]
$aBusInfo[0] = $object.NetConnectionID
$aBusInfo[1] = $object.MacAddress
$aBusInfo[2] = $object.Index
$aBusInfo[3] = $nIndex
$aBusInfo[4] = $nDeviceID
$aBusInfo[5] = $nFunctionID
_ArrayDisplay($aBusInfo)
Next
|