2024年11月22日 星期五 首页 编程论坛 技术文档 黑客安全 源代码 应用下载 电子图书 电脑硬件 游戏开发 休闲娱乐 编程网站  
‹‹ 上一主题 | 下一主题 ››
发新话题
打印

[基础] 还有有关读取主板号的问题

zali

初级程序员

Rank: 2Rank: 2
1# 大中 小发表于 2007-4-4 22:22  只看该作者

还有有关读取主板号的问题

是这样的,我以前发过帖子,用WMI来读取主板号出不来,版主教我如何调用WMI,后来搞定了,但是现在有个问题就是在我自己的电脑上运行都没问题,同办公室内的几台电脑也都行,不过如果发给朋友的话有的读得出来,有的读不出来,有关WMI的那个wbemdisp.tlb文件都有附上的,郁闷啊,望高手指点,先谢过了!

TOP

Nothing

管理员

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9
2# 大中 小发表于 2007-4-4 22:33  只看该作者
WMI是Windows的一个服务，如果服务没有打开，肯定取不出来。

对应的Windows服务是：
Windows Management Instrumentation
Windows Management Instrumentation Driver Extensions
换个头像，看见广告就眼红，直接封ID。

TOP

zali

初级程序员

Rank: 2Rank: 2
3# 大中 小发表于 2007-4-5 13:41  只看该作者
有关服务的开启问题我也注意到了,Windows Management Instrumentation这个服务正常来说都是默认开的,Windows Management Instrumentation Driver Extensions是手动,以前有试过,两个都开启也不行,以下是我的原代码,敬请指正

附件

read code.rar (70.36 KB)

2007-4-5 13:41, 下载次数: 496

TOP

Nothing

管理员

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9
4# 大中 小发表于 2007-4-5 16:22  只看该作者
请看下面的代码，我的主板的序列号是空的，不能取出。
建议你改用CPU序列号:Win32_Processor
Set a = GetObject("winmgmts:")

Set b = a.InstancesOf("Win32_BaseBoard")


For Each c In b

   With c

    If .Properties_.Count > 0 Then

     Set d = .Properties_

     

     For Each e In d

      Text1 = Text1 & e.Name & ": " & e.Value & vbCrLf

     Next

    End If

   End With

Next
换个头像，看见广告就眼红，直接封ID。

TOP

zali

初级程序员

Rank: 2Rank: 2
5# 大中 小发表于 2007-4-6 15:39  只看该作者
多谢老大指点,主板确实有点不稳定,CPU的号取得还容易

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题