wmi

@testerka · Регистрация: 19.09.2010

Author24 — интернет-сервис помощи студентам

модель процессора: производителя, название и тип, количество процессоров, его тактовую частоту, а так же версию BIOS и производителя материнской платы

Объем кэш-памяти процессора и основные поддерживаемые технологии (наличие FPU, MMX, SSEx, 3DNow!, HyperThreading, 64-х или 32-х битный)

Загрузку памяти системы. Полный объем физический и виртуальной памяти, сколько памяти занято и свободно каждого типа.

Полное название ОС, номер версии ОС, установленный Service Pack, версию сборки

Название текущего принтера (если он установлен)

Добавлено через 43 секунды
накидайте исходов, у кого что есть плиз

@XIST · 18.11.2010, 20:12

Серійный номер BIOS

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Computer As String 
Dim WMI As Variant 
Dim Items As Variant 
Dim Item As Variant 
 
Computer = "." 
Set WMI = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2") 
Set Items = WMI.ExecQuery("Select * from Win32_BIOS") 
 
For Each Item In Items 
Debug.Print Item.SerialNumber 
Next

Проца

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Computer As String 
Dim WMI As Variant 
Dim Items As Variant 
Dim Item As Variant 
 
Computer = "." 
Set WMI = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2") 
Set Items = WMI.ExecQuery("Select * from Win32_Processor") 
 
For Each Item In Items 
Debug.Print Item.ProcessorId 
Next

Вроде так

@NickoTin · 18.11.2010, 21:47

Сообщение от testerka

Загрузку памяти системы. Полный объем физический и виртуальной памяти, сколько памяти занято и свободно каждого типа.

API GlobalMemoryStatusEx.

Сообщение от testerka

Полное название ОС, номер версии ОС, установленный Service Pack, версию сборки

Environment.OSVersion или если надо чуть больше, то API GetVersionEx. Полное имя составляешь сам, в соответствии с таблицей, либо через WMI.

Добавлено через 7 минут

Сообщение от testerka

64-х или 32-х битный

C#
1
IntPtr.Size // == 4, значит 32, иначе 64

@XIST · 18.11.2010, 21:58

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
Imports System.Runtime.InteropServices
Public Class OS_VER
#Region "STRUCTS AND ENUMS"
 
    <StructLayout(LayoutKind.Sequential)> _
      Public Structure OSVERSIONINFO
        Public dwOSVersionInfoSize As Int32      'Size = 148
        Public dwMajorVersion As Int32
        Public dwMinorVersion As Int32
        Public dwBuildNumber As Int32
        Public dwPlatformID As Int32
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> _
        Public szCSDVersion As String        ' * 128
    End Structure
 
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure OSVERSIONINFOEX
        Public dwOSVersionInfoSize As Int32      'Size = 156
        Public dwMajorVersion As Int32
        Public dwMinorVersion As Int32
        Public dwBuildNumber As Int32
        Public dwPlatformID As Int32
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> _
        Public szCSDVersion As String        ' * 128
        Public wServicePackMajor As Short
        Public wServicePackMinor As Short
        Public wSuiteMask As Short
        Public wProductType As Byte
        Public wReserved As Byte
    End Structure
 
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure SYSTEM_INFO
        Public dwOemID As Int32
        Public dwPageSize As Int32
        Public wProcessorArchitecture As Int32
        Public lpMinimumApplicationAddress As Int32
        Public lpMaximumApplicationAddress As Int32
        Public dwActiveProcessorMask As Int32
        Public dwNumberOrfProcessors As Int32
        Public dwProcessorType As Int32
        Public dwAllocationGranularity As Int32
        Public dwReserved As Int32
    End Structure
 
    Public Enum WinSuiteMask As Integer
        VER_SUITE_SMALLBUSINESS = &H1          'Microsoft Small Business Server was once installed on the system, but may have been upgraded to another version of Windows. Refer to the Remarks section for more information about this bit flag.
        VER_SUITE_ENTERPRISE = &H2       'Windows Server "Longhorn", Enterprise Edition, Windows Server 2003, Enterprise Edition, Windows 2000 Advanced Server, or Windows NT Server 4.0 Enterprise Edition is installed. Refer to the Remarks section for more information about this bit flag.
        VER_SUITE_BACKOFFICE = &H4       'Microsoft BackOffice components are installed.
        VER_SUITE_COMMUNICATIONS = &H8
        VER_SUITE_TERMINAL = &H10       'Terminal Services is installed. This value is always set. If VER_SUITE_TERMINAL is set but VER_SUITE_SINGLEUSERTS is not set, the system is running in application server mode.
        VER_SUITE_SMALLBUSINESS_RESTRICTED = &H20         'Microsoft Small Business Server is installed with the restrictive client license in force. Refer to the Remarks section for more information about this bit flag.
        VER_SUITE_EMBEDDEDNT = &H40       'Windows XP Embedded is installed.
        VER_SUITE_DATACENTER = &H80       'Windows Server "Longhorn", Datacenter Edition, Windows Server 2003, Datacenter Edition or Windows 2000 Datacenter Server is installed.
        VER_SUITE_SINGLEUSERTS = &H100        'Remote Desktop is supported, but only one interactive session is supported. This value is set unless the system is running in application server mode.
        VER_SUITE_PERSONAL = &H200      'Windows Vista Home Premium, Windows Vista Home Basic, or Windows XP Home Edition is installed.
        VER_SUITE_BLADE = &H400     'Windows Server 2003, Web Edition is installed.
        VER_SUITE_STORAGE_SERVER = &H2000        'Windows Storage Server 2003 R2 or Windows Storage Server 2003 is installed.
        VER_SUITE_COMPUTE_SERVER = &H4000        'Windows Server 2003, Compute Cluster Edition is installed.
    End Enum
 
    Public Enum WinPlatform As Byte
        VER_NT_WORKSTATION = 1
        VER_NT_DOMAIN_CONTROLLER = 2
        VER_NT_SERVER = 3
    End Enum
 
    Private Sub OS_VER_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
 
    Public Enum OSMajorVersion As Byte
        VER_OS_NT4 = 4        'The operating system is Windows NT 4.0.
        VER_OS_2K_XP_2K3 = 5          'The operating system is Windows Server 2003 R2, Windows Server 2003, Windows XP, or Windows 2000.
        VER_OS_VISTA_LONGHORN = 6         'The operating system is Windows Vista or Windows Server "Longhorn".
    End Enum
 
#End Region
 
#Region "DLLS AND CONSTS"
 
    <DllImport("kernel32", EntryPoint:="GetVersion")> _
      Private Shared Function GetVersionAdv(ByRef lpVersionInformation As OSVERSIONINFO) As Int32
    End Function
 
    <DllImport("kernel32", EntryPoint:="GetVersionEx")> _
    Private Shared Function GetVersionEx(ByRef lpVersionInformation As OSVERSIONINFOEX) As Int32
    End Function
 
    <DllImport("kernel32", EntryPoint:="GetLastError")> _
    Private Shared Function GetLastError() As Int32
    End Function
 
    <DllImport("user32", EntryPoint:="GetSystemMetrics")> _
    Private Shared Function GetSystemMetrics(ByVal nIndex As Int32) As Int32
    End Function
 
    <DllImport("kernel32", EntryPoint:="GetSystemInfo")> _
    Private Shared Function GetSystemInfo(ByRef lpSystemInfo As SYSTEM_INFO) As Int32
    End Function
 
    Private Const SM_SERVERR2 As Int32 = 89
    Private Const SM_MEDIACENTER As Int32 = 87
    Private Const SM_TABLETPC As Int32 = 86
 
#End Region
 
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
        Form1.Show()
    End Sub
 
    Private Sub btnDetectOS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetectOS.Click
        txtDetectOS.Text = GetOSPlatVerType()
    End Sub
 
    Private Function GetOSPlatVerType() As String
        'Windows Server "Longhorn" 6.0 
        'Windows Vista 6.0 
        'Windows Server 2003 R2 5.2 
        'Windows Server 2003 5.2
        'Windows XP Professional x64 Edition 5.2
        'Windows XP Pro 5.1
        'Windows XP Home 5.1
        'Windows Server 2000 5.0
        'Windows 2000 Pro 5.0 
        'Windows ME 4.90
        'Windows 98 4.10
        'Windows 95 4.0
        'Windows NT4 4.0
        Dim osvi As OSVERSIONINFO = New OSVERSIONINFO
        Dim xosvi As OSVERSIONINFOEX = New OSVERSIONINFOEX
        Dim iRet As Int32 = 0
        Dim strDetails As String = String.Empty
        osvi.dwOSVersionInfoSize = Marshal.SizeOf(GetType(OSVERSIONINFO))
        xosvi.dwOSVersionInfoSize = Marshal.SizeOf(GetType(OSVERSIONINFOEX))
        Try
            iRet = System.Environment.OSVersion.Platform
            If iRet = 1 Then
                iRet = GetVersionAdv(osvi)
                strDetails = Environment.NewLine & "Version: " & _
                osvi.dwMajorVersion & "." & osvi.dwMinorVersion & "." & osvi.dwBuildNumber & _
                Environment.NewLine & osvi.szCSDVersion
                Select Case Len(osvi)
                    Case 0
                        Return "Windows 95" & strDetails
                    Case 10
                        Return "Windows 98" & strDetails
                    Case 9
                        Return "Windows ME" & strDetails
                End Select
            Else             '2 (NT)
                iRet = GetVersionEx(xosvi)
                strDetails = Environment.NewLine & "Version: " & _
                xosvi.dwMajorVersion & "." & xosvi.dwMinorVersion & "." & xosvi.dwBuildNumber & Environment.NewLine & _
                xosvi.szCSDVersion & " (" & xosvi.wServicePackMajor & "." & xosvi.wServicePackMinor & ")"
                Select Case xosvi.dwMajorVersion
                    Case OSMajorVersion.VER_OS_NT4
                        Return "Windows NT 4" & strDetails
                    Case OSMajorVersion.VER_OS_2K_XP_2K3
                        Select Case xosvi.dwMinorVersion
                            Case 0
                                '2000
                                Select Case xosvi.wProductType
                                    Case WinPlatform.VER_NT_WORKSTATION
                                        Return "Windows 2000 Pro" & strDetails
                                    Case WinPlatform.VER_NT_SERVER
                                        If (xosvi.wSuiteMask And WinSuiteMask.VER_SUITE_DATACENTER) = WinSuiteMask.VER_SUITE_DATACENTER Then
                                            Return "Windows 2000 Datacenter Server" & strDetails
                                        ElseIf (xosvi.wSuiteMask And WinSuiteMask.VER_SUITE_ENTERPRISE) = WinSuiteMask.VER_SUITE_ENTERPRISE Then
                                            Return "Windows 2000 Advanced Server" & strDetails
                                        ElseIf (xosvi.wSuiteMask And WinSuiteMask.VER_SUITE_SMALLBUSINESS) = WinSuiteMask.VER_SUITE_SMALLBUSINESS Then
                                            Return "Windows 2000 Small Business Server" & strDetails
                                        Else
                                            Return "Windows 2000 Server" & strDetails
                                        End If
                                    Case WinPlatform.VER_NT_DOMAIN_CONTROLLER
                                        If (xosvi.wSuiteMask And WinSuiteMask.VER_SUITE_DATACENTER) = WinSuiteMask.VER_SUITE_DATACENTER Then
                                            Return "Windows 2000 Datacenter Server Domain Controller" & strDetails
                                        ElseIf (xosvi.wSuiteMask And WinSuiteMask.VER_SUITE_ENTERPRISE) = WinSuiteMask.VER_SUITE_ENTERPRISE Then
                                            Return "Windows 2000 Advanced Server Domain Controller" & strDetails
                                        ElseIf (xosvi.wSuiteMask And WinSuiteMask.VER_SUITE_SMALLBUSINESS) = WinSuiteMask.VER_SUITE_SMALLBUSINESS Then
                                            Return "Windows 2000 Small Business Server Domain Controller" & strDetails
                                        Else
                                            Return "Windows 2000 Server Domain Controller" & strDetails
                                        End If
                                End Select
                            Case 1
                                'XP
                                If (xosvi.wSuiteMask And WinSuiteMask.VER_SUITE_PERSONAL) = WinSuiteMask.VER_SUITE_PERSONAL Then
                                    Return "Windows XP Home Edition" & strDetails
                                Else
                                    Return "Windows XP Professional Edition" & strDetails
                                End If
                            Case 2
                                '2003/Vista
                                Select Case xosvi.wProductType
                                    Case WinPlatform.VER_NT_WORKSTATION
                                        Return "Windows XP Professional x64 Edition" & strDetails
                                    Case WinPlatform.VER_NT_SERVER
                                        If GetSystemMetrics(SM_SERVERR2) = 1 Then
                                            Return "Windows Server 2003 R2" & strDetails
                                        Else
                                            Return "Windows Server 2003" & strDetails
                                        End If
                                    Case WinPlatform.VER_NT_DOMAIN_CONTROLLER
                                        If GetSystemMetrics(SM_SERVERR2) = 1 Then
                                            Return "Windows Server 2003 R2 Domain Controller" & strDetails
                                        Else
                                            Return "Windows Server 2003 Domain Controller" & strDetails
                                        End If
                                End Select
                        End Select
                    Case OSMajorVersion.VER_OS_VISTA_LONGHORN
                        If xosvi.wProductType = WinPlatform.VER_NT_WORKSTATION Then
                            If (xosvi.wSuiteMask And WinSuiteMask.VER_SUITE_PERSONAL) = WinSuiteMask.VER_SUITE_PERSONAL Then
                                Return "Windows Vista (Home Premium, Home Basic, or Home Ultimate) Edition"
                            Else
                                Return "Windows Vista (Enterprize or Business)" & strDetails
                            End If
                        Else
                            Return "Windows Server (Longhorn)" & strDetails
                        End If
                End Select
            End If
        Catch
            MessageBox.Show(GetLastError.ToString)
            Return String.Empty
        End Try
        End
    End Function
End Class

@NickoTin · 18.11.2010, 22:36

Сообщение от testerka

Объем кэш-памяти процессора

можно узнать с помощью API GetLogicalProcessorInformation(Ex).

Добавлено через 7 минут

Сообщение от SSTREGG

64-х или 32-х битный
Код C#
1
IntPtr.Size // == 4, значит 32, иначе 64

Сорри, это относится к ОС. Глюкануло случайно

Добавлено через 5 минут

Сообщение от testerka

Название текущего принтера (если он установлен)

API GetDefaultPrinter. Если понадобится перечисление, то EnumPrinters.

Добавлено через 7 минут
Если что, часть API можно заменить стандартными классами .NET, вот описание аналогов (обёрток).

@testerka · 18.11.2010, 23:39 **[ТС]**

C#
1
2
3
4
5
6
7
8
9
10
            //операцоинная система
            using (ManagementObjectSearcher searcher = new ManagementObjectSearcher("root\\CIMV2", "SELECT * FROM Win32_OperatingSystem"))
            {
                foreach (ManagementObject queryObj in searcher.Get())
                {
                    Console.WriteLine("Name of the operating system: {0}", queryObj["Caption"]);
                    Console.WriteLine("Number to versions and assemblies of the operating system: {0}", queryObj["Version"]);
                    Console.WriteLine("Version of the service pack: {0}", queryObj["ServicePackMajorVersion"]);
                }
            }

Добавлено через 17 секунд

C#
1
2
3
4
5
6
7
            //принтер
            using (ManagementObjectSearcher searcher = new ManagementObjectSearcher("root\\CIMV2", "SELECT * FROM Win32_Printer"))
            {
                foreach (ManagementObject queryObj in searcher.Get())
                    if ((bool)queryObj["Default"])
                        Console.WriteLine("Printer by default: {0}", queryObj["Name"]);
            }

Добавлено через 15 минут

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
            //память
            Console.WriteLine();
            using (ManagementObjectSearcher searcher = new ManagementObjectSearcher("root\\CIMV2", "SELECT * FROM Win32_PhysicalMemory"))
            {
                foreach (ManagementObject queryObj in searcher.Get())
                {
                    Console.WriteLine("Full volume to physical memory: {0}", queryObj["Capacity"]);
                    using (ManagementObjectSearcher searcher1 = new ManagementObjectSearcher("root\\CIMV2", "SELECT * FROM Win32_OperatingSystem"))
                    {
                        foreach (ManagementObject queryObj1 in searcher1.Get())
                        {
                            Console.WriteLine("Volume to occupied physical memory: {0}", (UInt64)queryObj["Capacity"] - (UInt64)queryObj1["FreePhysicalMemory"]);
                            Console.WriteLine("Volume to free physical memory: {0}", queryObj1["FreePhysicalMemory"]);
                        }
                    }
                }
            }
            Console.WriteLine();
            using (ManagementObjectSearcher searcher = new ManagementObjectSearcher("root\\CIMV2", "SELECT * FROM Win32_OperatingSystem"))
            {
                foreach (ManagementObject queryObj in searcher.Get())
                {
                    Console.WriteLine("Full volume to virtual memory: {0}", queryObj["TotalVirtualMemorySize"]);
                    Console.WriteLine("Volume to occupied virtual memory: {0}", (UInt64)queryObj["TotalVirtualMemorySize"] - (UInt64)queryObj["FreeVirtualMemory"]);
                    Console.WriteLine("Volume to free virtual memory: {0}", queryObj["FreeVirtualMemory"]);
                }
            }

Добавлено через 16 минут

C#
1
2
3
4
5
6
7
8
9
10
11
            //кэш-память
            Console.WriteLine();
            using (ManagementObjectSearcher searcher = new ManagementObjectSearcher("root\\CIMV2", "SELECT * FROM Win32_CacheMemory"))
            {
                int x = 1;
                foreach (ManagementObject queryObj in searcher.Get())
                {
                    Console.WriteLine("size of the cache {0} level: {1}", x,queryObj["InstalledSize"]);
                    x++;
                }
            }

28.12.2010, 14:37

а как это будет выглядеть на С++?

@testerka · 05.01.2011, 10:34 **[ТС]**

http://msdn.microsoft.com/en-u... 85%29.aspx
http://msdn.microsoft.com/en-u... 85%29.aspx
WMI и Dev-C++

вот посмотри

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

@testerka 1 / 1 / 0 Регистрация: 19.09.2010 Сообщений: 44

	wmi 18.11.2010, 20:06. Показов 4818. Ответов 7 Метки нет (Все метки) модель процессора: производителя, название и тип, количество процессоров, его тактовую частоту, а так же версию BIOS и производителя материнской платы Объем кэш-памяти процессора и основные поддерживаемые технологии (наличие FPU, MMX, SSEx, 3DNow!, HyperThreading, 64-х или 32-х битный) Загрузку памяти системы. Полный объем физический и виртуальной памяти, сколько памяти занято и свободно каждого типа. Полное название ОС, номер версии ОС, установленный Service Pack, версию сборки Название текущего принтера (если он установлен) Добавлено через 43 секунды накидайте исходов, у кого что есть плиз 0

extrame
	28.12.2010, 14:37
	а как это будет выглядеть на С++?

@testerka 1 / 1 / 0 Регистрация: 19.09.2010 Сообщений: 44
	05.01.2011, 10:34 [ТС]
	http://msdn.microsoft.com/en-u... 85%29.aspx http://msdn.microsoft.com/en-u... 85%29.aspx WMI и Dev-C++ вот посмотри 0