原帖地址：http://blog.csdn.net/jacky_think/article/details/4621049
自 ： http://club.excelhome.net/thread-395989-1-9.html
1. 获取主板序列号(注意并不是所有的主板都可以获得)
[vb] view plaincopy
- Sub主板序列号()DimobjsAsObject,ObjAsObject,WMIAsObject,主板序列号SetWMI=GetObject("WinMgmts:")Setobjs=WMI.InstancesOf("Win32_BaseBoard")ForEachObjInobjsMsgBox"您的主板序列号是："+Obj.SerialNumberNextEndSub
2. 显示显卡信息
[vb] view plaincopy
- Sub显卡信息()OnErrorResumeNextDimtmp1,tmp2Settmp2=GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")ForEachtmp1Intmp2MsgBox"型号:"&tmp1.VideoProcessor&vbCrLf&"厂商:"&tmp1.AdapterCompatibility&vbCrLf&"名称:"&tmp1.Name&vbCrLf&"状态:"&tmp1.Status&vbCrLf&"显存:"&(tmp1.AdapterRAM/1024000)&"MB"&vbCrLf&"驱动(dll):"&tmp1.InstalledDisplayDrivers&vbCrLf&"驱动(inf):"&tmp1.infFilename&vbCrLf&"版本:"&tmp1.DriverVersionNextEndSub
3. 显示网卡信息
[vb] view plaincopy
- Sub网卡MAC()Dim网卡Set网卡=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")ForEach地址In网卡If地址.IPEnabled=TrueThenMsgBox"网卡MAC地址:"&地址.MacAddressExitForEndIfNextEndSub
4. 显示硬盘型号
[vb] view plaincopy
- Sub硬盘型号()Dim硬盘Set硬盘=GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")ForEachmoIn硬盘MsgBox"硬盘型号为:"&mo.ModelNextEndSub
5.显示cpu序列号
[vb] view plaincopy
- SubCPU序列号()’特别提示：这个不是唯一的，即有可能多个CPU同一一序列号ForEach序列InGetObject("Winmgmts:").InstancesOf("Win32_Processor")MsgBox"CPU序列号:"&CStr(序列.ProcessorId)NextEndSub
6.显示所有进行信息
[vb] view plaincopy
- Sub所有进程()Setobjs=GetObject("WinMgmts:").InstancesOf("Win32_Process")ForEachobjInobjstmp=tmp&WorksheetFunction.Text(a+1,"[DBNum2][$-804]0:")+vbTab+obj.Description+Chr(13)a=a+1NextMsgBoxtmp,65,"提示你哦"EndSub
别人失去了信心，他却下决心实现自己的目标。
