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 |
欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) | Powered by Discuz! 6.0.0 |