【VBA WMI应用】获取BIOS的函数怎么精简？

loquat

1. Function BIOS() As String
   
2. Dim objWMIService As Object, BIOSs, objItem
   
3. Set objWMIService = GetObject("winmgmts:").ExecQuery("Select * from Win32_BIOS", , 48)
   
4. For Each objItem In objWMIService
   
5.     BIOS = objItem.SerialNumber
   
6. Next
   
7. End Function

复制代码

以上函数，怎么精简成一句代码，且不影响执行效率，大侠指点。。。

补充内容 (2020-5-16 13:04):
GetObject("winmgmts:").ExecQuery("Select SerialNumber From Win32_BIOS").ItemIndex(0).SerialNumber

wudixin96

哎，函数后贵症患者

loquat

wudixin96 发表于 2014-3-21 17:52
哎，函数后贵症患者

哈哈，还不是太严重。只是问问，没有答案要不就还是算了。。。

ALPHAS

挤一挤更健康
sub getbios()
For Each objItem In GetObject("winmgmts:").ExecQuery("Select * from Win32_BIOS", , 48): MsgBox objItem.SerialNumber: Next
end sub

loquat

ALPHAS 发表于 2014-3-21 21:54
挤一挤更健康
sub getbios()
For Each objItem In GetObject("winmgmts:").ExecQuery("Select * from Wi ...

囧囧，这还是多句代码啊。
我是觉得应该可以有一句代码就能实现。
例如：

1. Function GetCpuID() As String
   
2. GetCpuID = GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor")("Win32_Processor.DeviceID='CPU0'", 1).processorid
   
3. End Function

复制代码

xyz74sc

写成一句话的后果是一旦程序出错，想要调试跟踪会很困难。
所以好的编程习惯是在不影响效率的情况，用多句代码，每句执行一个功能调用

loquat

xyz74sc 发表于 2014-3-22 20:06
写成一句话的后果是一旦程序出错，想要调试跟踪会很困难。
所以好的编程习惯是在不影响效率的情况，用多句 ...

有道理，我不懂编程的。受教啦。。。

dhlhmgc

1. '---------------------------------------------------------------------------------------
   
2. ' 功  能: 【VBA WMI应用】获取BIOS的函数怎么精简
   
3. ' 语  法:  ~苦笑人生 QQ: 42001979
   
4. '          希望能加楼主QQ，日常交流
   
5. '---------------------------------------------------------------------------------------
   
6. Function BIOS() As String
   
7.         For Each a In GetObject("winmgmts:").InstancesOf("Win32_BIOS"):BIOS=a.SerialNumber:Next
   
8. End Function

复制代码

loquat

好像已经加了QQ了吧
时隔多年，其实BIOS也可以简化的
GetObject("winmgmts:").ExecQuery("Select SerialNumber From Win32_BIOS").ItemIndex(0).SerialNumber

只不过强烈不建议这么用，尤其是这部分GetObject("winmgmts:")
应该封装成类，避免每次调用wmi都初始化一次实例