利用GetObject("WinMgmts:")获取系统信息
2013-11-15 16:38
369 查看
利用GetObject("WinMgmts:")获取系统信息
用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 取得系统所有服务及运行状态 ----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 获得物理内存的容量: -----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 setmc=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 setyexj00=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:")获取系统信息
- 利用GetObject("WinMgmts:")获取系统信息
- 利用GetObject("WinMgmts:")获取系统信息
- 利用GetObject("WinMgmts:")获取系统信息
- 利用GetObject("WinMgmts:")获取系统信息
- 利用GetObject("WinMgmts:")获取系统信息
- 利用GetObject("WinMgmts:")获取系统信息
- Script-VBS-利用GetObject(WinMgmts)获取系统信息
- "SQL Server 安装程序无法获取 ASPNET 帐户的系统帐户信息 "
- SQL 利用INFORMATION_SCHEMA系统视图如何一步一步获取表的主外键信息
- Python利用系统命令获取文件(夹)信息以及Python对Excel的简单操作
- 如何利用Java获取系统的信息(CPU、内存、各盘符使用情况)
- python利用platform模块获取windows系统信息
- 探讨SQL利用INFORMATION_SCHEMA系统视图如何获取表的主外键信息
- 利用Windows API函数和注册表获取系统信息
- winform利用API函数获取系统的信息
- 利用WMI获取系统的软硬件信息的学习与总结
- iOS中利用系统地图获取定位信息(经纬度/地理位置)
- sqlserver 2005 开发斑安装,出现 "SQL Server 安装程序无法获取 ASPNET 帐户的系统帐户信息"的解决方法
- sqlserver2005 安装问题 --"SQL Server 安装程序无法获取 ASPNET 帐户的系统帐户信息"