[AbdoDabak]

السلام عليكم

ممكن كود معرفة معلومات عن رامات الجهاز

والمعالج

واسم المستخدم

[boudyonline]

لكود المعالج

PHP كود :

Imports System.Management
Public Function getCPU_ID() As String

    Dim cpuID As String = String.Empty
    Dim mc As ManagementClass = New ManagementClass("Win32_Processor")
    Dim moc As ManagementObjectCollection = mc.GetInstances()
    For Each mo As ManagementObject In moc
      If (cpuID = String.Empty) Then
        cpuID = mo.Properties("ProcessorId").Value.ToString()
      End If
    Next
    Return cpuID
  End Function 


لمعرفة اسم الجهاز

PHP كود :

My.Computer.Name 


[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 


[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

فعلا معلومات شاملة و كاملة و الكمال لله أخي و أستاذي " عاصم "

بارك الله فيك و لك و أحسن إليك مثلما تحسن للجميع بروائع أعمالك

تحياتي واحتراماتي

[asemshahen5]

الله يسلمك .