[asemshahen5]

هذا كود يجلب لك معلومات الجهاز من سرعة معالج و الذاكرة المستخدمة و الذاكرة الكلية و اسم الكمبيوتر اسم نظام التشغيل اصدار نظام التشغيل اسم المستخدم رقم اصدار نظام التشغيل رقم البيلد الخاص بنظام التشغيل :

PHP كود :

   Public Function ComputerInformation() As String
        Dim CmIn As String = String.Empty
        Dim Bit As Integer
        Dim ProcessorSet As Object
        Dim CPU As Object
        ProcessorSet = GetObject("Winmgmts:").ExecQuery("SELECT * FROM Win32_Processor")
        For Each CPU In ProcessorSet
            Bit = CStr(CPU.AddressWidth)
        Next
        If Bit = 64 Then
            CmIn = "Cpu Informaion : " & CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString") & " 64 Bit" & Environment.NewLine
        Else
            CmIn = "Cpu Informaion : " & CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString") & " 32 Bit" & Environment.NewLine
        End If
        'CmIn += "64 Bit Operating System : " & Environment.Is64BitOperatingSystem & Environment.NewLine'
        CmIn += "Available Physical Memory : " & (((My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024) / 1024).ToString("00.00") & " GB" & Environment.NewLine
        CmIn += "Available Total Physical Memory : " & (((My.Computer.Info.TotalPhysicalMemory / 1024) / 1024) / 1024).ToString("00.00") & " GB" & Environment.NewLine
        CmIn += "Machine Name : " & Environment.MachineName & Environment.NewLine

        If Bit = 64 Then
            CmIn += "Operating System Name : " & My.Computer.Info.OSFullName & " 64 Bit" & Environment.NewLine
        Else
            CmIn += "Operating System Name : " & My.Computer.Info.OSFullName & " 32 Bit" & Environment.NewLine
        End If
        CmIn += "OSVersion : " & Environment.OSVersion.VersionString & Environment.NewLine
        CmIn += "User Name : " & Environment.UserName & Environment.NewLine
        CmIn += "Operating System Version : " & Environment.Version.ToString & Environment.Version.Build & Environment.NewLine
        CmIn += "Operating System Version Build : " & My.Computer.Info.AvailablePhysicalMemory & Environment.NewLine
        Return CmIn
    End Function