您的位置：程序门 -> vb ->

如何通过api获取主板序列号

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何通过api获取主板序列号

发表于：2007-08-09 14:22:44 楼主

现在公司要求通过获知道取主板序列号加密，不知道怎么获取，请各位指点一下

发表于：2007-08-09 14:37:421楼得分:0

function getmainboardserialnumber（) as string
on error resume next
dim strcomputer
dim objwmiservice
dim objitem
dim stroption
dim colitems
getmainboardserialnumber = " "
strcomputer = ". "
set objwmiservice = getobject（ "winmgmts:\\ " & strcomputer & "\root\cimv2 ")
set colitems = objwmiservice.ＥＸＥＣquery（ "select * from win32_baseboard ")
for each objitem in colitems
if objitem.serialnumber <> " " then
getmainboardserialnumber = objitem.serialnumber
exit function
end if
next
end function

private sub command1_click（)
msgbox getmainboardserialnumber
end sub

不建议用主板，因为用wmi在操作系统不相同的状况下，会出现全部为0的结果

发表于：2007-08-09 14:42:592楼得分:0

我用得是笔记本，操作系统为xp，用你上面得代码测试返回结果为空

发表于：2007-08-09 14:49:403楼得分:0

我都说wmi会出现为空的情况的

所以你还是取cpu或者网卡号比较实在一点

发表于：2007-08-09 14:52:104楼得分:0

有md5的加密解决的模块没有,
有就发一个,zhuj@bc-info.net

下一篇：哪里有md5加密解密得方法
上一篇：【问】如何知道串口接收缓冲区里还有多少字节数据未取？（只要api版的！）

其他资讯