الموضوع: مكتبة الإكواد كاملة للتعامل مع عتاد الجهاز:

Class SystemSlot

كود PHP:

 Public Class SystemSlot

        Dim con As ConnectionOptions = New ConnectionOptions

        Dim machineName As String = System.Environment.MachineName

        Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)

        Dim oqj As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_systemslot")

        Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(mss, oqj)

        Dim queryCollection As ManagementObjectCollection = mos.Get

    Public Function Caption() As System.Collections.ObjectModel.Collection(Of String)

        Caption = New System.Collections.ObjectModel.Collection(Of String)

        For Each getnow As ManagementObject In queryCollection

            Caption.Add(getnow.Item("caption"))

        Next

    End Function

    Public Function PMESignal() As System.Collections.ObjectModel.Collection(Of String)

        PMESignal = New System.Collections.ObjectModel.Collection(Of String)

        For Each getnow As ManagementObject In queryCollection

            PMESignal.Add(getnow.Item("PMESignal"))

        Next

    End Function

    Public Function SlotDesignation() As System.Collections.ObjectModel.Collection(Of String)

        SlotDesignation = New System.Collections.ObjectModel.Collection(Of String)

        For Each getnow As ManagementObject In queryCollection

            SlotDesignation.Add(getnow.Item("SlotDesignation"))

        Next

    End Function

    Public Function VccMixedVoltageSupport() As System.Collections.ObjectModel.Collection(Of String)

        VccMixedVoltageSupport = New System.Collections.ObjectModel.Collection(Of String)

        For Each getnow As ManagementObject In queryCollection

            VccMixedVoltageSupport.Add(getnow.Item("VccMixedVoltageSupport"))

        Next

    End Function

End Class 


كلاسس عن شذرة بدء التشغيل

كود PHP:

  Public Class bios

 

        Dim con As ConnectionOptions = New ConnectionOptions

        Dim machineName As String = System.Environment.MachineName

        Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)

        Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_bios")

        Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)

        Dim queryCollection As ManagementObjectCollection = moss.Get

    Public Function Names()

        For Each getnow As ManagementObject In queryCollection

            Names = getnow("name")

        Next

    End Function

    Public Function status()

        For Each getnow As ManagementObject In queryCollection

            status = getnow("")

        Next

    End Function

    Public Function BiosCharacteristics()

        For Each getnow As ManagementObject In queryCollection

            BiosCharacteristics = getnow("BiosCharacteristics")

        Next

    End Function

    Public Function BIOSVersion()

        For Each getnow As ManagementObject In queryCollection

            BIOSVersion = getnow("BIOSVersion")

        Next

    End Function

    Public Function Caption()

        For Each getnow As ManagementObject In queryCollection

            Caption = getnow("Caption")

        Next

    End Function

    Public Function CurrentLanguage()

        For Each getnow As ManagementObject In queryCollection

            CurrentLanguage = getnow("CurrentLanguage")

        Next

    End Function

    Public Function Description()

        For Each getnow As ManagementObject In queryCollection

            Description = getnow("Description")

        Next

    End Function

    Public Function InstallableLanguages()

        For Each getnow As ManagementObject In queryCollection

            InstallableLanguages = getnow("InstallableLanguages")

        Next

    End Function

    Public Function ListOfLanguages()

        For Each getnow As ManagementObject In queryCollection

            ListOfLanguages = getnow("ListOfLanguages")

        Next

    End Function

    Public Function PrimaryBIOS()

        For Each getnow As ManagementObject In queryCollection

            PrimaryBIOS = getnow("PrimaryBIOS")

        Next

    End Function

    Public Function ReleaseDate()

        For Each getnow As ManagementObject In queryCollection

            ReleaseDate = getnow("ReleaseDate")

        Next

    End Function

    Public Function SMBIOSBIOSVersion()

        For Each getnow As ManagementObject In queryCollection

            SMBIOSBIOSVersion = getnow("SMBIOSBIOSVersion")

        Next

    End Function

    Public Function SMBIOSMajorVersion()

        For Each getnow As ManagementObject In queryCollection

            SMBIOSMajorVersion = getnow("SMBIOSMajorVersion")

        Next

    End Function

    Public Function SMBIOSMinorVersion()

        For Each getnow As ManagementObject In queryCollection

            SMBIOSMinorVersion = getnow("SMBIOSMinorVersion")

        Next

    End Function

    Public Function SMBIOSPresent()

        For Each getnow As ManagementObject In queryCollection

            SMBIOSPresent = getnow("SMBIOSPresent")

        Next

    End Function

    Public Function TargetOperatingSystem()

        For Each getnow As ManagementObject In queryCollection

            TargetOperatingSystem = getnow("TargetOperatingSystem")

        Next

    End Function

    Public Function Version()

        For Each getnow As ManagementObject In queryCollection

            Version = getnow("Version")

        Next

    End Function

End Class 


كلاسس عن الشاشة

كود PHP:

 Public Class Monitor

        Dim con As ConnectionOptions = New ConnectionOptions

        Dim machineName As String = System.Environment.MachineName

        Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)

        Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_DesktopMonitor")

        Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)

        Dim queryCollection As ManagementObjectCollection = moss.Get

    Public Function Caption()

        For Each getnow As ManagementObject In queryCollection

            Caption = getnow("Caption")

        Next

    End Function

    Public Function DeviceID()

        For Each getnow As ManagementObject In queryCollection

            DeviceID = getnow("DeviceID")

        Next

    End Function

    Public Function MonitorManufacturer()

        For Each getnow As ManagementObject In queryCollection

            MonitorManufacturer = getnow("MonitorManufacturer")

        Next

    End Function

    Public Function ScreenHeight()

        For Each getnow As ManagementObject In queryCollection

            ScreenHeight = getnow("ScreenHeight")

        Next

    End Function

    Public Function ScreenWidth()

        For Each getnow As ManagementObject In queryCollection

            ScreenWidth = getnow("ScreenWidth")

        Next

    End Function

End Class 


معرفة مسار النظام ، كما يمكنك الاستعلام عن أي مسار أخر فقط غير System الى أي مسار ترغب فيه

كود PHP:

 Public Function SystemDir() As String

        Dim a As String

        a = System.Environment.GetFolderPath(Environment.SpecialFolder.System)

        SystemDir = a

    End Function 


و في الأخير تقبلوا كل احتراماتي