عرض مشاركة واحدة
قديم 13-Dec-2013, 10:02 PM   #1
maram_rose
عضو جديد
 
تاريخ التسجيل: Dec 2009
المشاركات: 2
من مواضيعي  
 
0 أرجو المساعده في فهم عمل هالكود

Angry أرجو المساعده في فهم عمل هالكود

Public Class clsWMI
Private objOS As ManagementObjectSearcher
Private objCS As ManagementObjectSearcher
Private objMgmt As ManagementObject
Private m_strComputerName As String
Private m_strManufacturer As String
Private m_StrModel As String
Private m_strOSName As String
Private m_strOSVersion As String
Private m_strSystemType As String
Private m_strTPM As String
Private m_strWindowsDir As String


Public Sub New()

objOS = New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
objCS = New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
For Each objMgmt In objOS.Get


m_strOSName = objMgmt("name").ToString()
m_strOSVersion = objMgmt("version").ToString()
m_strComputerName = objMgmt("csname").ToString()
m_strWindowsDir = objMgmt("windowsdirectory").ToString()
Next

For Each objMgmt In objCS.Get
m_strManufacturer = objMgmt("manufacturer").ToString()
m_StrModel = objMgmt("model").ToString()
m_strSystemType = objMgmt("systemtype").ToString
m_strTPM = objMgmt("totalphysicalmemory").ToString()
Next
End Sub



في ايش يعمل هالكود ممكن شرح طريقة عمل هالكود ضروري ارجو المساعدة وخاصة object
maram_rose غير متواجد حالياً   رد مع اقتباس