| Вопрос: Инфа о компе | Добавлено: 06.10.04 13:02 |
Автор вопроса:  gvozd | Web-сайт: www.gvozdsoft.com
|
| Как получить инфу о железе? |
| Ответы | Всего ответов: 16 |
|
Номер ответа: 1 Автор ответа: ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #1 | Добавлено: 06.10.04 13:21 |
|
"Говорите тожно сколько вешать в граммах" То есть о каком железе речь идет В реестре есть ветвь [B]HKEY_LOCAL_MACHINE\HARDWARE[/B] От нее и исследуй... |
||
|
Номер ответа: 2 Автор ответа:  gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #2 | Добавлено: 06.10.04 15:56 |
| К примеру ID проца. | ||
|
Номер ответа: 3 Автор ответа: ISpy Разработчик Offline Client Вопросов: 47 Ответов: 621 |
Web-сайт: Профиль | | #3 | Добавлено: 06.10.04 17:19 |
| Вроде есть dll'ки для этого. | ||
|
Номер ответа: 4 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #4 | Добавлено: 06.10.04 17:43 |
|
Ладно, я поищу где эту инфу можно раздобыть... Ненавижу сторонние DLL!  А ты что, собрался свою AIDA'у написать? (Самому когда-то хотелось...) |
||
|
Номер ответа: 5 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #5 | Добавлено: 07.10.04 10:20 |
| Макс, поищи пример GetSysInfo Половцева Александра на этом сайте - очень хороший пример!!! | ||
|
Номер ответа: 6 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #6 | Добавлено: 07.10.04 10:22 |
|
И кстати, там все на API!
|
||
|
Номер ответа: 7 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #7 | Добавлено: 07.10.04 22:34 |
для 2k и выше можно использовать WMI 
|
||
|
Номер ответа: 8 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #8 | Добавлено: 08.10.04 10:25 |
|
Ну можно и в 9x/ME...
Там на VBNet CD был установщик WMI от Мелкомягких на 9х/Ме |
||
|
Номер ответа: 9 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #9 | Добавлено: 08.10.04 17:27 |
| Что такое WMI? sne, ну ты должен знать, как инфы о компе нарыть? | ||
|
Номер ответа: 10 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #10 | Добавлено: 08.10.04 18:39 |
| у меня есть пример по WMI на шестой версии. надо? | ||
|
Номер ответа: 11 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #11 | Добавлено: 08.10.04 20:39 |
|
2gvozd, есть статья
|
||
|
Номер ответа: 12 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #12 | Добавлено: 09.10.04 10:51 |
|
sne, давай!
Александр, только для ХР? |
||
|
Номер ответа: 13 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #13 | Добавлено: 09.10.04 11:21 |
|
Александр, только для ХР?
Ну у меня на хрюшке идет... |
||
|
Номер ответа: 14 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #14 | Добавлено: 09.10.04 11:34 |
|
--------------------------------------------------------------------------------
Как получить информацию об операционной системе при помощи WMI -------------------------------------------------------------------------------- Автор: Randy Birch Компилятор: Visual Basic 5.0, 6.0 Windows Script Host встроен Microsoft Windows 98, 2000, ME и XP. Если Ваша операционная система Windows 95 или NT4, то прийдётся скачать Windows Script Host с сайта компании Microsoft http://msdn.microsoft.com/scripting/. Демонстрационный пример показывает только часть информации, которую можно получить при помощи класса Win32_OperatingSystem WMI. В конце статьи представлена таблица, содержащая список всей доступной информации об операционной системе. Добавьте на форму кнопку (Command1) и список (Listview1). Подключите билиотеку в Projects / References Microsoft WMI Scripting Library, и добавьте следующий код: -------------------------------------------------------------------------------- Option Explicit '/* следующие константы используются для изменения размеров колонок Private Const LVM_FIRST As Long = &H1000 Private Const LVM_SETCOLUMNWIDTH As Long = (LVM_FIRST + 30) Private Const LVSCW_AUTOSIZE As Long = -1 Private Const LVSCW_AUTOSIZE_USEHEADER As Long = -2 Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" _  ByVal hwnd As Long, _
ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Sub Form_Load() With ListView1 .ListItems.Clear .ColumnHeaders.Clear .ColumnHeaders.Add , , "WMI Property" .ColumnHeaders.Add , , "Value(s)" .View = lvwReport .Sorted = False End With Command1.Caption = "OS Info" End Sub Private Sub Command1_Click() ListView1.ListItems.Clear Call wmiOperatingSystemInfo Call lvAutosizeControl(ListView1) End Sub Private Sub lvAutosizeControl(lv As ListView)  im col2adjust As Long
'/* Размер каждой колонки основан на длине текста в заголовке '/* столбца. Если последующая строка шире, то вся колонка '/* подстраивается под эту ширину For col2adjust = 0 To lv.ColumnHeaders.Count - 1 Call SendMessage(lv.hwnd, _ LVM_SETCOLUMNWIDTH, _ col2adjust, _ ByVal LVSCW_AUTOSIZE_USEHEADER) Next End Sub Private Function SplitDateTimeBias(ByVal leasedate As String, _ leasedatepart As String, _ leasetimepart As String) As Long 'получаем дату и время при помощи 'Win32_NetworkAdapterConfiguration 'и разделяем на компоненты даты и времени, возвращиемые в 'переменных leasedatepart и leasetimepart im pos As Long
im bias As Long
pos = InStr(leasedate, "."
If pos > 0 Then bias = StripTimeZoneBias(leasedate) leasedatepart = Left$(leasedate, 8) leasetimepart = Mid$(leasedate, 9, pos - Len(leasedatepart) - 1) leasedatepart = InsertInString(leasedatepart, "-", 5, ""
leasedatepart = InsertInString(leasedatepart, "-", 8, ""
leasetimepart = InsertInString(leasetimepart, ":", 3, ""
leasetimepart = InsertInString(leasetimepart, ":", 6, ""
SplitDateTimeBias = bias Else End If End Function Private Function InsertInString(ByVal sOriginal As String, _ sReplace As String, _ nField As Long, _ sDelimeter As String) As String im nCount As Long
im nStart As Long
im nLast As Long
o While InStr(nStart + 1, sOriginal, sDelimeter) > 0
nStart = InStr(nStart + 1, sOriginal, sDelimeter) nCount = nCount + 1 If nCount >= nField Then Exit Do End If nLast = nStart Loop Select Case nCount Case 1 InsertInString = sReplace & Mid$(sOriginal, nStart) Case Is >= nField InsertInString = Mid$(sOriginal, 1, nLast) & _ sReplace & Mid$(sOriginal, nStart) Case Else InsertInString = sOriginal & _ String$((nField - 1) - nCount, sDelimeter) & _ sReplace End Select End Function Private Function StripTimeZoneBias(leasedate As String) As Long im pos As Long
im tmp As String
pos = InStr(leasedate, "-"
If pos = 0 Then pos = InStr(leasedate, "+"
If pos = 0 Then StripTimeZoneBias = 0 Else End If Else tmp = Mid$(leasedate, pos, Len(leasedate)) leasedate = Mid$(leasedate, 1, pos - 1) StripTimeZoneBias = CLng(tmp) End If End Function Private Sub wmiOperatingSystemInfo() im wmiObjSet As SWbemObjectSet
im obj As SWbemObject
im msg As String
im itmx As ListItem
'рабочие переменные для возвращаемых данных im dtb As String
im d As String
im t As String
im bias As Long
On Local Error Resume Next Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}" ._
InstancesOf("Win32_OperatingSystem"
For Each obj In wmiObjSet 'информация о версии Set itmx = ListView1.ListItems.Add(, , "Operating System"
itmx.SubItems(1) = obj.Caption Set itmx = ListView1.ListItems.Add(, , "Version"
itmx.SubItems(1) = obj.Version Set itmx = ListView1.ListItems.Add(, , "BuildNumber"
itmx.SubItems(1) = obj.BuildNumber Set itmx = ListView1.ListItems.Add(, , "BuildType"
itmx.SubItems(1) = obj.BuildType Set itmx = ListView1.ListItems.Add(, , "Latest Service Pack"
itmx.SubItems(1) = obj.CSDVersion Set itmx = ListView1.ListItems.Add(, , "EncryptionLevel"
itmx.SubItems(1) = obj.EncryptionLevel & "-bit" Set itmx = ListView1.ListItems.Add(, , "OSType"
Select Case obj.OSType Case 15: msg = "WIN3x" Case 16: msg = "WIN95" Case 17: msg = "WIN98" Case 18: msg = "WINNT" Case 19: msg = "WINCE" Case Else: msg = "non-windows - see MSDN for complete list" End Select itmx.SubItems(1) = msg 'информация о системе Set itmx = ListView1.ListItems.Add(, , "BootDevice"
itmx.SubItems(1) = obj.BootDevice Set itmx = ListView1.ListItems.Add(, , "RegisteredUser"
itmx.SubItems(1) = obj.RegisteredUser Set itmx = ListView1.ListItems.Add(, , "SerialNumber"
itmx.SubItems(1) = obj.SerialNumber Set itmx = ListView1.ListItems.Add(, , "Status"
itmx.SubItems(1) = obj.Status Set itmx = ListView1.ListItems.Add(, , "SystemDevice"
itmx.SubItems(1) = obj.SystemDevice Set itmx = ListView1.ListItems.Add(, , "SystemDrive"
itmx.SubItems(1) = obj.SystemDrive Set itmx = ListView1.ListItems.Add(, , "WindowsDirectory"
itmx.SubItems(1) = obj.WindowsDirectory Set itmx = ListView1.ListItems.Add(, , "SystemDirectory"
itmx.SubItems(1) = obj.SystemDirectory Set itmx = ListView1.ListItems.Add(, , "LocalDateTime"
dtb = obj.LocalDateTime bias = SplitDateTimeBias(dtb, d, t) itmx.SubItems(1) = Format$(d, "dddd mmm d, yyyy" & " " & _
Format$(t, "hh:mm" & _
" (includes " & bias & " bias)" Set itmx = ListView1.ListItems.Add(, , "InstallDate"
dtb = obj.InstallDate bias = SplitDateTimeBias(dtb, d, t) itmx.SubItems(1) = Format$(d, "dddd mmm d, yyyy" & _
" at " & _ Format$(t, "hh:mm" & _
" (includes " & bias & " bias)" Set itmx = ListView1.ListItems.Add(, , "LastBootUpTime"
dtb = obj.LastBootUpTime bias = SplitDateTimeBias(dtb, d, t) itmx.SubItems(1) = Format$(d, "dddd mmm d, yyyy" & _
" at " & _ Format$(t, "hh:mm" & _
" (includes " & bias & " bias)" 'страна, язык, временная зона Set itmx = ListView1.ListItems.Add(, , "OSLanguage"
itmx.SubItems(1) = obj.OSLanguage Set itmx = ListView1.ListItems.Add(, , "CodeSet"
itmx.SubItems(1) = obj.CodeSet Set itmx = ListView1.ListItems.Add(, , "Locale"
itmx.SubItems(1) = obj.Locale Set itmx = ListView1.ListItems.Add(, , "CountryCode"
itmx.SubItems(1) = obj.CountryCode Set itmx = ListView1.ListItems.Add(, , "CurrentTimeZone"
itmx.SubItems(1) = obj.CurrentTimeZone 'информация о использовании памяти Set itmx = ListView1.ListItems.Add(, , "ForegroundApplicationBoost"
Select Case obj.ForegroundApplicationBoost Case 0: msg = "none" Case 1: msg = "minimum" Case 2: msg = "maximum (default)" End Select itmx.SubItems(1) = msg Set itmx = ListView1.ListItems.Add(, , "TotalVisibleMemorySize"
itmx.SubItems(1) = FormatNumber(obj.TotalVisibleMemorySize, 0) Set itmx = ListView1.ListItems.Add(, , "FreePhysicalMemory"
itmx.SubItems(1) = FormatNumber(obj.FreePhysicalMemory, 0) Set itmx = ListView1.ListItems.Add(, , "TotalVirtualMemorySize"
itmx.SubItems(1) = FormatNumber(obj.TotalVirtualMemorySize, 0) Set itmx = ListView1.ListItems.Add(, , "FreeVirtualMemory"
itmx.SubItems(1) = FormatNumber(obj.FreeVirtualMemory, 0) Set itmx = ListView1.ListItems.Add(, , "FreeSpaceInPagingFiles"
itmx.SubItems(1) = FormatNumber(obj.FreeSpaceInPagingFiles, 0) Set itmx = ListView1.ListItems.Add(, , "SizeStoredInPagingFiles"
itmx.SubItems(1) = FormatNumber(obj.SizeStoredInPagingFiles, 0) Next End Sub Ниже приведена вся информация, возвращаемая классом Win32_OperatingSystem (некоторые операционные системы могут возвращать не всю информацию, предесмотренную данным классом): string BootDevice string BuildNumber string BuildType string Caption string CodeSet string CountryCode string CreationClassName string CSCreationClassName string CSDVersion string CSName sint16 CurrentTimeZone boolean Debug string Description boolean Distributed string EncryptionLevel uint8 ForegroundApplicationBoost uint64 FreePhysicalMemory uint64 FreeSpaceInPagingFiles uint64 FreeVirtualMemory datetime InstallDate datetime LastBootUpTime datetime LocalDateTime string Locale string Manufacturer uint32 MaxNumberOfProcesses uint64 MaxProcessMemorySize string Name uint32 NumberOfLicensedUsers uint32 NumberOfProcesses uint32 NumberOfUsers string Organization uint32 OSLanguage uint32 OSProductSuite uint16 OSType string OtherTypeDescription string PlusProductID string PlusVersionNumber boolean Primary uint8 QuantumLength uint8 QuantumType string RegisteredUser string SerialNumber uint16 ServicePackMajorVersion uint16 ServicePackMinorVersion uint64 SizeStoredInPagingFiles string Status string SystemDevice string SystemDirectory string SystemDrive uint64 TotalSwapSpaceSize uint64 TotalVirtualMemorySize uint64 TotalVisibleMemorySize string Version string WindowsDirectory -------------------------------------------------------------------------------- WWW.ИСХОДНИКИ.РУ |
||
|
Номер ответа: 15 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #15 | Добавлено: 09.10.04 11:39 |
|
Я об этой статье и говорил.
|
||