利用GetObject("WinMgmts:")获取系统信息

原创 2007年10月10日 10:34:00
用WMI对象列出系统所有进程:

----Instance.vbs----

 程序代码
Dim WMI,objs
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process") 
For Each obj In objs 
Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10) 
Next
msgbox Enum1


获得物理内存的容量:

-----physicalMemory.vbs-----
 
 程序代码
strComputer = "." 

Set wbemServices = GetObject("winmgmts://" & strComputer) 
Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration") 

For Each wbemObject In wbemObjectSet 
WScript.Echo "物理内存 (MB): " & CInt(wbemObject.TotalPhysicalMemory/1024)
Next 


取得系统所有服务及运行状态

----service.vbs----
 程序代码
Set ServiceSet = GetObject("winmgmts:").InstancesOf("Win32_Service")
Dim s,infor
infor=""
for each s in ServiceSet
infor=infor+s.Description+" ==> "+s.State+chr(13)+chr(10)
next
msgbox infor


CPU的序列号:

---CPUID.vbs--- 

 程序代码
Dim cpuInfo
cpuInfo = ""
set moc = GetObject("Winmgmts:").InstancesOf("Win32_Processor")
for each mo in moc
cpuInfo = CStr(mo.ProcessorId)
msgbox "CPU SerialNumber is : " & cpuInfo
next


硬盘型号:
---HDID.vbs---
 程序代码
Dim HDid,moc
set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
for each mo in moc
HDid = mo.Model
msgbox "硬盘型号为:" & HDid
next


网卡MAC物理地址:

---MACAddress.vbs---
 程序代码
Dim mc
set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
for each mo in mc
if mo.IPEnabled=true then
msgbox "网卡MAC地址是: " & mo.MacAddress
exit for
end if
next


测试你的显卡:
 程序代码

On Error Resume Next
Dim ye
Dim yexj00 
set yexj00=GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController") 
for each ye in yexj00 
msgbox "型 号: " & ye.VideoProcessor & vbCrLf & "厂 商: " & ye.AdapterCompatibility & vbCrLf & "名 称: " & ye.Name & vbCrLf & "状 态: " & ye.Status & vbCrLf & "显 存: " & (ye.AdapterRAM/1024000) & "MB" & vbCrLf & "驱 动(dll): " & ye.InstalledDisplayDrivers & vbCrLf & "驱 动(inf): " & ye.infFilename & vbCrLf & "版 本: " & ye.DriverVersion
next 
 

利用GetObject("WinMgmts:")获取系统信息

转自:http://www.cnblogs.com/dongzhiquan/archive/2010/09/12/1994556.html  有补充 用WMI对象列出系统所有进程: ----I...
  • shellching
  • shellching
  • 2013年11月27日 13:42
  • 7410

从java web request获取浏览器和操作系统信息

import java.util.regex.Matcher; import java.util.regex.Pattern; /** * get browser and OS informati...
  • julyfire
  • julyfire
  • 2014年01月21日 17:07
  • 2010

python自动化运维学习------使用模块psutil获取系统cpu、内存、磁盘、网络、进程等信息

系统基础信息采集模块作为监控模块的重要组成部分,能够帮助运维人员了解当前系统的健康程度,同事也是衡量业务的服务质量的依据,比如系统资源吃紧,会直接影响业务的服务质量及用户体验,另外获取设备的流量信息,...
  • xianjie0318
  • xianjie0318
  • 2017年06月28日 10:58
  • 2265

利用GetObject("WinMgmts:")获取系统信息

转自:http://www.cnblogs.com/dongzhiquan/archive/2010/09/12/1994556.html  有补充 用WMI对象列出系统所有进程: ----I...
  • shellching
  • shellching
  • 2013年11月27日 13:42
  • 7410

oracle 数据库,通过resultSet.getObject()获取时间类型截断的问题的解析(格式化时间不能完全输出,也就是只能到日,小时后面的没有了)

一般的数据库中,DATE字段仅仅表示日期,不包括日期信息,而Oracle数据库中的DATE数据类型是包括日期、时间的,对于不同的Oracle jdbc驱动版本,对于该问题的处理都有些区别,如果你使用9...
  • Ydeping
  • Ydeping
  • 2011年08月23日 20:25
  • 2409

Oracle数据库,resultSet.getObject获取时间类型问题的解析

原文:http://www.blogjava.net/midea0978/archive/2008/06/13/207655.html#Post 一般的数据库中,DATE字段仅仅表示日期,不包括日期...
  • yin_jw
  • yin_jw
  • 2014年11月13日 13:17
  • 3731

VisualC++利用CRegKey和WIN32 API获取系统硬件信息

获取CPU名称、标识、制造商名称、主频、个数、显卡BIOS与系统BIOS版本号和更新日期源程序链接   LONG QueryValue( LPTSTR szValue, LPCTSTR lpszV...
  • thanklife
  • thanklife
  • 2017年07月24日 13:50
  • 304

如何利用C++ Builder获取系统的sid信息?

头文件代码: //--------------------------------------------------------------------------- #ifndef Unit1...
  • stpeace
  • stpeace
  • 2013年10月20日 23:41
  • 1907

VisualC++利用CRegKey和WIN32 API获取系统硬件信息

获取CPU名称、标识、制造商名称、主频、个数、显卡BIOS与系统BIOS版本号和更新日期源程序链接   LONG QueryValue( LPTSTR szValue, LPCTSTR lps...
  • whucv
  • whucv
  • 2012年08月03日 22:14
  • 8041

如何利用Java获取系统的信息(CPU、内存、各盘符使用情况)

获取系统的信息使用情况
  • weixin_38283270
  • weixin_38283270
  • 2017年11月23日 16:07
  • 52
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用GetObject("WinMgmts:")获取系统信息
举报原因:
原因补充:

(最多只允许输入30个字)