![]() ![]() ![]() ![]() Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim Searcher_p As New ManagementObjectSearcher( 'root CIMV2', 'SELECT * FROM Win32_DiskDrive') For Each queryObj As ManagementObject In Searcher_p. Faraz thanks dear for your help but HDD_Serial is empty please check and help me . Get MB_serial = mb( 'SerialNumber') Next MsgBox(MB_serial) End Sub Please mark those posts as answer which answers your question. Get HDD_Serial = hd( 'SerialNumber') Next Dim mboard As New ManagementObjectSearcher( 'select * from Win32_BaseBoard') For Each mb In mboard. Private Sub Form7_Load(sender As Object, e As System.EventArgs) Handles Me.Load Dim HDD_Serial, MB_serial As String Dim hdd As New ManagementObjectSearcher( 'select * from Win32_DiskDrive') For Each hd In hdd. Get MB_serial = mb( 'SerialNumber') Next End Sub End Class thank dear but there are errors in codes: Error 1 Type 'ManagementObjectSearcher' is not defined. C: Users Sh2007 Desktop hdd hdd Form1.vb 6 20 hdd Error 3 Statement cannot appear outside of a method body/multiline lambda. C: Users Sh2007 Desktop hdd hdd Form1.vb 9 5 hdd please help me. ![]() Imports System.Management Public Class Form1 Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim HDD_Serial, MB_serial As String Dim hdd As New ManagementObjectSearcher( 'select * from Win32_DiskDrive') For Each hd In hdd. SetEdit all versions serial number and keygen, SetEdit serial number, SetEdit keygen, SetEdit crack, SetEdit activation key, SetEdit download keygen, SetEdit show serial number, SetEdit key, SetEdit free download, SetEdit 03fae0ba find serial number. The Easiest way to watch all kinds of Movies on this site. You can Discover a lot of movies more than Twenty Thousands. HDMEGA is a Free service for Watch Movies Online and TV Shows. Site-ul nostru va pune la dispozitie o colectie mare de Seriale Online Gratis si Subtitrate la o calitate Excelenta. Intel gma x3100 graphics driver download windows 8. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |