HQY 一个和谐有爱的空间

利用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

推荐本站淘宝优惠价购买喜欢的宝贝:

本文链接：https://hqyman.cn/post/4374.html 非本站原创文章欢迎转载，原创文章需保留本站地址！

休息一下~~