2怎么找到?任何主板串行密钥

本文介绍了2怎么找到?任何主板串行密钥的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

大家好，
我需要使用Visual baisc 6.0查找主板串行密钥的帮助，请紧迫其解决办法.

如果您将其与邮件一起发送到[email protected]

hi guys,
i need help to find mother board serial key using visual baisc 6.0 please its urgent frnd''s.

if u have it with u mail to [email protected]

推荐答案

Private Sub Form_Load()
   Dim List
   Dim Msg
   Dim Object
   On Local Error Resume Next
   Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_BaseBoard")
   For Each Object In List
      Msg = Msg & "Motherboard Serial Number: " & Object.SerialNumber & vbCrLf
   Next
   Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
   For Each Object In List
      Msg = Msg & "Processor Unique ID: " & Object.UniqueID & vbCrLf
   Next
   Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_BIOS")
   For Each Object In List
      Msg = Msg & "BIOS Serial Number: " & Object.SerialNumber & vbCrLf
   Next
   Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_LogicalDisk")
   For Each Object In List
      Msg = Msg & "Disk Serial Number: " & Object.VolumeSerialNumber & vbCrLf
   Next
   MsgBox Msg
   Unload Me

End Sub

谢谢

Thanks

这篇关于2怎么找到?任何主板串行密钥的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！