Определение типа памяти |
Здравствуйте, гость ( Вход | Регистрация )
Here You Can Support Our Work and .:LavTeaM:. Services |
Определение типа памяти |
9.11.2007 - 10:49
Сообщение
#1
|
|
Прохожий Группа: Пользователи Пользователь №: 28822 Сообщений: 30 Регистрация: 6.02.2006 Загружено: байт Скачано: байт Коэффициент: --- Спасибо сказали: 2 раз(а) |
Привет всем.
Кто нибудь знает как можно определить тип памяти установленной на компе (DDR, DDR2 и т.п.)? Желательно с помощью WMI, WSH, VB. |
|
|
12.11.2007 - 08:35
Сообщение
#2
|
|
Прохожий Группа: Пользователи Пользователь №: 28822 Сообщений: 30 Регистрация: 6.02.2006 Загружено: байт Скачано: байт Коэффициент: --- Спасибо сказали: 2 раз(а) |
|
|
|
12.11.2007 - 11:43
Сообщение
#3
|
|||
Завсегдатай Группа: Пользователи Пользователь №: 32647 Сообщений: 126 Регистрация: 21.04.2006 Из: Москва Загружено: байт Скачано: байт Коэффициент: --- Спасибо сказали: 3 раз(а) |
.......Задачей WBEM является разработка таких стандартов удалённого управления информационной средой предприятия, которые не зависят от конкретного оборудования, сетевой инфраструктуры, операционной системы, файловой системы и т.д. .......
А для определения типа памяти с удалённым доступом попробуй EVEREST Corporate Edition.
Сообщение отредактировал Fallcom - 12.11.2007 - 18:25 |
||
|
|||
15.11.2007 - 08:52
Сообщение
#4
|
|
Прохожий Группа: Пользователи Пользователь №: 28822 Сообщений: 30 Регистрация: 6.02.2006 Загружено: байт Скачано: байт Коэффициент: --- Спасибо сказали: 2 раз(а) |
Код strComputer = "."
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory") Dim txtResult For Each objItem in colItems Select Case objItem.FormFactor Case "0" txtResult = txtResult & " Unknown" Case "1" txtResult = txtResult & " Other" Case "2" txtResult = txtResult & " SIP" Case "3" txtResult = txtResult & " DIP" Case "4" txtResult = txtResult & " ZIP" Case "5" txtResult = txtResult & " SOJ" Case "6" txtResult = txtResult & " Proprietary" Case "7" txtResult = txtResult & " SIMM" Case "8" txtResult = " DIMM" Case "9" txtResult = txtResult & " TSOP" Case "10" txtResult = txtResult & " PGA" Case "11" txtResult = txtResult & " RIMM" Case "12" txtResult = txtResult & " SODIMM" Case "13" txtResult = txtResult & " SRIMM" Case "14" txtResult = txtResult & " SMD" Case "15" txtResult = txtResult & " SSMP" Case "16" txtResult = txtResult & " QFP" Case "17" txtResult = txtResult & " TQFP" Case "18" txtResult = txtResult & " SOIC" Case "19" txtResult = txtResult & " LCC" Case "20" txtResult = txtResult & " PLCC" Case "21" txtResult = txtResult & " BGA" Case "22" txtResult = txtResult & " FPBGA" Case "23" txtResult = txtResult & " LGA" End Select txtResult = txtResult & " " & objItem.Capacity/1024/1024 & "Мб" Select Case objItem.MemoryType Case "0" txtResult = txtResult & " Unknown" Case "1" txtResult = txtResult & " Other" Case "2" txtResult = txtResult & " DRAM" Case "3" txtResult = txtResult & " Synchronous DRAM" Case "4" txtResult = txtResult & " Cache DRAM" Case "5" txtResult = txtResult & " EDO" Case "6" txtResult = txtResult & " EDRAM" Case "7" txtResult = txtResult & " VDRAM" Case "8" txtResult = txtResult & " SRAM" Case "9" txtResult = txtResult & " RAM" Case "10" txtResult = txtResult & " ROM" Case "11" txtResult = txtResult & " Flash" Case "12" txtResult = txtResult & " EEPROM" Case "13" txtResult = txtResult & " FEPROM" Case "14" txtResult = txtResult & " EPROM" Case "15" txtResult = txtResult & " CDRAM" Case "16" txtResult = txtResult & " 3DRAM" Case "17" txtResult = txtResult & " SDRAM" Case "18" txtResult = txtResult & " SGRAM" Case "19" txtResult = txtResult & " RDRAM" Case "20" txtResult = txtResult & " DDR" Case "21" txtResult = txtResult & " DDR-2" End Select txtResult = txtResult & " " & objItem.Speed & "nanosec" txtResult = txtResult & " " & objItem.Model txtResult = txtResult & " " & objItem.OtherIdentifyingInfo WScript.Echo TRIM(txtResult) Next |
|
|
Текстовая версия | Сейчас: 25.04.2024 - 15:11 |