获取本地网卡MAC、厂商、GUID、网卡链路速率等信息 - 精易论坛

窗口程序集名	保留	保留	备注
程序集1

子程序名	返回值类型	公开	备注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
_临时子程序

变量名	类型	静态	数组	备注
网卡信息数组	类_网卡信息HB		0
i	整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
网卡信息HB (网卡信息数组)

计次循环首 (取数组成员数 (网卡信息数组), i)

调试输出 (网卡信息数组 [i].设备名)

调试输出 (网卡信息数组 [i].Mac地址)

调试输出 (网卡信息数组 [i].制造商)

调试输出 (网卡信息数组 [i].GUID)

调试输出 (到文本 (网卡信息数组 [i].网卡链路速度 ÷ 1000 ÷ 1000) ＋ “Mbps”)

' 调试输出 (网卡信息数组 [i].上次重置时间)

计次循环尾 ()

子程序名	返回值类型	公开	备注
网卡信息HB	整数型		返回设备名、MAC、厂商、GUID、上次重置时间，失败返回-1
参数名	类型	参考	可空	数组	备注
接收变量数组	类_网卡信息HB				请提供变量接收

变量名	类型	静态	数组	备注
objWbemLocator	对象
WbemServices	对象
wbemObjectSet	对象
SWbemObject	对象
Object	对象
nCount	整数型
tmpInfo	类_网卡信息HB
对象服务名	文本型			服务名，cha询本地可设置为“.”
对象所属	文本型			一般为root\CIMV2、root\WMI
对象WSQL命令	文本型			和数据库的SQL语句相似
枚举器	枚举对象
接口	变体型
i	整数型

objWbemLocator.创建 (“WbemScripting.SWbemLocator”, )  ' 创建WMI对象
对象服务名＝ “.”
对象所属＝ “root\CIMV2”
对象WSQL命令＝ “Select * from Win32_NetworkAdapter Where Speed != null”  ' cha询网卡信息并且网卡速度不等于空
WbemServices ＝ objWbemLocator.对象型方法 (“ConnectServer”, 对象服务名, 对象所属, , , , , , )  ' 连接服务器
wbemObjectSet ＝ WbemServices.对象型方法 (“ExecQuery”, 对象WSQL命令, , , )  ' cha询
枚举器.取枚举接口 (wbemObjectSet)

如果 (wbemObjectSet.是否为空 () ＝假)

清除数组 (接收变量数组)

计次循环首 (wbemObjectSet.读数值属性 (“Count”, ), i)

枚举器.枚举 (接口)

SWbemObject ＝接口.取对象 (i － 1)

Object ＝ SWbemObject.读对象型属性 (“Properties_”, )

tmpInfo.Mac地址＝ Object.对象型方法 (“Item”, “macaddress”).读属性 (“Value”, ).取文本 ()

tmpInfo.设备名＝ Object.对象型方法 (“Item”, “Name”).读属性 (“Value”, ).取文本 () ' Object.对象型方法 (“Item”, “NetConnectionID”).读属性 (“Value”, ).取文本 ()

tmpInfo.网卡链路速度＝ Object.对象型方法 (“Item”, “speed”).读属性 (“Value”, ).取数值 ()

tmpInfo.制造商＝ Object.对象型方法 (“Item”, “Manufacturer”).读属性 (“Value”, ).取文本 ()

tmpInfo.GUID ＝ Object.对象型方法 (“Item”, “GUID”).读属性 (“Value”, ).取文本 ()

tmpInfo.上次重置时间＝ Object.对象型方法 (“Item”, “TimeOfLastReset”).读属性 (“Value”, ).取文本 ()

加入成员 (接收变量数组, tmpInfo)

计次循环尾 ()

返回 (nCount)

返回 (-1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 程序集1<br />
<br />
.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br />
<br />
<br />
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br />
返回 (0)  ' 可以根据您的需要返回任意数值<br />
<br />
.子程序 _临时子程序<br />
.局部变量 网卡信息数组, 类_网卡信息HB, , "0"<br />
.局部变量 i, 整数型<br />
<br />
' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br />
网卡信息HB (网卡信息数组)<br />
.计次循环首 (取数组成员数 (网卡信息数组), i)<br />
    调试输出 (网卡信息数组 <i>.设备名)<br />
    调试输出 (网卡信息数组 <i>.Mac地址)<br />
    调试输出 (网卡信息数组 <i>.制造商)<br />
    调试输出 (网卡信息数组 <i>.GUID)<br />
    调试输出 (到文本 (网卡信息数组 <i>.网卡链路速度 ÷ 1000 ÷ 1000) ＋ “Mbps”)<br />
    ' 调试输出 (网卡信息数组 <i>.上次重置时间)<br />
.计次循环尾 ()<br />
<br />
<br />
<br />
.子程序 网卡信息HB, 整数型, 公开, 返回 设备名、MAC、厂商、GUID、上次重置时间，失败返回-1<br />
.参数 接收变量数组, 类_网卡信息HB, 参考 数组, 请提供变量接收<br />
.局部变量 objWbemLocator, 对象<br />
.局部变量 WbemServices, 对象<br />
.局部变量 wbemObjectSet, 对象<br />
.局部变量 SWbemObject, 对象<br />
.局部变量 Object, 对象<br />
.局部变量 nCount, 整数型<br />
.局部变量 tmpInfo, 类_网卡信息HB<br />
.局部变量 对象服务名, 文本型, , , 服务名，cha询本地可设置为“.”<br />
.局部变量 对象所属, 文本型, , , 一般为root\CIMV2、root\WMI<br />
.局部变量 对象WSQL命令, 文本型, , , 和数据库的SQL语句相似<br />
.局部变量 枚举器, 枚举对象<br />
.局部变量 接口, 变体型<br />
.局部变量 i, 整数型<br />
<br />
objWbemLocator.创建 (“WbemScripting.SWbemLocator”, )  ' 创建WMI对象<br />
对象服务名 ＝ “.”<br />
对象所属 ＝ “root\CIMV2”<br />
对象WSQL命令 ＝ “Select * from Win32_NetworkAdapter Where Speed != null”  ' cha询网卡信息并且网卡速度不等于空<br />
WbemServices ＝ objWbemLocator.对象型方法 (“ConnectServer”, 对象服务名, 对象所属, , , , , , )  ' 连接服务器<br />
wbemObjectSet ＝ WbemServices.对象型方法 (“ExecQuery”, 对象WSQL命令, , , )  ' cha询<br />
枚举器.取枚举接口 (wbemObjectSet)<br />
.如果 (wbemObjectSet.是否为空 () ＝ 假)<br />
    清除数组 (接收变量数组)<br />
    .计次循环首 (wbemObjectSet.读数值属性 (“Count”, ), i)<br />
        枚举器.枚举 (接口)<br />
        SWbemObject ＝ 接口.取对象 (i － 1)<br />
        Object ＝ SWbemObject.读对象型属性 (“Properties_”, )<br />
        tmpInfo.Mac地址 ＝ Object.对象型方法 (“Item”, “macaddress”).读属性 (“Value”, ).取文本 ()<br />
        tmpInfo.设备名 ＝ Object.对象型方法 (“Item”, “Name”).读属性 (“Value”, ).取文本 ()  ' Object.对象型方法 (“Item”, “NetConnectionID”).读属性 (“Value”, ).取文本 ()<br />
        tmpInfo.网卡链路速度 ＝ Object.对象型方法 (“Item”, “speed”).读属性 (“Value”, ).取数值 ()<br />
        tmpInfo.制造商 ＝ Object.对象型方法 (“Item”, “Manufacturer”).读属性 (“Value”, ).取文本 ()<br />
        tmpInfo.GUID ＝ Object.对象型方法 (“Item”, “GUID”).读属性 (“Value”, ).取文本 ()<br />
        tmpInfo.上次重置时间 ＝ Object.对象型方法 (“Item”, “TimeOfLastReset”).读属性 (“Value”, ).取文本 ()<br />
        加入成员 (接收变量数组, tmpInfo)<br />
    .计次循环尾 ()<br />
    返回 (nCount)<br />
.否则<br />
    返回 (-1)<br />
.如果结束

数据类型名	公开	备注
类_网卡信息HB
成员名	类型	传址	数组	备注
设备名	文本型			网卡设备名
Mac地址	文本型			MAC地址
制造商	文本型			制造商
网卡链路速度	长整数型			网卡速度
GUID	文本型			网卡GUID
上次重置时间	文本型			上次网卡重置时间