通过WMI获取BIOS、主板、硬盘、CPU、网卡等电脑硬件信息，常见的源代码是高级程序设计语言如C++、Dephi，或者VBScript脚本编写的，用MASM32编程来实现相对来说要难得多，知难而上，不亦乐乎！
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; 文 件 名：WmiInfo.asm (控制台程序)
; 功 能: 通过WMI获取BIOS版本和序列号，主板序列号，
; 硬盘序列号，CPU ID，网卡MAC
; 开发环境：Win XP PRO SP3 + MASM32 v8
; 作 者：PurpleEndurer, 2009-10-21，广西河池
;
; 源代码和EXE下载地址：; 2、http://purpleendurer.ys168.com/;
; log
; --------------------------------------------------
; 2009-10-21 完成
; 2009-10-20 可以获取BIOS信息
; 2009-10-19 开始编写
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
.586
.MODEL FLAT,STDCALL
OPTION CASEMAP:NONE
INCLUDE /masm32/include/windows.inc
INCLUDE /masm32/include/kernel32.inc
INCLUDELIB /masm32/lib/kernel32.lib
INCLUDE /masm32/include/ole32.inc
INCLUDELIB /masm32/lib/ole32.lib
INCLUDE /masm32/include/user32.inc
INCLUDELIB /masm32/lib/user32.lib
INCLUDE /masm32/include/masm32.inc
INCLUDELIB /masm32/lib/masm32.lib
GetWmiInfo proto :LPWSTR, :LPSTR, :LPSTR
g_debug equ 0
; located in ObjIdl.h
EOAC_NONE EQU 0
COINIT_MULTITHREADED equ 00h
; located in RpcDce.h
RPC_C_AUTHN_LEVEL_DEFAULT EQU 0
RPC_C_IMP_LEVEL_DEFAULT EQU 0
RPC_C_IMP_LEVEL_IMPERSONATE EQU 3
GUID2 STRUC
dd1 DWORD ?
dw1 WORD ?
dw2 WORD ?
db1 BYTE ?
db2 BYTE ?
db3 BYTE ?
db4 BYTE ?
db5 BYTE ?
db6 BYTE ?
db7 BYTE ?
db8 BYTE ?
GUID2 ENDS
IWbemLocator STRUCT
lpVtbl DWORD ?
IWbemLocator ENDS
IWbemLocatorVtbl STRUCT
QueryInterface DWORD ?
AddRef DWORD ?
Release DWORD ?
ConnectServer DWORD ?
IWbemLocatorVtbl ENDS
IWbemServices STRUCT
lpVtbl DWORD ?
IWbemServices ENDS
IWbemServicesVtbl STRUCT
QueryInterface DWORD ?
AddRef DWORD ?
Release DWORD ?
OpenNamespace DWORD ?
CancelAsyncCall DWORD ?
QueryObjectSink DWORD ?
GetObject DWORD ?
GetObjectAsync DWORD ?
PutClass DWORD ?
PutClassAsync DWORD ?
DeleteClass DWORD ?
DeleteClassAsync DWORD ?
CreateClassEnum DWORD ?
CreateClassEnumAsync DWORD ?
PutInstance DWORD ?
PutInstanceAsync DWORD ?
DeleteInstance DWORD ?
DeleteInstanceAsync DWORD ?
CreateInstanceEnum DWORD ?
CreateInstanceEnumAsync DWORD ?
ExecQuery DWORD ?
ExecQueryAsync DWORD ?
ExecNotificationQuery DWORD ?
ExecNotificationQueryAsync DWORD ?
ExecMethod DWORD ?
ExecMethodAsync DWORD ?
IWbemServicesVtbl ENDS
IEnumWbemClassObject STRUCT
lpVtbl DWORD ?
IEnumWbemClassObject ENDS
IEnumWbemClassObjectVtbl STRUCT
QueryInterface DWORD ?
AddRef DWORD ?
Release DWORD ?
Reset DWORD ?
Next DWORD ?
NextAsync DWORD ?
Clone DWORD ?
Skip DWORD ?
IEnumWbemClassObjectVtbl ENDS
IWbemClassObject STRUCT
lpVtbl DWORD ?
IWbemClassObject ENDS
IWbemClassObjectVtbl STRUCT
QueryInterface DWORD ?
AddRef DWORD ?
Release DWORD ?
GetQualifierSet DWORD ?
Get DWORD ?
Put DWORD ?
Delete DWORD ?
GetNames DWORD ?
BeginEnumeration DWORD ?
Next DWORD ?
EndEnumeration DWORD ?
GetPropertyQualifierSet DWORD ?
GetObjectText DWORD ?
SpawnDerivedClass DWORD ?
SpawnInstance DWORD ?
CompareTo DWORD ?
GetPropertyOrigin DWORD ?
InheritsFrom DWORD ?
GetMethod DWORD ?
PutMethod DWORD ?
DeleteMethod DWORD ?
BeginMethodEnumeration DWORD ?
NextMethod DWORD ?
EndMethodEnumeration DWORD ?
GetMethodQualifierSet DWORD ?
GetMethodOrigin DWORD ?
IWbemClassObjectVtbl ENDS
SAFEARRAYBOUND struct
cElements dd ? ;这一维有多少个元素？
lLbound dd ? ;它的索引从几开始？
SAFEARRAYBOUND ends
SAFEARRAY struct
cDims dw ? ;Count of dimensions in this array.这个数组有几维？
fFeatures dw ? ;Flags used by the SafeArray routines documented below. 数组有什么特性？
cbElements dd ? ;Size of an element of the array. Does not include size of pointed-to data.
;数组的每个元素有多大?
cLocks dd ? ;Number of times the array has been locked without corresponding unlock.
;这个数组被锁定过几次？
pvData dd ? ;Pointer to the data. 数组里的数据放在什么地方？
rgsabound SAFEARRAYBOUND <> ;One bound for each dimension.真数组
SAFEARRAY ends
;ssssssssssssssssssssssss
.DATA
;ssssssssssssssssssssssss
g_wszSelect WORD "S","E","L","E","C","T"," ","*"," ","F","R","O","M"," ", 0
g_szBiosVerion db 0dh, 0ah, "BIOS版本信息：", 0
g_wszWin32_BIOS word "W", "i", "n", "3", "2", "_", "B", "I", "O", "S", 0
g_wszBIOSVerstion word "B", "I", "O", "S", "V", "e", "r", "s", "i", "o", "n", 0
g_szBiosSerialNumber db 0dh, 0ah, "BIOS序列号：", 0
g_szHDDSerialNum db 0dh, 0ah, "硬盘序列号：", 0
g_wszWin32_PhysicalMedia word "W", "i", "n", "3", "2", "_"
WORD "P", "h", "y", "s", "i", "c", "a", "l", "M", "e", "d", "i", "a", 0
g_wszSerialNumber word "S", "e", "r", "i", "a", "l", "N", "u", "m", "b", "e", "r", 0
g_szBaseBoardSerialNum db 0dh, 0ah, "主板序列号：", 0
g_wszWin32_BaseBoard word "W", "i", "n", "3", "2", "_", "B", "a", "s", "e", "B", "o", "a", "r", "d", 0
g_szCpuId db 0dh, 0ah, "CPU ID：", 0
g_wszWin32_Processor word "W", "i", "n", "3", "2", "_", "P", "r", "o", "c", "e", "s", "s", "o", "r", 0
g_wszProcessorId word "P", "r", "o", "c", "e", "s", "s", "o", "r", "I", "d", 0
g_szNidMac db 0dh, 0ah, "网卡 MAC：", 0
g_wszWin32_NetworkAdapter word "W", "i", "n", "3", "2", "_"
WORD "N", "e", "t", "w", "o", "r", "k", "A", "d", "a", "p", "t", "e", "r", 0
g_wszMACAddress word "M", "A", "C", "A", "d", "d", "r", "e", "s", "s", 0
g_wszNameSpace word "r", "o", "o", "t", "/", "c", "i", "m", "v", "2", 0
g_wszQueryLanguage word "W", "Q", "L", 0
g_szAppInfo db "通过WMI获取硬件信息", 0dh ,0ah
db "作 者：PurpleEndurer, 2009-10-21，广西河池", 0dh ,0ah, 0
g_szPerSCr db "%S"
g_szCrLf db 0dh, 0ah, 0
g_szFail db "Fail", 0
; located in WbemCli.h
WBEM_FLAG_CONNECT_USE_MAX_WAIT EQU 80h
WBEM_FLAG_FORWARD_ONLY EQU 20h
WBEM_INFINITE EQU -1
WBEM_E_INVALID_QUERY EQU 80041017h
WBEM_E_INVALID_QUERY_TYPE EQU 80041018h
IID_IWbemLocator GUID2 <0dc12a687h,0737fh,011cfh,088h,04dh,000h,0aah,000h,04bh,02eh,024h>
IID_IEnumWbemClassObject GUID2 <027947e1h,0d731h,011ceh,0a3h,057h,000h,000h,000h,000h,000h,001h>
IID_IWbemClassObject GUID2 <0dc12a681h,0737fh,011cfh,088h,04dh,000h,0aah,000h,04bh,02eh,024h>
; located in WbemProv.h
CLSID_WbemAdministrativeLocator GUID2 <0cb8555cch,09128h,011d1h,0adh,09bh,000h,0c0h,04fh,0d8h,0fdh,0ffh>
locator IWbemLocator <>
service IWbemServices <>
enumerator IEnumWbemClassObject <>
processor IWbemClassObject <>
retCount DWORD ?
var_val DWORD ?
DWORD ?
DWORD ?
DWORD ?
wszQuery WORD 256 dup(?)
g_szBuf512 byte 512 dup(?)
;ssssssssssssssssssssssss
.CODE
;ssssssssssssssssssssssss
start:
invoke CoInitializeEx, NULL, COINIT_MULTITHREADED
invoke CoInitializeSecurity, NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_DEFAULT,/
RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL
invoke CoCreateInstance, ADDR CLSID_WbemAdministrativeLocator, NULL,/
CLSCTX_INPROC_SERVER, ADDR IID_IWbemLocator, ADDR locator
invoke StdOut, ADDR g_szAppInfo
invoke StdOut, ADDR g_szBiosVerion
mov byte ptr g_szBuf512, NULL
invoke GetWmiInfo, ADDR g_wszWin32_BIOS, ADDR g_wszBIOSVerstion, ADDR g_szBuf512
.if byte ptr g_szBuf512 != NULL
invoke StdOut, ADDR g_szBuf512
.else
invoke StdOut, ADDR g_szFail
.endif
invoke StdOut, ADDR g_szBiosSerialNumber
mov byte ptr g_szBuf512, NULL
invoke GetWmiInfo, ADDR g_wszWin32_BIOS, ADDR g_wszSerialNumber, ADDR g_szBuf512
.if byte ptr g_szBuf512 != NULL
invoke StdOut, ADDR g_szBuf512
.else
invoke StdOut, ADDR g_szFail
.endif
invoke StdOut, ADDR g_szHDDSerialNum
mov byte ptr g_szBuf512, NULL
invoke GetWmiInfo, ADDR g_wszWin32_PhysicalMedia, ADDR g_wszSerialNumber, ADDR g_szBuf512
.if byte ptr g_szBuf512 != NULL
invoke StdOut, ADDR g_szBuf512
.else
invoke StdOut, ADDR g_szFail
.endif
invoke StdOut, ADDR g_szBaseBoardSerialNum
mov byte ptr g_szBuf512, NULL
invoke GetWmiInfo, ADDR g_wszWin32_BaseBoard, ADDR g_wszSerialNumber, ADDR g_szBuf512
.if byte ptr g_szBuf512 != NULL
invoke StdOut, ADDR g_szBuf512
.else
invoke StdOut, ADDR g_szFail
.endif
invoke StdOut, ADDR g_szCpuId
mov byte ptr g_szBuf512, NULL
invoke GetWmiInfo, ADDR g_wszWin32_Processor, ADDR g_wszProcessorId, ADDR g_szBuf512
.if byte ptr g_szBuf512 != NULL
invoke StdOut, ADDR g_szBuf512
.else
invoke StdOut, ADDR g_szFail
.endif
invoke StdOut, ADDR g_szNidMac
mov byte ptr g_szBuf512, NULL
invoke GetWmiInfo, ADDR g_wszWin32_NetworkAdapter, ADDR g_wszMACAddress, ADDR g_szBuf512
.if byte ptr g_szBuf512 != NULL
invoke StdOut, ADDR g_szBuf512
.else
invoke StdOut, ADDR g_szFail
.endif
invoke CoUninitialize
invoke ExitProcess, 0
GetWmiInfo proc lpwszType: LPWSTR, lpwszItem: LPSTR, lpszBuf: LPSTR
LOCAL wszbuf[256]: word
invoke lstrcpyW, ADDR wszQuery, ADDR g_wszSelect
invoke lstrcatW, ADDR wszQuery, lpwszType
mov esi, locator
lodsd
push OFFSET service
push NULL
push NULL
push WBEM_FLAG_CONNECT_USE_MAX_WAIT
push NULL
push NULL
push NULL
push OFFSET g_wszNameSpace
push DWORD PTR [locator]
call DWORD PTR [eax][IWbemLocatorVtbl.ConnectServer]
mov esi, service
lodsd
push OFFSET enumerator
push NULL
push WBEM_FLAG_FORWARD_ONLY
push OFFSET wszQuery
push OFFSET g_wszQueryLanguage
push DWORD PTR [service]
call DWORD PTR [eax][IWbemServicesVtbl.ExecQuery]
mov esi, enumerator
lodsd
push OFFSET retCount
push OFFSET processor
push TRUE
push WBEM_INFINITE
push DWORD PTR [enumerator]
call DWORD PTR [eax][IEnumWbemClassObjectVtbl.Next]
mov esi, processor
lodsd
push NULL
push NULL
push OFFSET var_val
push 0
push lpwszItem
push DWORD PTR [processor]
call DWORD PTR [eax][IWbemClassObjectVtbl.Get]
if g_debug eq 1
jmp @F
g_sz1 db 0dh, 0ah, "eax=%d, ecx=%x, esi=%x, edi=%x", 0dh, 0ah, 0
@@:
mov esi, [var_val]
mov edi, [var_val + 4]
mov ecx, [var_val + 8]
mov eax, [var_val + 12]
pushad
invoke wsprintf, ADDR wszbuf, ADDR g_sz1, eax, ecx, esi, edi
invoke StdOut, ADDR wszbuf
popad
endif ;g_debug eq 1
mov eax, [var_val]
test eax, VT_BSTR
.if !ZERO?
test eax, VT_ARRAY
.IF !ZERO?
mov ecx, [var_val + 8]
mov esi,[ecx].SAFEARRAY.pvData
mov edi,[ecx].SAFEARRAY.rgsabound.cElements
if g_debug eq 1
movzx eax, [ecx].SAFEARRAY.cDims
mov ecx,[ecx].SAFEARRAY.rgsabound.lLbound
pushad
invoke wsprintf, ADDR wszbuf, ADDR g_sz1, eax, ecx, esi, edi
invoke StdOut, ADDR wszbuf
popad
endif ;g_debug eq 1
.repeat ; while edi
push esi
push edi
mov ecx, [esi]
invoke wsprintf, ADDR wszbuf, ADDR g_szPerSCr, ecx
invoke lstrcat, lpszBuf, ADDR wszbuf
pop edi
pop esi
dec edi
add esi,4
.until edi==0 ;endw
.ELSE
invoke wsprintf, ADDR wszbuf, ADDR g_szPerSCr, [var_val + 8]
invoke lstrcat, lpszBuf, ADDR wszbuf
.ENDIF
.endif
ret
GetWmiInfo endp
;======================================================
END
