deebug

FootPrint.vb

Jul 12th, 2011
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Management
  2. Namespace Sitesource.Util
  3.     ''' <summary>
  4.    ''' FootPrint
  5.    ''' </summary>
  6.    ''' <remarks></remarks>
  7.    Public Class FootPrint
  8.         ''' <summary>
  9.        ''' GetID
  10.        ''' </summary>
  11.        ''' <returns></returns>
  12.        ''' <remarks></remarks>
  13.        Public Shared Function GetID() As String
  14.             Dim cpuId As String = "none"
  15.             Dim mainboardId As String = "none"
  16.  
  17.             Dim search As New ManagementObjectSearcher(New SelectQuery("Win32_processor"))
  18.             For Each info As ManagementObject In search.Get()
  19.                 cpuId = info("processorId").ToString()
  20.             Next
  21.  
  22.             search = New ManagementObjectSearcher(New SelectQuery("Win32_BaseBoard"))
  23.             For Each info As ManagementObject In search.Get()
  24.                 mainboardId = info("SerialNumber").ToString()
  25.             Next
  26.             Return String.Concat(cpuId, mainboardId)
  27.         End Function
  28.     End Class
  29. End Namespace
Advertisement
Add Comment
Please, Sign In to add comment