سورس کدهای مفید و کاربردی VB.Net

[Netsky]

ciao
یکم از این تایپک برنامه VB توی بخش ویژوال بیسیک یاد بگیرید . چقدر کاربرای فعالی داره !!!!
بخش VB.Net هم که چی بگم ..............
خب گذشته از این حرفا بریم سراغ کد بعدی .
با این کد یه سری اطلاعات کلی رو در مورد بایوس بگیرید .
اطلاعاتی از قبیل :
1- ورژن بایوس
2- شماره ساخت
3- Caption
4- کد شناسه
5- کارخانه سازنده
6- نام بایوس
7- شماره سریال
نکته : ابتدا باید رفرنس System.Managment رو اضافه کنید .

Public Function GetInfo_BIOS()

        Dim Bios_ID As String

        Dim BiosClass As New Management.ManagementClass("Win32_BIOS")

        Dim Bioss As Management.ManagementObjectCollection = BiosClass.GetInstances()

        Dim BiossEnumerator As _

        Management.ManagementObjectCollection.ManagementOb  jectEnumerator = _

        Bioss.GetEnumerator()

        Bios_ID = "1"

        While BiossEnumerator.MoveNext()

            Dim Bios As Management.ManagementObject = _

            CType(BiossEnumerator.Current, Management.ManagementObject)

            '   Bios_ID = Bios("BiosCharacteristics")



            Bios_ID = Join(Bios("BIOSVersion"))

            Bios_ID &= Bios("BuildNumber")

            Bios_ID &= Bios("Caption")

            Bios_ID &= Bios("IdentificationCode")

            Bios_ID &= Bios("Manufacturer")

            Bios_ID &= Bios("Name")

            Bios_ID &= Bios("SerialNumber")



        End While

        MessageBox.Show(Bios_ID, "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    End Function