Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Management
- Namespace Sitesource.Util
- ''' <summary>
- ''' FootPrint
- ''' </summary>
- ''' <remarks></remarks>
- Public Class FootPrint
- ''' <summary>
- ''' GetID
- ''' </summary>
- ''' <returns></returns>
- ''' <remarks></remarks>
- Public Shared Function GetID() As String
- Dim cpuId As String = "none"
- Dim mainboardId As String = "none"
- Dim search As New ManagementObjectSearcher(New SelectQuery("Win32_processor"))
- For Each info As ManagementObject In search.Get()
- cpuId = info("processorId").ToString()
- Next
- search = New ManagementObjectSearcher(New SelectQuery("Win32_BaseBoard"))
- For Each info As ManagementObject In search.Get()
- mainboardId = info("SerialNumber").ToString()
- Next
- Return String.Concat(cpuId, mainboardId)
- End Function
- End Class
- End Namespace
Advertisement
Add Comment
Please, Sign In to add comment