swallow.pa
جمعه 25 فروردین 1391, 20:42 عصر
سلام به همه
من با این کد شماره سریال مادر برد سیستم های کاربران را چک می کنم
سوال من اینه در موقع ساخت ستاپ چه چیزی رو به برنامه اد کنم یعنی همون دات نت فریم ورک 4 کافیه یا نه ممنون
Imports System.Management
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim Searcher_P As New ManagementObjectSearcher("SELECT * FROM Win32_BaseBoard")
For Each queryObj As ManagementObject In Searcher_P.Get()
TextBox1.Text += (queryObj("SerialNumber").ToString.Trim)
Next
Dim Searcher_d As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_DiskDrive")
For Each queryObj As ManagementObject In Searcher_d.Get()
TextBox2.Text += (queryObj("SerialNumber").ToString.Trim)
Next
End Sub
End Class
من با این کد شماره سریال مادر برد سیستم های کاربران را چک می کنم
سوال من اینه در موقع ساخت ستاپ چه چیزی رو به برنامه اد کنم یعنی همون دات نت فریم ورک 4 کافیه یا نه ممنون
Imports System.Management
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim Searcher_P As New ManagementObjectSearcher("SELECT * FROM Win32_BaseBoard")
For Each queryObj As ManagementObject In Searcher_P.Get()
TextBox1.Text += (queryObj("SerialNumber").ToString.Trim)
Next
Dim Searcher_d As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_DiskDrive")
For Each queryObj As ManagementObject In Searcher_d.Get()
TextBox2.Text += (queryObj("SerialNumber").ToString.Trim)
Next
End Sub
End Class