2怎么找到?任何主板串行密钥 [英] how 2 find ? any mother board serial key

问题描述

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

如果您将其与邮件一起发送到[e-mail]

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 [e-mail]

推荐答案

请参阅 ^ ].

请尝试以下代码

try this below code

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怎么找到?任何主板串行密钥的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！