如何用wmi返回主板序列号

如题 问题点数：0、回复次数：1Top

1 楼tanaya（唐博士http://blog.csdn.net/tanaya）回复于 2005-06-04 16:25:24 得分 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.ExecQuery("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  
   
   
   
  Top

相关问题

• 序列号
• 主板
• colitems
• getmainboardserialnumber
• objitem
• strcomputer
• objwmiservice
• serialnumber
• dim
• sub

• 帖主：jackyhyoung

• Visual Basic类图书
• Visual Basic类源码下载