永发信息网

vb读取主板型号

答案:3  悬赏:0  手机版
解决时间 2021-08-18 16:50

详细解说 最好有事例下载 谢谢

最佳答案

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.ExecQuery("Select * from Win32_BaseBoard")
For Each objItem In colItems
If objItem.SerialNumber <> "" Then
GetMainboardSerialNumber = objItem.SerialNumber
Exit Function
End If
Next
End Function


获取主板型号内存大小..等...?自己去实践一下吧

全部回答
下载个everest他也可以测
你好, 你可以用别的软件测试一下,不一定要用VB
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
交警为什么要罚款?
国家职工男篮比赛指定用球 多少钱
lead to后面只能接ing或名词吗?
永恒之塔的弓星为什么杀伤力这么低
小学生毕业校长寄语,小学四年级学生家长给校
n97mini目前市场价是多少?
怎么更换IP地方
湘潭县湘潭仙女山地址是什么,有没有知道的
《岳阳楼记》中的第五段(嗟夫!……)与第三,
鹦鹉鸟怎么养殖,鹦鹉鸟的饲养方法?
flash文本滚动按钮
裤子的布料什么最舒服,健身时穿什么样的背心
酷睿i3 330M处理器和酷睿i3 335M处理器哪个好
汉川市孝感伟伟实惠餐厅在什么地方啊,我要过
360找出来的毒是隔离好还是彻底删除好
推荐资讯
群山万壑赴荆门,生长明妃尚有村”,“明妃”是
天心区长沙海豚湾主题酒这个地址怎么能查询到
黄州区黄冈中国邮政储蓄银行(陈策楼储蓄所)这
网页上免费开通的QQWAP安全吗?
谁有北纬31度录象带完整版?
孟津县洛阳紫荆花漆我想知道这个在什么地方
在西安数码相机柯达C142大概多少钱.哪里可以
天龙八部2录制视频问题
广水市随州童乐乐精品童装这个地址怎么能查询
小學五年級暑假作业题目。
蒸湘区衡阳格力电器售后服务商这个地址怎么能
天元区株洲东升五金店地址在哪,我要去那里
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?