نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

ابتدا مرجع System.Management را به پروژه ی خود اضافه می كنيد.

كد زير را در خارج از Public Class فرم برنامه قرار می دهيم:

Imports System.Management

سپس از كد زير استفاده می كنيم. اين كد شماره سريال را با جعبه ی متنی نمايش می دهد:

Dim objMOS As ManagementObjectSearcher
Dim objMOC As  Management.ManagementObjectCollection
Dim objMO As  Management.ManagementObject

objMOS = New ManagementObjectSearcher("Select *  From Win32_OperatingSystem")
objMOC =  objMOS.Get

ForEach objMO In objMOC
  MessageBox.Show(objMO("SerialNumber"))
Next

 objMOS.Dispose()
objMOS = Nothing
objMO.Dispose()
objMO = Nothing

منبع: DevASP