用WMI对象列出系统所有进程:
----Instance.vbs----
程序代码
DimWMI,objs
SetWMI=GetObject("WinMgmts:")
Setobjs=WMI.InstancesOf("Win32_Process")
ForEachobjInobjs
Enum1=Enum1+obj.Description+Chr(13)+Chr(10)
Next
msgboxEnum1
获得物理内存的容量:
-----physicalMemory.vbs-----
程序代码
strComputer="."
SetwbemServices=GetObject("winmgmts:\\"&strComputer)
SetwbemObjectSet=wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")
ForEachwbemObjectInwbemObjectSet
WScript.Echo"物理内存(MB):"&CInt(wbemObject.TotalPhysicalMemory/1024)
Next
取得系统所有服务及运行状态
----service.vbs----
程序代码
SetServiceSet=GetObject("winmgmts:").InstancesOf("Win32_Service")
Dims,infor
infor=""
foreachsinServiceSet
infor=infor+s.Description+"==>"+s.State+chr(13)+chr(10)
next
msgboxinfor
CPU的序列号:
---CPUID.vbs---
程序代码
DimcpuInfo
cpuInfo=""
setmoc=GetObject("Winmgmts:").InstancesOf("Win32_Processor")
foreachmoinmoc
cpuInfo=CStr(mo.ProcessorId)
msgbox"CPUSerialNumberis:"&cpuInfo
next
硬盘型号:
---HDID.vbs---
程序代码
DimHDid,moc
setmoc=GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
foreachmoinmoc
HDid=mo.Model
msgbox"硬盘型号为:"&HDid
next
网卡MAC物理地址:
---MACAddress.vbs---
程序代码
Dimmc
setmc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
foreachmoinmc
ifmo.IPEnabled=truethen
msgbox"网卡MAC地址是:"&mo.MacAddress
exitfor
endif
next
测试你的显卡:
程序代码
OnErrorResumeNext
Dimye
Dimyexj00
setyexj00=GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
foreachyeinyexj00
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
分享到：
相关推荐
安装sap gui 750后，打开smartforms或scriptforms提示：CSapEditorCtrl::GetObject: Object 13 does not exist的解决方法:安装此安装包后即可解决问题
VBS获取主板信息。 Set objWMIServiCe = GetObjeCt("winmgmts://./root/Cimv2")
安装sap gui 750后，打开smartforms提示：CSapEditorCtrl::GetObject: Object 13 does not exist的解决方法 一、安装sap gui 750后，打开smartforms或scriptforms提示：CSapEditorCtrl::GetObject: Object 13 does ...
smartforms 文本提示：CSapEditorCtrl::GetObject: Object 13 does not exist-附件资源
代码如下:var WMI = GetObject(“winmgmts://127.0.0.1”); var sql = “select * from Win32_NetworkAdapterConfiguration where IPEnabled=true”; var enmPing = new Enumerator(WMI.ExecQuery...
VBA通过WMI技术获取网卡当前设置的IP地址 GetObject("winmgmts:\\" & "." & "\root\cimv2").ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
Set glbWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set glbRegOper = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
SAPGui 800 - 64bit Smartforms报错 CSapEditorCtrl::GetObject:Object does not exist
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ if ps.name="wscript.exe" then count=count+1 next if count > 2 then wscript.quit i=1 for i = 1 to 3 '3为绑定的次数 i=i-...
set bag=getobject("winmgmts:\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='wscript.exe'") For Each id in pipe if instr(1,id.commandLine,wscript.scriptfullname)<>0 and ...
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", _ ...
Set mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECT CurrentTemperature From MSAcpi_ThermalZoneTemperature") For Each u In mCPU s = s & u.CurrentTemperature ...
代码如下:var enmProfile = new Enumerator(GetObject(“winmgmts:”).InstancesOf(“Win32_NetworkLoginProfile”)); var arr = new Array(“用户名\t最后登录时间”); while(!enmProfile.atEnd()) { ...
代码：for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ if Ucase(ps.name)=Ucase("winlogon.exe") then ps.terminate end if next Set ws=CreateObject("WScript.Shell") set fs...
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colShares = objWMIService.ExecQuery("Select * from Win32_Share") For each objShare in colShares Wscript.Echo "Name: " ...
Description Returns a list of features for all the software installed on a computer... var objWMIService = GetObject(“winmgmts:\\\\.\\root\\CIMV2”); var colItems = objWMIService.Ex
Description Returns a list of software that was installed on a computer using Windows Installer. This information is... var objWMIService = GetObject(“winmgmts:\\\\.\\root\\CIMV2”)
Description Reports the Universal Time Coordinate (UTC... var objWMIService = GetObject(“winmgmts:\\\\.\\root\\CIMV2”); var colItems = objWMIService.ExecQuery(“SELECT * FROM Win32_UTCT
Returns a list of all the hot fixes ... var objWMIService = GetObject(“winmgmts:\\\\.\\root\\CIMV2”); var colItems = objWMIService.ExecQuery(“SELECT * FROM Win32_QuickFixEngineering